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!H( INUWMATION IN THIS OOCOMfNT I , Mifl.UCT TU CHANM 'J]TH(i..-T 
NOT t CI AND '.HUU NOT R* CON. T R'tfM AS A COMMIT NT \\i nitilTA. 
liJlMPMfN' CORPORATION. DIOlTAl fUUIPM^NT CORPORATION Avi'JMf S NO 
RlSPONSHUl 1 r i K)R AN i i HROHS THAT MA t APPMR IN This OOCUMf NT . 



*A NH m sPONMHU I It I'* rt:.'.-*1UJ * OH Tui p ,i OR Ml i lAHlLlTf 0» 

'.OMwAMI ON lUi'lPMINI THAT I', NO I VjPPi TM) H" IMl.tTA! OH 1 1 ', 
Af I- Ii I ATM) COHPANU '.. 



CiHMMIiiHT (C> I 1 **** , 1*JH4 Hi Olt.UAi MJUIPHhNT CORPORATION 

TMt. KJtLPulNi- AMfc TRAOtMARi' ^ i* UUillAL. MjPI^MtNr CUHPOH»* T ION: 
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! < 5 1 

•-5S 

l ^5 * 

^ v« 

S4 1 

Sd'. 
M ' 

SSO 

*»M 
SV- 

S'i ' 

%s« 

■■>v 
>.i 

^r>. 
*>. * 
*.».4 
V-S 

:>»• ' 



OOO0O1 



IN CASfc NO SOU INSTRUCT ION 



NOSOB 


« 


1 


. MACRO 


SOB 


RHi.TO 




QIC 


Rfcfi 




RNE-* 


TO 



, F NOM 



.MACRO 


PUSH 


A, 


B.cn.t 




MOV 


A, 


1 Rf. ) 


.I» 


NO 


t) 






MOV 


B. 


(R6) 


, f NOC 








. If 


NB 


C 






MOV 


C. 


( Rh ) 


, I NOC 








, If 


NH 


L) 






MOV 


0. 


•CR6) 


.trNOC 








. U' 


NB 


f 






MOV 


t- . 


(R6) 


.f NOC 








.(-NOM 









.MACRO 


POP 


A.H.CD.fc 




MOV 


i«»o . ,rt 


. U 


NO 


M 




MOV 


cr* ). ,n 


.(NOC 






. u 


NH 


c 




MOv 


C R*. W , C 


.f NOC 






. U' 


NO 


1/ 




MOv 


( R(, '.,!) 


, I NOC 






. P 


NH 


1 




MOV 


4 RO*,t 


. f NOC 






A NOM 







*4 + **.4****44.* + 4s** + + + *****4*****4*.*i+44*++*-* + + * + **4***+#.* + **4*.^*f*.**.***» 



UL.C Ml SVUtM IXKRClStR M MACRO MU»00 



om-APR A4 lh:Si 



PAliF lh 



SFQ l^> 



, SB Til tUUAThS 



s • ' 


ooooox 


S ■'$ 


oooixv 


S **» 


000004 


s^o 


0000 10 


!•»**! 


0000*70 


Si*.* 


000040 


SJv* 


ooo too 


St*4 


000^00 


S^S 


000400 


s^ 


00 1000 


s^ * 


00^000 


SS8 


004000 


S8*» 


01 0000 


*,oo 


v\?00CO 


'^»: 


04000? 


s*v 


100000 


V>5 




VM 


OOOOOr? 


S^ l 'i 




s^», 




Svi ' 




*v*rt 




V.w 


000001 


f»OC 


ooooo;' 


fOl 




'XV 


000004 


>»v 5 




».04 


000010 


r>OS 




♦*o». 


00?000 


»»0A 


004000 


')(>'« 




»-K 




'»:: 




►■•:/' 




•»i* 


000000 


»-i't 


000001 


».r- 


000005 


#,;*. 


000004 


».l ' 


00000* 


M* 


0000, V 


» .r< 


0000 '.4 


*. t « 


00005* 


►j.'I 


00005/ 


» , t ■, ■ 


00OO45 


*.l ' 


OOOQ'jI 


bi?4 





nn oo • 


I 


BPOl « 


< 


BITO»? ' 


4 


BI105 • 


10 


BIT04 - 


20 


BIT05 « 


40 


HIT06 • 


100 


BIT07 = 


• t >00 


BITOfl • 


• 400 


BIT09 


' 1000 


BIT10 < 


• POOO 


BITH 


• 4000 


BIT 1.? 


■ 10000 


BIT13 


- 00000 


BIT14 


* 40000 


niTts 


' 100000 


UPPhR 


« «? 



STATUS BITS 



SR.PAK 


' BITOO 


1 


SR.RON 


* BlTOl 


t 


SR.RFP 


- BITO? 


; 


SH.SUM 


- BIT05 


J 


SR.SF'O 


» BITIO 




SR.CMP 


J HITU 


{ 


» 

i 


FRROR BIT'; 


f'rr.o * 





i 


FRR.l - 


1 




FHR.5 - 


», 


I 


t'RR.4 * 


4 


I 


FRR.b - 


f) 


I 


l-RR. V 


1 .V 


I 


FRR.34 


- 54 


• 


F RR . 5* 


• 5*-. 


> 


F HR . 5 / 


= '>.' 


i 


LRU, 4'. 


* 4 '- 




tRH.il 


* S>1 


I 



PRINT OUT PACK!- T . I - tFS 

MEANS RFAD ONt ' 

1 MFANS UR1TF. RF AO , CHICK 
Rh'PORT FRROR AS ThF'y OCCUR - REPORT, 

i = DON' T RF PORT 
Re PORT FRROR S ON FND O PASS * RFPORT, 

1 - DON T RFPORT 
DISK AOORFSSING - SFOnFNUAt , 

I - RANDOM 
DATA COMPARF * DD DATA COMPARF . 

I - DON" T DO DATA COMPARF 



NO I DM' INI D 

DA [A I HROR 

CONTHOi LF R NO I RF AD » 

BLOCK NOT FOUND 

DRIVF NOT RfAOt, 0* ► I INI OR NON tXLSTLNT 

NPR F RROR 

UNABl.l TO 

•'NAHll TO 

uNABl.F TO 

CRC f RROR 



INTlAi.T/F FRROR 
RF AD F RROR 
URITt tRRQR 



<iF.U< hRROR 



road in c 


Ml S1SU M l-.Xt.RClSI-.R 


RUDX til l 


DEFINITIONS 


<\?t> 




t>2 : 




tOS 




f*2** 




toO 


004000 


t<5l 


01 0000 


^V 


020000 


1*3 3 


040000 


^34 


100000 


t^3 r » 




tvV 




r*3 * 




i»3S 


oo yrr: 


#!«*'» 




^.;o 




^4 i. 




^4/ 


00*400 


<»\ 3 


000400 


*>44 


001000 


f,4|- 




• i4h 




r>4 • 




MS 


0001 '■' 


^v* 


ooo.\\> 


fAO 


00-400 


r>Sl 


i ;oooo 


*V 




f<S3 




«»S4 




•W- 


0001 * ' 


»iS»i 


000200 


*V1 




»>S8 




r»V* 




».»'^; 




**> 1 


000001 


•>?j». 




^r,* 




* .i*.i*l 




<■■,».«, 


0000 1 .' 


*>*,♦-. 


000360 


*»»"• ,' 




f.f,M 




*i*j'< 




*. ,'< "f 




», /I 


040000 



*> '4 



t- ' 



N MACRO M1200 O l ) APR 84 lb: SI PACif 1/ 

.SBrt I. RQDX BIT DFf'INIl IONS 

i RQOXSA REGISTER UNIVERSAL READ BI I 



SEQ 17 



SA.St" 004000 

SA.S2- 010000 

SA,53< 020000 

SA.S4- 040000 

SA.F.RR- 100000 



{STEP 1 STATUS BIT 
[STEP ? STATUS FIT T 
{STEP 3 STATUS HI! 
j STEP 4 STATUS BIT 
{ERROR INDICATOR 



(RQOXSA REGISTER ERROR STATUS BIT', 

SA.ERC- 005//' i ERROR CODE 

{RQDXSA REGISTER STEP ONE READ BITS 



SA.CTP- 003400 
SA.DIA= 000400 
SA.QB = 001000 



{CONTROLLER TrPE 

jDIAG BIT IN RQDXSA 

{SAME - DENOTES QBUS SUPPORT 



jRQDXSA REGISTER STEP ONE WRITE BITS 



SA.VFO 0001// 

SA.INT" 000200 

SA.RSP^ 00 74 00 

SA.CMD- 170000 



INTERRUPT VECTOR (DIVIDED Hi 4) 
INTERRUPT ENA(U E DURING INITIALIZATION 
RESPONCt RING LENGTH 
COMMAND RING LENGTH 



{RUDXSA REGISTER SUP TWO READ BITS 



SA.VCE« 0001// 
SA. INL •■ 000200 



, JNURHUPT V* CTOR \ CHO 
i INTERRUPT ENABLE ECHO 



;RQDXSA REGISTER STEP TWO WRITE BIT 



SA.PRG- 000001 
;RQOXSA REGISTER STEP THREE READ BITS 



[l OW jROhR Mf v.AGt RtNo B t T|_ 4DDREo 
{ENARiE VAX UN I BUS ADAPTER PURGE INTERRUPT 



SA.RsE - 00001 / 
SA.CME^ 0003^0 



{ Rt ' .PONCE RING llNi.'H ECHO 
{COMMAND RING I F NL.TH ECHO 



000001 



{RQOXSA REGISTER SUP THREE WRITE HIP, 

{HIGH ORIH R MEv.Ai.E RINu BtU ADDRESS 
SA.MC i)4v>t)00 {I AST t- Alt LIRE CODE HUK'tST 

iHQDxSA REGISTER MIP E Oi iR HEAD BIT 1 . 

l«UDX$A REGISTER ,TU> EQUR WRITE BIT 1 , 

SA.oO* BUO iutl UU »0 STA^T RUO* ► !W«w4«L 



KUA'1 DIC Ml M 
COMMAND MESSAGE 



iU.M EXERCISER M MACHO ML\)0 
DESCRIPTOR BIT DEFINITIONS 
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SEQ 18 



l» .' Vi 




n80 




r .8 1 


100000 


*>iV 


O'l 0000 


».>8< 




b84 




b8s 




r-» 8 f •> 


000010 


»vS * 


WOCoO 


t-^8 




b£^» 


uOOOOO 


f^>0 


00000/ 


r, n 


000004 


»'»*'4? 


00000b 


»,M< 


000/ .**> 


t^V« 


000356 


r^JS 




f.w*-. 




»»'.* * 




»^>8 


000001 


6*-' 1 * 


0000/0 


".'00 


000010 


:oi 


oooo/i 


".\V 


00004 


■'o.'. 


000013 


:oa 


0000// 


70S 


0000.' 5 


70b 


00000/ 


• V 


000003 


VOH 


000011 


70** 


00004 1 


'■" 1 


0000/4 


... , , 


000004 


?L: 


ooooi? 


"I ' 


00004;* 


± »♦ 


000030 




000031 


!*, 


000/00 


• » * 


000100 


* \ •*> 


000101 


" i't 


00010.' 


■.',''• 


00010^ 



.SBTU. COMMAND/MESSAGE DESCRIPTOR BIT DEFINITIONS 



RG.OWN- BIT IS 
RG.FLG- BIT 14 



I SET WHEN RQDX OWNS RING 
jF'l AG BIT 



■' '1 



7/4 



; OFFSETS INTO HOST COMMUNICATIONS AREA WITH ONfc DESCRIPTOR TO FACH RING 

55I2E OF HOST COMM AREA IN BYTES 
(SI/F OF PACKETS IN BYTES 

iHESPONCE RING START 
iRESPONCE RING CONTROL WORD 
{COMMAND RING START 
(CONTROL RING CONTROL WORD 
{START OF RESPONCE PACKET HUEFEH 
,-START OF COMMAND PACKET BUFFER 



jABORT COMMAND 

{ACCESS COMMAND 

{AVAILABLE COMMAND 
COMPARE CONTROLLER DATA COMMAND 
COMPARE HOST DATA COMMAND 
DETERMINE. ACCESS PATHS COMMAND 

{ERASE COMMAND 

{FLUSH COMMAND 

{GET COMMAND STATUS COMMAND 

{GET UNIT STATUS CUMMAND 

{ONLINE COMMAND 

i RE AD COMMAND 

{REPLACE COMMAND 

;SET CONTROLLER CHARACTERISTIC 1 . CJMMAND 

{SET UNIT CHARACTERISTICS COMMAND 
WRITE COMMAND 
MAINTENANCE READ COMMAND 
MAINTENANCE WRITE COMMAND 
END PACKET El At, 
AVAILABLE' A1TE.NU0N MESSAGE 
ERROR LOG ATTENTION MESSAGE 
SHADOW COP* COMPUTE ATTE.NION MESSAGE 
ACCESS RATH ATTENTION MESSAGE 

NOTE; END PACKET OPCODE 1 , i At so CALLED ENDCODE s ) ARE » ORME B' AOUINli ThL * NO 
PACINI E LAS ru !Ht COMMANl) OPCODE . THE UNKNOWN COMMAND END RACKET CONTAINS 
JUST TH£ lND PACKET FLAG IN IIS OPCODE FIELD. 



HC.SU- 


8. 


PKTSI/- 


48, 


HC.RES- 


0. 


HC.RCT = 


*) 


HC . CMD - 


4] 


HC.CCT- 


b. 


HC.RPK* 


RSPACK 


HC . CPK « 


HC.RPK*PKTSI/ 


OMMAND 


PACKET OPCODES 


OP.ABO-* 


01 


OP.ACC- 


/O 


OP.AVL- 


10 


OP.CCD- 


?.l 


OP.CMP- 


40 


OP . DAP : 


13 


OP.ERS- 




OP.ELU- 


;:3 


OP.GCS* 


0/ 


OP . GUS - 


05 


OP. ON'. - 


11 


OP, RO- 


41 


UP . 'api - 


/4 


OF , sec » 


04 


DP . SUC » 


1/ 


OP . UR - 


4/ 


OP.MRD- 


30 


OP . MWR « 


31 


OP. END- 


«>00 


UE' . AVA ■■ 


100 


OP.ERl * 


101 


Of*. :,HC' 


10/ 


OP . ACE 5 < 


10/ 



1 



OOAD DEC Ml '.i'.MN EXERCISER M MACRO HI. 00 0'» \PR tt4 lh;*l PA(,k / 'if- Q f> 

Ot.C-M: ^SIEM LXERSl/bR MACRO DFMNH10N MODUl b 



■OS 

: ^ 
• i i 

t ; 

1 1 



1 ^ 



I 



t 



'*** 



■* . i 



'-»» 



9.0 OPFRATION OPT TONS 

UNI OR MORI SOFTWARE SWITCH *F.GISTFHS CAN HI-. USFD Hi THE 
MODUl E PROGRAM GF.^F.RAL PUPPOSF SWITCH!'.,. THF St WORDS ARL 
USED '0 OtKINb OR SPFCiEY A UNIUUF DbVICb OPTION OR TO 
POINT TO A SPFCtFTC ROUT INF IN THF MODUl F . AN* OPTION MUSI 
m SPECIFIED By THF GPFRATOR BF.FORfc THF MODUl IS RUN. 
SWITCH RFGISTFR 1 HAS Trib" FOLLOWING CHARACTERISTICS (ALL BITS 
DtFAUl T TO 0): 



SRI 



BIT Sb T (I): PRINT OUT PACKE TS A- THF Y ARE. SENT 
VA AND PFCIEVFD O OR MODI H fe DIAGNOSTIC 

PURPOSES) 

SS; R|:St I CO): SUPRbSS PRINTING OF PACKF TS 

'.'■* BIT l St! CI): PFRFORM E Ul L TF.'jU OK WRITF. RFAD, AND DATA 
V 1 * CHFCK ON ALL ObVlCFS WHOSb WRITb R I ] .-. 
'V ARF SF.T IN SW? (LXCFPT THF. LOAD UNIT') 

'M RKSbl (0): ONLY RFAD FROM THF OF.SIRFD UNITS USING 

THF MSCP RFAD FUNCTION. 

''•l BIT ,-? SET (I): DO NOT REPORT FRRORS AS THM OCCUR 

^S RFSbT JO): RFPORT FRRORS AS THF i OCCUR. 

" [ ' HI! 3 :il! II): DO NOT PRINT FRROR SUMMAR ) »r [.no OK PASS. 

** RtSFT (()): PRINT FRROR SUMMARY AT b NO OF PASS. 



? *^' BIT 4 "■ T 11): PERFORM IEST OF WRITE, AND RFAD OBN' d ON 

RD OFVlCb U SblFClbD IN DVIDI, 
V*. RFSFT CO): DO NO! ACCF SS THF DBN S 0* THF HP. 



'«'* BIT lo SET (I); SELECT RANDOM Bl OCK ADDRI: SS LNli . 

4 '' RESET cow «-~HtCT SEUUFNMAl BLOCK ADDRFSSING. 



'♦ ' HO 1 i -E ' l I ? : EliPAv, DATA COMPARt. , 

**•'' RISE t i'0>: DO DATA COMPARF . 



^R v < CONTAIN'. A N'iMEltR "St As A RATIO HE TwE E N «0 AM) R\ 

A'"! ,',E . MIR EvER' t ACCFS', t» AN R\ 'HERE W'.il- 

l* aH.' 10 E >i^H RD* l> Ps CONTtNI'i ARE UHt OtKAULT > 

IrtL VAi.Ut dO WILL Ut USID* 



ROAD DEC All SYSTEM EXERCISER M 
HORt MODU f MESSAGES 



Hh 
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SEQ 72 



. n vu oi 11/2 

2952 

2953 011204 

2^54 

2955 011234 

295fc 

2°»5* 011264 

2<-»58 

2959 011322 

2960 

2961 011554 

2962 

29t>5 011562 

2 964 

29^5 011412 

29»>6 

296 7 011460 

296tJ 

2^ 9 011532 

29/0 

2971 01155b 

29, '2 

2975 011604 

29/4 

29/5 011652 

2976 

297 ? 011654 

2978 

29 /q 011662 

2980 

2981 0117 50 

" 5 98 "* 

2985 012002 

2984 

2985 012054 

2986 

2987 012146 

2988 

2989 012216 

2990 

2991 012260 

2992 

299 5 012324 

2994 

2'*9S 012 5/4 

2^96 

2'*'* ' 012462 

2998 



040 
045 
045 
045 
045 
040 
045 
04 5 
045 
045 
123 
040 
040 
040 
040 
007 
040 
040 
040 
045 
045 
045 
045 

000001 



HI 
052 

052 
052 

101 
040 
122 
122 
122 
104 
124 
102 
000 
104 
041 
007 
055 
111 
111 
115 
105 
104 
104 



116 
052 
052 
052 

104 
127 

121 

121 
111 
105 
101 
131 

102 
040 
040 
055 
106 
116 
117 
122 
122 
126 



MSG10: 

MSG11; 

M5G12; 

MSG13; 

MSG14: 

MSG16: 

MSG17; 

MSG18; 

MSG19; 

MSG20: 

MSG21 

MSG22 

MSG23 

MSG24 

MSG36 

MSG3 7 

MSG40 

M5G99 
MSGD1 
MSGD2 
M5G03 

RBUKj 



.ASCI/ 

.EVEN 

.ASCI/ 

.EVEN 

.ASCIZ 

.EVEN 

.ASCIZ 

.EVEN 

.ASCIZ 

.EVEN 

.ASCIZ 

EVEN 
.ASCIZ 
.EVEN 
.ASCIZ 
.EVEN 
.ASCIZ 
.EVEN 
.ASCIZ 
.EVEN 
.ASCIZ 
.EVEN 
.ASCIZ 
.EVEN 
.ASCIZ 
.EVEN 
.ASCIZ 
.EVEN 
.ASCIZ 
.EVEN 
.ASCII 
.EVEN 
.ASCIZ 
.EVEN 
.ASCII 
.EVEN 
.ASCIZ 
.EVEN 
.ASCIZ 
. EVEN 
.ASCIZ 
.EVEN 
.ASCIZ 
.EVLN 
. ASC I Z 
. f. VI N 
.HI KW 
♦ END 



' IN STfcP • 

'*** SOFT ERROR COUNI &' 

«*+* HARD ERROR COUNT 0' 

•*♦* CHECK DATA ERROR COUNT l>' 

'*ADDR - * 

» WAS FOUND OKI-LINE.' 

'*RQDXSA IS NOT ZERO, * ' 

•*RQDX IS GOING THROUGH INI T IL IZATION' 

'*RING AREA NOT CLEARED DURING INITIALIZE*' 

»*DEVICE 10 BIT = ' 

'STATUS ENDCOO UNIftt ' 

• BYTECO HI LBN 1.0 LBN EXTAOR PHY ADR*' 

« DBN*' 

' ! UNITS WILL ONLY BE READ TESTED !*' 

<07><07>' ! CUSTOMER DATA WILL BE OVERWRITTEN !*' 

' - ■ « ' «. 07 •» < ; * 

IF CUSTOMER DATA IS TO RE DESTROYED, SET BITl (NOT BITO*' 
IN SWITCH REGISTER KSR1) EQUAL TO 1.** 
*M0RE UNITS REQUESTED THAN EXIST' 
TERRORS CAUSED DRIVE TO BE DROPPED*" 
*DRIVE WAS NOT FOUND OR NOT AVAILABLE*' 
*DVID1 BIT SET HIGHER THAN ACTUAL I) OF DRIVES FOUND*' 
2t»0. i THE READ BUFFER 



1 t 
ROAD DEC Ml '.i r .!!M IM.RClsER M MACRO MK'OO OS APR H4 16:11 PAlih 9 SRj ft 

DEC Ml *OSUM EAERS1/ER MACRO DEUNUtON MODUl E 

5M 10.0 PRINTOUTS 

5 1 . ' 

51 < A, MOM I RINTOUIS HAVE THE STANDARD KTRMATS DESCRIBED IN 

>M THE- Db.C/XH DOCUMENT. 

5 IS 

51- 0. NUN STANDARD PRINTOUTS INCLUDF. ERROR MESSAGES WHICH DUMP 

{i ' th{ j oi i owing: 

5 * » J 

< i < * 

5..V 
/ » « 

* ' t ^ 

? "> ' 
/ ' * 

5 . % ''* 

5. » 

5.> 

•/ > ' 

5^0 Al.l. VALUE'S EXCFPT TOR PASS, RUNTIME" ANO ERRCNT ARE PRINTED 

5U IN OCTAL. PASS, RUNTIME AND ERRCNT ARE PRINTED IN DECIM/U.. 

5 5. E xAMPl E : 
;< * *. 

5 '.4 RQA40 PA: 00064 116 APC : 0046 50 PASS: 00000 ERRCNT: OOOOl 

55S CsRA; 1/4*44 CSRC; 000000 AST AT: 000006 ERRTip. 000006 

5 5- RUNTIME": 000:00:;v 

* / • 

'•58 RUAAO PA- 000640V APC: 004S64 PASS: 00000 

540 STATUS i NDU-0 UNIT ff Hi Tt CO Hi I "JN 10 I UN I a 'ADR Phi ADR 

54 1 000006 000^4? OOOOOS 000000 000005 1163,'U 000001 06? 1 00 



■ *** i 
54 '■. 
544 



•/ « 

/ 1, 1 
■/, I , 

5S4 
/ » ■ 



FOR MSCP: 




1 ) 


SUMMAH: STATUS 


^ 


I EAu'.i AND ENDCUDE" 


*> ) 


UNTT NUMBER 


4) 


D'TE COUNT 


S) 


HI 16 HIT IHN VAl UE 


6) 


I 16 HIT IBN VAl UE 


n 


E-X TENDED ADDRESS 


H) 


PHVSICAt ADDRESS 



FOR DUPi 



'*♦' 1) SUMMARi MAP- 1 , ( f RDM RE. PON'-t PACKET < 

54" k M E i Al.S AND E N0C0DE ( • ROM RE'.PONSE PACKET) 

54 H < ) UNIT NUMBER 

'4-* A) DIAGNOSTIC HI OCK NUMHER 



RU>Uo PA; 00064H6 APC: 004650 PAS'.; 00000 ERRCNT: *\\\U 
C i R A : I ,* 4 ^ 4 4 C sR C : 000000 A S TAT; 000006 E R R T i P ; OOOOOt < 
RUN I 1ME : 000:00:.'/ 

'.' -\"- , E NO:.'!; t'NI ! a DUN 

0000O& ooo*><u ooooos 000005 incorrect end coot 



road dec 


MI Si STEM EXERCISER 


ERROR I iH 


F LAGS 


«:i 




8.v 




8 .'5 


ooo?oo 


8 M 


000 I 00 


8 :s 


000001 


8 'in 




8 : ■ 




8 "8 




8 **> 


oooooo 


^80 


00000,' 


881 


000004 


88? 


000014 


rt8 5 


0000 IS 


884 


000016 


88S 


000026 


88r> 


00002 / 


88 ' 


000050 


^6 


000054 


Sfri 


000040 


8^0 


00004 1 


tWl 


00004? 


8 l V 


000044 


8'*< 


000030 


8^4 




HW, 




rtv*^ 




«9 : 


00005 ' 


8 l >8 


000040 


8 *'* 


000000 


'K)0 


000001 


901 


00000? 


MO.-' 


000005 


90 * 


000004 


*»04 


ooooos 


<»0S 


000006 


s K!t. 


00000/ 


•jo; 


000010 


908 


000011 


•K)4 


00001? 


910 


000015 


r *ll 


00005/ 


'U? 




91 5 




914 




'U«. 




'Mr, 


000040 


'•1 ' 


000100 


91 8 


000400 


9,'(! 


000200 


9. , 

'«.■ ' 


OO«>U40 


•♦.•4 


GQ01GG 


<Jjb 





M MACRO M1200 09 -APR -84 16:51 PAGE 2? 



SBTTl. ERROR LOG M AGS 



SEU 22 



EF.FRS* 
EF .1 SI- 
LF.MIS- 



000200 
000100 
000001 



{FIRST PACKET 

I LAST PACkt. I 

I MRS SAGE MISSING 



ERROR LOG MESSAGE OFT SETS 



L.tVNT- 

i .si.or- 

l .CNTI* 
I..CNTI' 
I .CHVR a 
L.UNTI- 
I..USVR- 
I..UHVR ' 
I .ERLC- 
I..CYL- 
L.liRP- 
t . IRCK- 
L.LiCTR- 
L.V5ER- 
l .DATA- 



0. 

> 
i . 

4 , 

12. 

15. 

14. 

22. 

25. 

24. 

28. 

32, 

35. 

54. 

36. 

40. 



EVENT CODE 
SLOT NUMBER 
CONTROLLER IDENTIFIER 
CONTROLLER SOFTWARE REVJSJON 
CONTROLLER HARDWARE REVISION 
UNIT IDENTIFIER 
UNIT SOFTWARE REVISION 
UNIT HARDWARE REVISION 
ERROR LOCATION 
CYLINDER 
GROUP 
TRACK 
SECTOR 

VOLUME SERIAL NUMBER 
EVENT DEPENDENT DATA 



STATUS AND EVENT CODE DEFINITIONS 



ST 

ST 
ST 

ST 
ST 
ST 
SI 

ST 

sr 

ST 
ST 
ST 
SI 



MSK- 
SUB- 

sue- 

CMD- 
ABO- 
OH - 
AVE ■■■ 
MFE ■- 
WPR » 
CMP- 
DAT ; 
HSI- 
CNI - 
DRV* 
ST.DIA" 



5/ 

40 



1 



.3 

6 
■; 

10 

11 

1? 

15 



SUBCODE S \ OR ST. 01 I 



sc 


NV1 


4 




[OP 


\00 


SC 


IK'. 


- 40O 


'•C 


1) UP 


- ?oo 



'aUBCODf'> F OR ST. DRv 



,1 



4 



EVENT CODE 
MUl TIPt IER 



MASK 



STATUS / 
SUB CODE 
SUCCESS 

INVALID COMMAND 
COMMAND ABORTED 
UNIT OEM INE 
UNIT -AVAILABLE 
MEDIA ERROR 
WRITE PROTECTED 
COMPARE ERROR 
DATA ERROR 

HOST Hl>FER ACCESS ERROR 
CONTROLLER ERROR 
DRIVE ERRCR 
{MESSAGE FROM AN INTERNAL DIAGNOSTIC 



NO VU*. UMt MOUNUO 'W DRIVE D I SA\ [ t D VIA Kt.'N ■ ' . r ,■.< ; ' . 
UN 11 TNOPE RAT1VE 

i)NM DISABLED tVi ► m l) SERVICE OR INTERNA,. 01AbNO:P IC 
j DUPLICATE UNIT NUMBER 



H 



j .).-■ i 



)1 RE -.PONCE 1 I Ml 



•jCINV * 100 



{INVAl ID SD1 RESPONCE 



/ I 



r«;ad 

DEC--' 
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>STEM EXKRS1/ER MACRO DH IN1UON MODULE 
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SfcQ 10 



5'M 
* l *S 

40 : 

402 
40'. 
404 
40b 



000000 



i -00000 






ooooo o 


120 


• > 1 


ooooo 1 ; 


1 04 


040 


000^.05 


00 v. 




000006 


i-Viso 




000010 


000 1S4 




OCQQIS 


200 




00001? 


000 




0000 1 4 


OOOOO 1 




0000 u, 


000000 




0000. '0 


000000 




0000 s.? 


000000 




000 024 


000000 




oooo, •>. 


r.oooo 




000040 


00100?' 




0000 52 


000252' 




0000 u 


000000 




0000 fa 


000 ^40 




000040 


000000 




00004,' 


000000 




00004 4 


000000 




00004 h 


000000 




0000 SO 


OOOOO 




000052 


000000 




000054 


000000 




000 OS* j 






'\X>05b 


000000 




0000*>0 


000000 




0000*j2 


000000 




0000*. 4 


000000 




oooo**, 


oooooo 




0000 /o 


OOOO'M) 




0000 ?? 


oooooo 




UOOU/4 


oooooo 




000* > /») 


i)0«jt: 




OOi')) ' jO 


oooooo 




oouio^ 







101 



12.0 BIBLIOGRAPHY 

CXQUAAO ' DEC/X11 USER'S MANUAL' SEPT 1078 
CXQAEDO * Ot.C/Xll PROGRAMMERS' S GUIDE' Sf.PT 1078 

t. 

.SBTTL MODULE HEADER BLOCK 

iOMODX <RQAD > , 172150. 1S4 .4 ,0 .0.40, 104 ,ROU» .25' ■- . ,25*>. 

MODULE 150000, ROAD , 1/2150, 154 , 4 ,0,0 .40. 104 ,RBUE 256. ,256. 

. TITlf. RQAD Of.C/XJl SYSTEM EXERCISER MODUI f. 
j DDXCOM VERSION f > . 4 28-JAN H2 

.1 1ST BIN 

BEGIN: 

M0Di\>AM: .ASCII /RQAD / j MODULI; NAME. 



XEl AG: 

ADDR : 

VECTOR: 

BR1: 

BR2: 

DVID1: 

SRI: 

SH2: 

SR*: 

SR4 ; 

; ***** * 

STAT : 

INU : 

sPOINT; 

PASCNT : 

ICONT : 

I COUNT 

SOE CNT 

HRDCNI 

Mlf PAs 

HH[)P4 l . 

StSCNT 

RANNUM 

CON* IG 

m si 

H\ s,' 
SVHO 
SVRt 
SVR2 

SVR-- 
SVR4 
'■VRS 



. ByTE OPEN 
172150*0 

154*0 



PR I i4»0 
PRTYO»0 



.By If 

.BtTE 
0»1 

OPLN 
OPLN 
OPLN 
OPEN 

1 50000 
ST AW 

MODSP 



40 









o 




o 
u 

UPt N 
OPEN 
UPi N 
UPtN 
OPt N 
i)V\ N 
wPt N 
OK.N 



USED TO KEEP TRACK UF WBUFE USAGE 

1ST DEVICE ADC. 

1ST DEVICE VEC * "R . 

1ST BR LEVEL. 

2ND BR LEVEL . 

DEVICE INDICATOR 1. 

SWITCH REGISTER 1 

SU1TCH REGISTER 2 

SWITCH REGISTER 5 

SWlli M REGISTER 4 

********«**** + + *****************************.** 

STATUS WORD. 

MODUI f -.TART ADDR . 

MODUi \ STACK POINTER. 

PASS COUNTER. 

i> 0E TITRATIONS PER PASS -40 

LOC iO COUNT ITERATIONS 

IOC TO SAVt TOTAL SOU KRRORS 

LOC TO SAVE TOTAL HARD ERRORS 

LOC TO SAVE SOET ERRORS PER PAS: 

I 0C TO SAVE HARD ERRORS PER PASS 

or S>5 ERRORS ACCUMUl A TED 



HOLDS RANDOM 
RESERVED FOR 
RESERVED EON 
RES! RVED \ OR 



WHEN RAND MACRO IS CALLED 
MONITOR USf 
MONITOR USE 
MONITOR USE. 



TO 
TO 
TD 
TO 
TO 
! ll 
Til 
AlKHt 2» 
j ADDR UE 



o: 

oc 
oc 
oc 

()C 

oc 

It 



i l'l 



SAVE 

SAVt 

SAVt 

sAvl 

SAVt 

SAW 

sAVf 
C"RR| 
0.000 



RO 

r: 

R2 

r;. 

R4 
RS 
Ri< 



.NT C'.R. 
DATA, OR 



M 



noad ore \u sviu m 

MODULI- HEADER BLOCK 
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SEQ 12 



40 ; 






408 






40 L » 






4 10 






4U 






4 1/ 






4 15 






414 






41'". 


00025/ 


000000 


41* 






4i : 






4 1 8 






4 19 






4/0 


000/54 


000000 


4/1 


00025b 


000000 


4// 


000/bO 




4/5 


000/64 




424 
4/5 

4/6 


ooo*?/o 


000000 


000/// 


000000 


4/7 


000/ 74 


000000 


428 


000276 




429 






4 50 


0003-'/ 


000000 


431 


000574 


000000 


43/ 


000376 




4 55 






4 34 






4 35 






4 3b 






43. 


0004 ?? 


000000 


4 38 


0004 74 


000000 


4 39 


0004 th 


OOC )00 


440 


000500 


000000 


44 1 






44/ 






44 3 






444 


00050/ 


000/64 


445 


000504 


000000 


44h 


00050b 


000000 


44 / 


ooomo 


oooooc 


448 


00051/ 


000000 


449 






450 


000514 


000000 


451 


0005 U- 


000000 


45/ 


0005/0 


000000 


453 






4', 4 


0005// 


OdOOOO 


455 


000524 


000000 



. SKTTl MODUl K S10RAUE ARK A 

; VERSION 2.0 F'OR RELEASE 

; XRQADO - THIS MODULE IS ADAPTED KREFK f FROM XDUBC . 

; THE GENERAL STRUCTURE IS THE SAME, BUT SOME DEVICE 

j SPECIFIC CODE WAS ADDED. 



; RQDX IP: .WORD 
RQDXSA; .WORD 



r a a x 



= as-i3ait*ia-ji3i 



I HE St STORAGE AREAS ARE 
CONTROLl FR. 



RQDX POLLING REG 
RQDX STATUS REG 

-^^saaaaasatr-^ e4 = ----t:-j .. 

USFD FOR COMMUNICATIONS WITH THE 






- ■-- > = 



CINTR: 


.WORD 





RINTR; 


.WORD 





RSPONC: 


.BLKW 


1 


COMMND: 


. BL KU 






.WORD 





• X S X X — - 


4 a - * - -■...-■ 


- 3 * - . 


RSPLLN 


.WORD 





RSPVIR 


.WORD 





RSPACK 


.Bl.KW 


30. 


• = - 1. * * 1 


a k a ■ ■ i i 


- a * i -. 


CMPLEN 


.UORD 





CMPVIR 


.WORD 





CMPACK 


.BLKW 


30. 









COMMAND INTERRUPT INDTCATOR 
RESPCNCE INTERRUPT INDICATOR 
MESSAGE RING 
COMMAND RING 



RESi'ONCE 
RESPONCE 
RESPONCE 



PACKE T 
PACKET 
PACKE T 



LENGTH 

VIRTUAL 



CIRCUIT 



COMMAND PACKET LENGtH 

COMMAND PACKET VIRTUAL CIRCUIT 

COMMAND PACKET 

THESE STORAGE AREAS ARE TO KEEP TRACK OF THE ABOVE C0MMNICA1 ION 

AREAS, 



456 



CMORFF 

BiTCNT 
DMEOC 

ENDCOD 


.WORD 
.WORD 
.WORD 
.WORD 









; ADDDF 


JESS MAPPING Am 


VA : 
PA; 
EA: 
EO//: 

HT//: 


.WORD 

.WORD 

UORD 

.WORD 

.WORD 


COMMND 
OPl N 
OPEN 





NUM : 
01. DP A: 
01 OK A; 


. WORD 

.WORD 
.WORD 






sAvPA: 
i-AVEA: 


. WORD 
MOUO 


t 




COMMAND KEF E PENCE 
BiM COi'NT 
DATA E0CA1 ION 
END CODE EXPECTED 



NUMBER 



GENERIC VIRTUAL ADORE 
GEN* ?•' IC PHYSICAL ADDR' 55 
GENERIC FXTFNDKD ADDRESS 
// HI T LOW ORD> R ADDRl 55 
// BIT HIGH ORDER ADDRESS 

AUDMl SS USFD IN OTOA 
I HE OLD PHYSICAL ADORt 55 
THE OLD EX TENDED 
RODX WLl I 

5AvF I! I -i\ NEl UEU 

SAVl D EA 



FOR GETPA 



AOORt 55 li) CHECK 
HI m LN1TED 
FOR DUP 



IF 



KUAl) DI-.CMl 515H.M 
MOOULF STORAGE ARF.A 



Nil 
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SEQ 13 



458 






4 y* 




00001/ 


4^0 


000526 


00001 / 


4b 1. 






46^ 




027340 


4b3 






4t>4 


000530 




466 






46 7 






468 


000530 






O0053h 


000 




00053 / 






000545 


000 




00054b 






000554 


000 




000555 






0005b 3 


000 




000564 






0005 I? 


000 




0005/3 






000601 


000 




oookv 






000t» 10 


000 




OOOmI i 






000617 


000 



469 



PHTNUM 


* 15. 




PRNM5G: 


.WORD 


PI 


THICK - 


12000 . 




T( MP : 






ADR' X: 


. HI KB 


t> 




.Otll 





.i:ndm 






ADR1: 


.RLKO 


r., 




.»* u 


(.) 


ADR." 1 : 


.Hi KB 


b 




.BMC 





ADR 3: 


.HI KB 


b 




.BiT*. 





ADR4 ; 


. BL KB 


t, 




.HI K. 





ADR 5: 


.Bu<B 


b 




.Hi T E 





ADRb : 


.HI KB 


f, 




,BtT{ 





ADR 1 : 


.HI KB 






.Hi T{ 





ADRtt; 


.Hi KB 


r , 




. ft l T 1 







.EVEN 





PRTNUM 



jPRINT Mf.'.i'WUJL fVC.Ri 15TH 1 IMC 

;PRINT tjORI) SAVfcS THC VALUE TO CHECK FOR UHFN 

; AN LND OP PASS MCSSAbf IS WPUTCN 

jTIMCR TO WAIT 2 3 5CC0N0S AFTER DAP COMMAND 

j LABEL FOR CQNVENIANCE. 



ROAD OF C 


Ml m 


Ml M t\\ 


MORt 'V-! 


nil STORAOif 


4 *1 






4 V 






4 * T < 


•UXWO 


000000 


4 "4 


OOOt^Y 


000000 


4 'S 


OOOtvM 


000000 


*« *ti 


OOOfn>» 


000000 


4 * ' 






4 '8 


000*50 


000000 


4 '•• 


OOOt^V 


000000 


4 80 






481 


000*54 


000000 


4 8/ 


000* *t* 


000000 


48* 






484 


000*40 


00^000 


4 8S 


000f>4/ 


000000 


4*r 






4* * 


000*44 


00000 1 


4 88 


000*4* 


000000 


48'* 


000* SO 


000000 


4 V 


OOObbZ 


000000 


4^1 






4^. 




00 s* *o 


405 




000004 


4 l U 






4 -»S 


000*'. 4 


000000 


4^r- 






4^ ' 




00000: 


4 ->8 


000* S* 


000U t ?0 


4 4«* 

SOl 






S^l 

1 % > 






*\ 1 






so* 






SO 4 
Si' 1 


000 :s* 




> V ■ * 

S0f* 


000 -v>*. 


000000 


so.* 


000 ? to 


000000 


son 


000/^0 


000000 


so* 


000 iVj4 


000000 


SIC 


000 /** 


000000 


Ml 






SI/ 


000 / 70 


000000 


!-M 


000/// 


000000 


S14 


000 ; -'4 


000000 


SIS 


tH.V ' >. 


000000 


Sit, 


OOiOOO 


000000 


5i? 
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.SHin MORt MOOUt STORAGF 



SfcQ 14 



F I »Vis j 
t RMF I 0: 
OHN : 
SF TM Gj 


.WORD 
.WORD 

.WORD 
. WORD 









Xs>Cl : 
XStCH: 


.WORD 
.WORD 






Rsf Cl ; 
HStCHj 


.WORD 
.WORD 







UNS/l : 
UNS/H: 


.WORD 
.WORD 




(5 


DVICI- : 
IHi : 

UNI HI , 
WORK : 


. WORD 

.wear 

.WORD 
, WURO 


1 


I) 



T 1M0UT 
Rl TM * 


• 5000. 
4 





ISRX; 



.WORD 



i$ -1 




T ABl fc W j 


.RfPT if,. 


.Nl 1ST 






.WORD 0,5$ 




$$ »**»i? 



.1 IM 
T| NO; 



.F-NOR 



RVA; 


.WURD 





RlHPrtj 


.WORD 





R18F A; 


.WORD 


I.) 


R/.'PA; 


.WORD 





R/.'F A: 


.WORD 





WVA; 


.WORD 





W18PA. 


.WORD 


I 


UlHf A: 


.WORD 





W.VPrt: 


,WURD 


(1 


UJ2E.A; 


.WORD 


i> 



MOOUt F F LAGS 

LRHOH FLAGS F ROM DUP PART OF MOOUlf- 

DBN FOR DUP 

SOKT.E-RROR M AGS 

CURRF.NT VICTOR L.O ORDER ADDRESS FOR [)x 
CURRFNT SF-CTOR HI ORDFR ADORFSS FOR D/ 

O'RRt-NT Sf.CTOR 10 ORDKR ADORFSS FOR DR 
CUPRF.NT Sf-CTOR HI ORDFR ADDRf.SS F OR DR 

UNIT Si/K 1.0 ORDi R l.IMJT FROM ONLINF- CMNU 
UNIT SI/F- NT ORDFR I IMIT 

OFVTCF TO TfcST 
NUMB I: R OF TRUs 
SAVK UNI r Fl AGS 
TFMPORARi WORK ARBA 

TTMF OUT GADGF 
RF TRY t IMIT 

BITMAP, SF- T IF DfcVlCF IS R * . Ct-F-AR U RD 

SF T UP HIT MAS' 



jf NO MAR"f R 

jRFAO H-iFFif srRnC r ijRt FOR ,V FU T ADORF iS 



iWRUfe UUF-t-tR iTRuCTURl >-'0* A- UU AOURtSs 



M^-ii P'S^cATf^fjAVn lvlnclstR M " rt CRO Ml.'OO iW APR HO U,:M PA(il l f . -,Mj j«. 



M"> . SBMl MODULI PRIVAU DATA 



I, • 

■'Si 

I- '< 



slv 

|, 5; 

«,$•• 

',40 

l wl 

r »4 v 
S4 5 
S4-1 
S4'. 

S4^ 
?.4 * 

:.i4s 

r w't 
c iSO 
SM 
SV 

t » t; 

V»4 
SV. 
V»*« 

v>y 



V:- '■ 
'•»■ ' 



c, ■' I 



OOOOOl 



j ♦ MACRO OH' INI T IONS 

. fiRTTI MACROS 
1 IN CASb NO SOB INSTRUCTION 



NOSOB 


• 


1 


. MACRO 


SOB 


H^C, TO 




Dt.C 


Rhti 




RNF 


TO 



. i NOM 



.MACRO 


PUSH 


A, 


B.c.n.t- 




MOV 


A. 


t Rf. ) 


. n 


NB 


B 






MOV 


B, 


(R6> 


. F NDC 








. U 


NB 


C 






MOV 


c 


( Rft > 


, f NDC 








. I* 


NB 









MOV 


0, 


•(Rfr) 


.{-NDC 








. IK 


NB 


t 






MOV 


e . 


(Rb) 


. * NDC 








.{■NOM 









;*t»**l**M»UMM**M*»MM»M*»«(*MM(MMtMMM4»Mtt*M»M»MMM* 



.MACRO 


POP 


A , H , C ■ l> . t 




MOV 


l Rh ) . , A 


. U 


NB 


B 




MOV 


CRf ■ ). .0 


. 1 NDC 






. IK 


NB 


C 




MOV 


<: h*-. w , c 


.* NDC 






. H 


NB 







MOV 


l Mi, »» ,0 


. t NDC 






. n 


NB 


1 




MOV 


, Rr.^.t 


.fNDC 






. [ NOM 







;* + *♦. fc***fc****t***4**t**4***********tfrVt4+.&*-*t**4.***%****tt**t**l**l*.**.t 



t^« 
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SCO 16 



*» . t 




s V 




s • • 


00000 l 


S \* 


00000^ 


S **» 


000004 


S80 


0000 10 


M*l 


0000^0 


S8/ 


000040 


Stv* 


000 i 00 


^tf4 


OOOAX) 


SSS 


000400 


S^ 


00 1000 


*K 4 ' 


00^000 


SS8 


004000 


S^ 


010000 


v»o 


OS.OOCO 


i,,,. 


0^0000 


W 


100000 


v>5 




l ^M 


OOOOOr? 


s^s 




S^t, 




s^ • 




*V*rt 




l \W* 


00000 I 


f->00 


00000,' 


f 01 




'XV 


000004 


*v 5 




*»04 


000010 


t»OS 






COS 000 


• »0* 


004000 


M' v « 




•*K 




'-:: 




»'!..' 




• 1 1 .* 


000000 


• < 1 • » 


000001 


'■!'■ 


000005 


*-l». 


000004 


M ' 


0000C6 


M* 


0000 v 


M'* 


0000 '.4 


► ,. i. 


0000 5* 


•».•: 


00005/ 


* ■ 1 1 


00004 5 


» lt ' 


OOOOiil 



, SB Tit tUUATtS 



HUGO ■ 


1 


DP01 * 




HI TO.? ■ 


4 


BIT05 > 


10 


BIT04 - 


?Q 


BITOS > 


40 


DIT06 • 


100 


HI TO/ = 


?00 


BITOfl 


400 


BIT09 • 


' 1000 


RIT10 ■ 


• t^OOO 


BIT 11 • 


40C0 


Bill? ■ 


• 10000 


BIT15 


• 00000 


BIT14 


» 40000 


HIT IS 


' 100000 



JPPtR 



STATUS BITS 



bi?4 



SR.PAK 


* BITOO 




SR.RON 


* BIT01 




SR.RE'P 


« BITO? 




SH.SUM 


- BIT05 




SR.SFQ 


* HIT 10 




SR.CMP 


- BIT U 




• 
* 


b'RRUR BITS 


ERR.O - 





1 


ERR. 1 * 


1 




E MR . 5 


f 


• 


tRR.4 > 


4 


i 


FHR.6 - 


f> 


1 


I.HR..V 


■■ .V 


1 


ERR . 54 


- 54 


9 


E R« . 5h 


■ 5*-. 


1 


E RR . * 1 


* '. .' 


• 


l.HR.4 5 


. 4/ 




LRK.51 


* h\ 


l 



PRINT OUT PACK I- T, I - rf S 

MEANS RFAO ONI 1 

1 MF.ANS URITf , READ, CHt C»< 
REPORT FRROR AS THh OCCUR - REPORT, 

I * DON' r REPORT 
RE: PORT FRRORS ON F.NO O*' PASS - RhPORT, 

1 - DON' T PtPORT 
DISK ADDRESSING SEijnENTTAl, 

t - RANDOM 
DATA COMPARE- * DO DATA CPMpARf , 

1 - DON" T DO DATA COMPARE- 



NO J DH'INtD 

DAI A [ RR OR 

CONTROI LE R NO I READ' 

BL OCK NOT EOUND 

DRIVE. N01 READi. OM I IN* OR NON bMSTLNI 

NRR ERROR 

'.'NABL.E TO 

•'NABll TO 

nNABLE. TO 

CRC f RROR 

SfcfcK fcRROH 



LNTIAi. I/e ERROR 
READ FRROR 
WRITE tRRUR 



RQ4D 01 C 


Ml MSM N EXERCISER 


RUD\ tM i 


DEFINITIONS 


t>.> 




f-O .' 




tOc* 




"^° 




toO 


004000 


t-51 


010000 


^ V 


0^0000 


to* 


040000 


r\,5** 


100000 


t-5 r « 




n?r 




r^ " 




i..'.^ 


003 ■.•?■.' 


• *.<*■» 




r»4 




► mJ ' 




»-!/ 


00 .WOO 


^4< 


000400 


^44 


001000 


t,4S 




h.V.. 




f>4 ' 




t>48 


0001 V 


hi^l 


OOO.W 


f/.O 


00 '400 


r>M 


i *oooo 


^v 




#.<S5 




»>S4 




^V- 


0001 ' ' 


»»S»i 


OOOJOO 


•Vl .' 




»iS8 




nV» 




*\t*K 




•">>1 


00000 1 


»»»!.. 




»ir, ». 




r,*,4 




<->.S 


oooo i : 


♦ >»•>»-, 


000560 


»>>. ,' 




r.rjH 




».') l < 




f, ,"r * 






040000 



'. *4 



t % ' 
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.StHll RQDX BIT DEE TNI ! IONS 

jRQDXSA REGISTER UNIVERSAL. READ BIT- 



SEQ 17 



SA.S1- 004000 

SA.SP- 010000 

SA,S3< 020000 

SA.S4* 040000 

SA.ERR* 100000 



j STEP 1 STATUS BIT 
j STEP ? STATUS BT T 
{STEP 3 STATUS HI! 
{STEP 4 STATUS BIT 
{ERROR INDICATOR 



{RQDXSA REGISTER ERROR STATUS BIT', 

SA.ERC- 005//' j ERROR CODE 

jRQDXSA REGISTER STEP ONE READ BITS 



SA.CTP- 005400 
SA.DIA= 000400 
SA.QB - 001000 



; CONTROLLER TiPE 

jDIAG BIT IN RQDXSA 

j SAME - DENOTES QBUS SUPPORT 



iRQDXSA REGISTER STEP ONE WRITE HITS 



SA.VEC* 0001 // 

SA.INT' 000?00 

SA.RSP- 007400 

SA.CMD J 170000 



INTERRUPT VECTOR (DIVIDED Hi 4) 
INTERRUPT ENABIE DURING INI T T Al I/AT ION 
RESPONCt RING LENGTH 
COMMAND RING LENGTH 



jRQDXSA REGISTER STEP TWO READ BITS 



sA.va * oooi '' ' 

SA. INI - 000200 



j JNTJ RMi.iPI y{ CTOR \ CW 
i INTERRUPT ENABLE ECHO 



{RQDXSA REGISTER STEP TWO WRITE BIT 



SA.PRG- 00000 I 
jRQDXSA REGISTER STEP THREE READ HITS 



jlOW .iHlHR Mt v.AGt RtNo B « U. ADORE V; 
jtNAHi t VAX UNI BUS ADAPTER PURGE. INTERRUPT 



SA.RSh • 00001 .' 
SA.CME- 0003t»0 



{ Rt .PONCE RING ItNu'H k ChO 
{COMMAND RING ItNGTH ECHO 



000001 



; RQDXSA REGISTER SUP THREE WRITE BIT^ 

{HIGH ORtn R ME.S'.Ai.t RING tM Tt ADDRESS 
SA.UC D40000 jt AST f- All URL COD* RtQUE^T 

{ROnv>A RMil'.TMl UK 1 MluR Rt AD BIT-, 

iRUaxSA REG! >Tfc H .TIP J-'OUR WRITE BITS 

SA.GO* WHO juO UU '0 S1AR1 RUQX * iR«fc4Mt 



ROAD DEC Ml Sv 

COMMAND MESSAGE 



;1EN t XKRC1SI R M MACHO Ml/OO 
DESCRIPTOR BIT MUNITION 1 ; 



O^-APR 80 16:31 PAW: ltt 



SfcQ 18 



t> , * 




f-SO 




t>Ai 


100000 


tiS," 


00 0000 


•j»S * 




t>84 




t»t*S 




f>^r 


000010 


r,tf * 


O00C60 


tn'A 




r%8 v > 


^00000 


t^\V 


00000/ 


ei'M 


000/04 


«>--v 


00000b 


*,-*5 


dOQS .'*» 


hO.; 


000356 


»^)S 




»,\»t* 




tV> ' 




t^.»8 


000001 


t, 1 *^ 


0000/0 


-\v 


000010 


voi 


0000/1 


'.'0/ 


000040 


7t>5 


000015 


'.'04 


oooo;v 


70S 


0000/3 


*'*Ofc 


00000? 


V.' 


000005 


'.'08 


000011 


**0'« 


00004 1 


'10 


0000/4 


11 


000004 


'.' L-: 


00001/ 


•■! / 


00004/ 


• '. 4 


000050 




0000 *> 1 


■ 1*. 


000/ 00 


■ 1 ' 


000100 


" 1 i 


oooifii 


"IS 


00010/ 


'/, r 


oooioa 



.SBTTl. COMMAND/MESSAGE DESCRIPTOR BIT DEFINITIONS 



RG.OUN- BIT 15 
RG.ELG- BIT 14 



{SET WHEN RUDX OWNS RING 
[FLAG BIT 



jOFF'StTS INTO HOST COMMUNICATIONS AREA WITH ONE DESCRIPTOR TO EACH RING 



HC.SI7* 8. 
PKTSI/- 48. 

HC.RES- 0. 



HC 

HC 
HC 
HC 
HC 



RCT 
CMD 
CCI 
RPK 

CPK 



SBTTL COMMAND 

OP. ABO' 
OP.ACC' 
OP.AVL ■ 
OP.CCD* 
OP. CMP- 
OP. DAP = 
OP . ERS - 
OP.K.U' 
OP.GCS- 
OP . GUS ' 
OP, ONE- 
DP . R r j • 
OP . 'API » 

or. sec - 
op . sue - 

OP.WR- 

0P.MRD- 
OP.MWR< 
OP. END - 

AVA ' 

ERl. • 

: ,HC - 
ACP - 



4. 

h, 

RSPACK 

HC.RPKvP:<TSI/ 

PACKET OPCODES 



OP 
OP 

OP 

OP 



01 

/o 

10 
Zl 
40 
13 

/; 

."3 

0/ 

05 

11 

41 

/4 

04 

1? 

4/ 

30 

51 

c'00 

100 

lot 

10/ 
10/ 



I SIZE OE HOST COMM AREA IN BYTES 
jSIZE OE PACKETS IN BYTES 

jRESPONCE RING START 
iRESPONCE RING CONTROL WORD 
{COMMAND RING START 
{CONTROL RING CONTROL WORD 
{START OK RESPONCE P*0<1\ BUH f R 
jSTART OF COMMANO PACKET BUFFER 



{ABORT COMMAND 

{ACCESS COMMAND 

lAVAILABt.fr COMMANO 

{COMPARE CONTROLLER DATA COMMAND 

{COMPARE HOST DATA COMMANO 

(DETERMINE ACCESS PATHS COMMAND 

{ERASE COMMAND 

{Fl USH COMMAND 

{GET COMMAND STATUS COMMAND 

{GET UNIT STATUS COMMAND 

I ONLINE COMMAND 

l Re AD COMMANO 

{REPLACE COMMANO 

j SET CONTROLLER CHARACTERISTICS COMMAND 

{SET UNIT CHARACTERISTICS COMMAND 

{WRITE. COM.IAND 

{MAINTENANCE READ COMMAND 

{MAINTENANCE WRITE COMMANO 

{END PACKET El AG 

jAVAtlABlE ATTENTION NESSA'S* 

jtRROR I OG ATTENTION MESSAl,E 

l SHADOW COPi COMPl (If ATTENION MESSAGE 

{ACCESS PATH ATTENTION MESSAGE 



72* 



i NoU : END PACKET LiPCuOt s y Al SO CAl li ENDCODE s ) ARE FORMl H» ADDING iHt l HO 
i PACKET i LAs ru 'HI COMMAND UPCODl , THf UNKNOWN COMMAND END RACKET CONTAINS 
i JUST THE LND PACKET KLAG IN ITS OPCODE *'IELD* 



1 .1, 



RlJAP IMC All Sv;il-.M EXERCISER M MACRO M1 ( H)0 09- APR 84 16:51 PAGE- 19 
COMMAND MODIFIERS 



SEQ 19 



■* .V 



V8 


040000 


\y* 


I 00000 


'V 


(U 00 00 


*5l 


004000 


* 5 , ' 


00.\)00 


"V< 


001000 


'5*1 


000400 


*? 1 ' 


000 .\\> 


**», 


000 100 


*.* ' 


000040 


'VH 


00000 1 


* f * 


00000 I 


'40 


OOCKHV 


*41 

'4* 


000001 




:44 




"4S 


000^00 


,'4t. 


000100 


'4 ' 


000040 


MS 


OOOOc^O 


/4'» 




,'SO 




*M 




/V 




>M 


00000 I 


.".4 


00000/ 


' c i c -i 


1 0000 


"Sti 


040000 




OOO.'OO 


■;v.8 


004000 


":v> 


(KVOOO 


y*.r 


000040 


"vi 


OIOOOO 


V»» v ' 


oioooo 


7b 5 


000004 



.SBTTL COMMAND MUDlf IE.RS 



MD.CMP 

MO . E XP 

MD . t RR 

MD.SCH 

MD.SCl 

MD.SEC 

MD.SFR 

MD.SSH 

MD.WDN 

MD.WRV 

MO . SPD 

md.f eu 

MO. VOL 
MO.NXU* 



040000 
100000 
OIOOOO 
004000 
00?000 
001000 
0004 00 
000,700 
000100 
000040 
000001 
000001 
00000c* 
000001 



SBTTL END PACKF.T El AGs 

EF .BBR* 000200 

Ef.BBU- 000100 

EF . t_ Oi; ■- 000040 

EF.SEX- 000020 



SBTTL UNIT FLAGS 



Uf .CMR- 
U'.CMW- 
Uf" . RPt • 
' IF . 1NA- 
>.» .RMV» 

uf'. i :.ch- 
>.» . c iCl ■ 
Uf .WBN» 
I. if , WPM« 
» ^ , WPS - 
UK. 5 76 » 



000001 
OOOOC 1 
OIOOOO 
040000 
0001*00 
004000 
OOi'OOO 
000040 
01*0000 
01000(1 
000004 



j COMPARE 

lF.XPRE.S5 REQUEST 

(FORCE ERROR 

{SUPPRESS CACHING (HIGH SPEED) 

{SUPPRESS CACHING (LOW SPEED) 

{SUPPRESS ERROR CORRECTION 

{SUPPRESS ERROR RECOVER! 

{SUPPRESS SHADOW TNG 

{WRITE-BACK CNON VOLATILE) 

{WRITE BACK CVOl A VILE) 

iSPIN-OOWN 

jFl USH ENTIRE UNIT 

jVOLATIl E ONLY 

{NEXT UNIT 



{BAD BLOCK REPORTED 
{BAD BLOCK UNREPORTED 
;FRROH I OG GENF. RATED 
{SERIOUS EXCEPTION 



{COMPARE Rl ADS 

{COMPARE WEITES 

{HOST INITIATED BAD BLOCK 

i inactive c :hadow set unit 

iRENUVEABlE MEDIA 

[SUPPRESS CACHING IHU.H SPEED) 

{SUPPRESS CACHING CLOW SPEED) 

{WRITE RAO* CNON VOl AT U E > 

jWRITI PRO It CH HARDWARE ) 

sWRUf PHOTECH -iOF TWAHL OR VOLUME) 

j5?6 B>TE SECTORS 



REPt ACEMENT 



— ' 



ROAD Oil Ml m ;rtM EXERCISER M MACRO Hi, '00 
CONTRA i h»i M.AliS 
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SEQ ?0 







, *» 


000?00 


V8 


000100 


/ti 1 * 


000040 


'.' V 


0000?0 


'* ' 1 


00000? 


9 * * 


000001 



.StUTl CONTROl l.F.M Ft AllS 



CF 
CF 
CF 
CF 

CF 

CK 



. AVI. ; 

. MSC ; 
,OTH 
. THS 
. SHD 
.S76 



00G?00 
000100 
000340 

cooo?o 

00000? 
000001 



{ENABLE AVAILABLE ATTENTION MESSAGES 
{ENABLE MISCELLANEOUS ERROR t OG MfcYjAliE 
{ENABLE OTHER HUli!"J * RROR LOG MESSAGES 



j ENABLE THIS HOST'S ERROR LOG 

■'.HADOWING 

;576 BYT£ SECTORS 



MESSi 



SBTTt. COMMAND PACKET UF*SEIS 



; GENERIC COMMAND PACKET OFFSETS: 



~t * * 


000000 


" *y 


000004 


■* v * 


0000 10 


"80 


00001? 




000014 


7 8? 


ooccvo 


\H< 


0000?0 


"84 


0000?? 


/8S 


000054 


78^ 


000040 


78 ' 




78M 




78'* 


000014 


7<>o 




7^1 




7 % V 


00001*. 


7 «'• 


0000? 


7 l >4 


0000? 4 


;<*s 


000034 


?■■»., 


000040 


7'* .' 


00004? 


7 ->H 




,' •" #' * 




■^00 


OOO^t 14 


MOV 




MO? 




80', 


000014 


804 


0000 U. 


80'. 


oooo?o 


8 Of . 


00(H)?? 


HO / 


0000?4 


80* 




80' * 




hh' 


0000 44 


811 


000040 



CM « 
UNIT 
UPCD ; 
MOD' 
BCNT 
BUFF 
ADPA 
ADE A 
LBN- 
SET W 



0, 

4. 

8. 
10, 
1?. 
16. 
lt>. 
18. 
?8. 
??. 



.COMMAND REFERENCE NUMBER 

{UNIT NUMBER 

i OPCODE 

j MODIFIERS 

jByTE count 

j BUFFER DESCRIPTOR 
(BUYER'S PHiSICAL ADDRF. S . 
{BUFFER'S EXTtNOEO ADDRESS 
(EOGICAl BLOCK NUMBER 

: SOFTWARE WORDS 



( P.BU> i 
(P. BUF>' 



ABORT AND GET 
P.OTRE, 



COMMAND STATUS COMMAND PACK* f OFfStTS; 

1?. {OUTSTANDING REFERENCE NUMB* R 



; ONLINE AND SET UNIT CHARACTERISTICS CUMMAND PACKET OFFSETS 



UNH. 
HSTI 
UNT1 
ELGE 

SHUN 
CPSP 



14 
lb 
?0 
?8 
5? 



j UNI I F L AGS 
(HOST IDENTIFIER 
;UNIT IDENTIFIER 
j ERROR LOG f LAGS 
jSHADUW UNI r 
iCOPi SPEED 



REPLACE COMMAND PACKET OFF SE T S : 

P. RON* I?. ;REPl ACEMENT Di OCK NUMBER 

SET CONTROLLER CHARACTERISTICS COMMAND PACK t I l.)H SE T S j 

P.VRSN" 1?. [MSCP VERSION 

P.CNH •■> 14. iCCNIROilEN MAGS 

P. HTML)' It.. jHO'.T T I Ml OUT 

P.USM - 18. [US* FRACT ION 

P. TIME ■■ .0. jOUAD WORD TIM* AND DAM 



{ MAINTENANCE READ 
P RolD- » 8 



R»RGOF- 



ANO MAINTENANCE uRITE COMMAND 
jRU.MN ID 
I REGION OFFSET 



PACKET OFFSETS; 



KUA0 DEC 


Ml '..I'.IIN t XERC1SFR 


END P-\i>.l 


T OFFSETS 


815 




814 




81 S 




8 It. 


000000 


81 ' 


000004 


81 8 


000010 


M'» 


000011 


8 V 


00001.' 


8/1 


000014 


8// 


0000^ A 


8/ ' 


000040 


8/4 




8. ,r i 




8.Y. 


0u0014 


8/ ' 


0000/0 


H./.S 




8/^ 




8 50 


000014 


851 


00001*. 


85/ 


0000/0 


855 


0000/4 


H54 


000054 


8 5S 


000040 


8 5*> 


00004/ 


85.' 


000044 


8 f,^ 


00004*. 


MV* 


OOOOSO 


840 


0000S4 


8., 1 


0000 St. 


84/ 


OOOOS.' 


84 5 




844 




M4S 


000014 


84 ». 


000016 


84 ' 


0000/0 


84 8 


0000/ 1 


84 ^ 


000040 


HSO 


000044 


8 l .l 


OOOOSO 


MS t - 




8'.' 




HS4 


000014 




00001*. 


8'.^ 


oooo/o 


8*. ' 


oooo/-/ 


M',8 


0000/4 


8*/* 


0000 54 


H*.0 


00004/ 


8».l 




^'... 




M»,'. 


OOOO 00 


rt*,4 


000004 


r*.* .' , 


OOOOt)'. 


. * » > 


OiJOOlO 


-U ' 


*.H )»')<! 1 1 


J" ' ■ ' 


«MU'Pl t - 


fcW 


0UUO14 
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.SBTTl END PACKET UM SMS 



SEU /l 



GENERIC 


END PACKFT 




P 


CRF- 


0. 




P 


UN IT - 


4. 




P 


OPCD- 


8. 




P 


flgs» 


9. 




P 


STS- 


10. 




P 


BCNT« 


1/, 




P 


FHBK- 


/a. 




P 


SFTW» 


s;\ 


GET 


COMMAND S 


1ATUS 




P 


01 Rf '> 


1/. 




P 


CM5T- 


16. 


GET 


UNIT STATUS FN 




P 


MLUN- 


1/. 




P 


IINFI. - 


14. 




P 


HSTI- 


lb. 




P 


UNTI- 


/O. 




P 


DEV» 


Zfl. 




P 


SHUN* 


5c'. 




P 


SHST - 


54. 




P 


TRCK- 


36. 




P 


GRP 


58. 




P 


.CYL- 


40. 




F- 


.RCTS- 


44. 



OFFSETS! 



; COMMAND REFERENCE NUMBER 

{UNIT NUMBER 

{OPCODE (ALSO CAI I ED ENDCODE) 

{END PACKET FLAGS 

{MODIFIERS 

i Erne count 

5 f IRST HAD B! OCK 

{SOFTWARE WORDS 



END PACKET 



P. RUNS* 46. 
P RCTC* 4/ , 



OFFSETS: 

{OUTSTANDING REFERENCE 
{COMMAND STATUS 



{MULTI-UNIT CODE 
{UNIT FL AGS 
{HOST IDENTIFIER 
{UNIT IDENTTF IER 
{MEDIA TYPE IDENTIFIER 
{SHADOW UNI r 
{SHADOW STATUS 
{TRACK SI/E 
{GROUP SI/E 
{CYLINDER SI/l 
jRCT TABU SI/E 
S RRN / TRACK 
jRCT COPIES 



NUMBER 



5 ONLINE AND SET UNIT CHARACTERISTICS 



ML UN- 
UNF I. - 
HSTI » 
Uf'TI- 
SHUN - 
\ INS/ * 
VSER-- 



1/ 
14 
16 
/O 
5/ 
>i 
40 



jMU TI -UNIT 
{UNIT FLAGS 
{HOST 1DENTJF 
{UNI! IDF NT IF 
{SHADOW UNIT 
{UNIT SI/E 
jVDl.UMfc SFRIA1 



CODE 



IER 

IER 



NUMB* R 



{ SET CONTROLLER CHARACTERISTICS END PACKET OFFSETS: 



VRSN- 
CNTF « 
C 1 MO - 
CNCt - 
CNTI 
MF 01 * 
SHST 



1/ 

14 
16 

18 
/O 

54 



MSCP VERSION 
CONTROLLER FLAGS 
C0NIR0U1R 11MEUU! 
CONTROLLER COMMAND 
CONTROL IER ID 
MEDIA It PI 
SHADOW STATUS 



LIMIT 



ERROR i 00 Al lENf ION 
P.CRf o 

P . UN I I - 4 
P.CN! ■ ». 
P.OPCD 8 

P.M i.',- •* 



MESSAGE 



E 



i/OF - 10 



P.UiDl- 



-w * 



PACK! I OF F SI rs 

COMMAND REFERENCE NUNBER 
UNIT NUMBER 
COUNT 
OPCOUt 

\ RPOR i Oi. M AG:'- 
si.'t OR 0> f ■>[ : 
{STAR I Oi LHRJR LOG DAT*- 



ruao m c 


Ml l MSTEM EXERCISER 


ERROR I iH 


* HAGS 


a. 'i 




8,v 




8 '.< 


000/00 


8 M 


000 too 


8'S 


000001 


8 V 




8.'" 




8 '8 




a •-» 


oooooo 


8^0 


00000,' 


88 1 


000004 


88/ 


000014 


88 5 


0000 IS 


884 


00001b 


88' i 


0000/6 


$$f> 


0000/ / 


8* ' 


000050 


A88 


0000 54 


ftft*-* 


000040 


8^0 


00004 1 


8^1 


00004/ 


8'V 


000044 


8^< 


OOOObO 


8 i *4 




84S 




MVt> 




8*> .* 


00005- 


8 ( .»8 


000040 


8 *■) 


OOOOOO 


*>00 


000001 


l .XU 


00000/ 


^0/ 


000005 


**o* 


000004 


*»04 


000005 


l »0S 


000006 


l #0t. 


00000/ 


*M ; 


000010 


woh 


000011 


'»O l -# 


00001/ 


VIO 


000015 


'HI 

r #i/ 


000057 






•a*, 




*M''> 


000040 


•n ■' 


000100 


*MH 


000400 


**/( i 

*) ' i 


000/00 


*4 s 

**/.' 


OOt'040 


'.'. '4 


000 100 
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SBTTE ERROR LOG f-'l AGS 



SEU 2?. 



ef.frs- 
e> .i si - 

fcF.MIS- 



L.EVNT- 
l .SLOT- 
I .CNTI- 
L.CNTI* 
1 XHVU- 
I..UNTI- 
E.U5VR- 
I..UHVR « 
I .ERL.O 
I..CYL- 
L.liWP- 
L.1RCK- 
1.,'jCTR- 
I. .VSF'.R- 
l .DATA-* 



000/00 
000100 
000001 



{FIRST PACKET 
{LAST PACKt. I 
{MESSAGE MISSING 



ERROR LOG MESSAGE OFFSETS 



0. 
~> 

4. 
1/. 
15. 
14. 
2/. 
23. 
24. 
/8. 
3/ . 
35. 
34, 
56. 
40. 



{EVENT CODE 

5 St OT NUMBER 

{CONTROLLER IDENTIFIER 

; CONTROLLER SOFTWARE. REV J '.ION 

{CONTROLLER HARDWARE REVISION 

{UNIT IDENTIFIER 

{UNIT SOFTWARE REVISION 

;UNIT HARDWARE REVISION 

{ERROR LOCATION 

{CYLINDER 

{GROUP 

l TRACK 

j SECTOR 

{VOLUME SERIAL NUMBt R 

{EVENT DEPENDENT DATA 



STATUS AND EVENT CODE DEFINITIONS 



ST 
ST 
ST 
ST 
ST 
ST 

sr 

ST 

sr 

ST 
ST 

ST 

sr 



MSK- 
SUB- 

sue- 

CMD* 
ABO* 
OFl - 
AVE 
MFE " 
WPR ■ 
CMP« 
DAT = 
HST* 
CN1 » 
DRV- 
ST.DIA- 



3/ 

40 



1 

i 
i 

3 

4 

S 

6 
t 

10 
11 
1/ 
15 
* • 



H& 



SUBCODES i OR ST,(» I 

SC.NVl 40 

SC. I OP ■■ too 

sc.nis - 4oo 

'-COUP - /oo 

SUBCUDf '■') y OR ST .DHv 

SL.M'i - 4 

SCINV * 100 



STATUS / EVENT COOL MASK 
SUB CODE MULT I PI IER 
SUCCESS 

INVALID COMMAND 
COMMAND ABORTED 
UNIT -OH INF 
UNIT -AVAILABLE 
MEDIA ERROR 
WRIU PROTECTED 
COMPARE ERROR 
DATA ERROR 

HOST BUEFER ACCESS ERROR 
CON TROLL ER ERROR 
DRIVE ERROR 
{MESSAGE FROM AN INTERNAL DIAGNOSTIC 



i NO VO: UMt MOUN I * MR OR t \\ [) ] \A\, [ [ v 1 A R< 'N ■ ' UP *w \ ' C.fi 
iUNIT I NOP I RAT 1 Vt 

jiiNM OISAHMD Hi f IHD SERVICE OR INTERNA,. MAoNO;iUC 
{DUPLICATE UNIT NUMBER 



{•..l)t Rl '.PONCL T I Ml U' 
jINVAl ID SD1 RE SPONGE 



!<;■ 



RQAD DEC "Ml SlSUM EXERCISER M MACRO MU'OO 09-APR 84 16:31 PAGE 23 
DUP DEFINITIONS 



SEQ ?* 



951 
95 J 
^55 

Wm 

*-»5S 
95b 
*-»5 ' 
958 

l M0 
9*5 1 
^4/ 
w4 '< 
l i44 
04 S 

•Me. 

94 •* 
948 

94 r * 
9 SO 
%1 
9 t _V 

9 s; 1 . 

9S4 
9SS 
9Sh 
9S/ 
9S.« 

Wf.Q 
l '*»l 
9*. 4 -.' 

* ♦•:»:'. 

9#j4 
9b S 
9M-» 
«*^/ 
9f>8 
'ie>9 
9 70 
9/1 
9/ t - 
9 / ', 
9/4 
9/!, 
■ * >i 
9 / ' 
9 .-'ft 
9."* 
9.^0 
9*1 
98^ 



.SBTTL D'JP DEFINITIONS 

. RI fi 
ALL REMOTE PROGRAMS (ROM BASED OR MEDIA BAbED ) START WTTH A HEADFR, 
WHICH LOOKS LIKE THIS: 



15 

> 
> 







BYTE COUNT 



OVERLAY BYTE COUNT 



ASCII NAME 



- - - ♦ 
) 



TIME OUT > FLAGS 

t ....... . » 

LOCAL PROGRAMS HAVE AN EXTENDED HEADER, WHICH INC 

♦ —•--------- - - ...__-. 

> 



ASCII VERSION <> 

------ 

SPACE > 

DIAl L.i > STAND ALONE 

, ... 

BINARi VERSION # 



PROGRAM LODE 



00 
0? 

04 
OK 
OH 

10 
1.* 
14 

UDE 1 



N.BYTE 



N.OVRl. 



N.NAME 



N.FL AG N.TOUT 



16. 


N.AVER (H.ADRS 


1H. 




?0 . 




1 » 


N, At ON N.OLCG 


*M. 


N.BVt-R 


26. 


N.ADRS 



PROGRAM CODE. FOR 1 UC'AL PROGRAMS S'ARI'. A I' N.ADRS, WHEREAS CODE * OR 
HOST SUPPt IED PROGRAMS STARTS AT h.ADRS. 



fc 



1 / *400 
00001 .' 
000020 



j OTHER Ur.tMJL CONSTANTS, 

HlHi K - 1//400 
I ONltU - 01/ 
HIN1HL-* 20 



5MASI H)R IMF HTGH ORDl R BiTI . 

• MASK FOR !HL LOW ORDER NIBBLF. 

jMLU Tl'Pl TER TO SHUT DAI'A \0 HIGH NUUU k , 
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sf.q ?4 



^84 




48' i 




*»Sr» 




*»S.' 




^88 




98 ^> 




^\V 




iwj 


000011 


»*V 




^"-*? 




*W4 




9^S 


000014 


9')t> 


oooo i ; 


oo : 


OOOO.'O 


9^8 


000024 


^>)ij 




1000 




1 00 1 




100.? 


000034 


100< 




1 004 




100 s 




1 00m 


000014 


1 00 ' 




1008 




1 009 




1010 


000014 


1011 


0000 1 o 


101,' 


00001/ 


101 f 




10M 




101S 




1016 


000000 


ioi ; 


000004 


10JM 


000010 


101^* 


000016 


10 ( \) 


000017 


10,? 1 


0000<"!0 


io,v 


0000^6 


;o t .^ 


oooo;? / 


10. '4 


000C50 


hvs 


000032 


H». 




io. 1 / 




10,'H 




10, 'M 


000020 


1 ',(') 




1 o '■ 1 




10.V 




1 <■ .<■ 


000000 


1 '4 




10", 




:()',», 




10'.: 


OOOO 00 


* n'.M 


O0O0(.H 


* i ' • 


00000^ 



.SBTTl OFFSET AND K.AG DEFINITIONS 
OFFSET DFF LNITT.ONS. 



GENERIC COMMAND/RESPONSE PACKET, 



P.RSVD" 9. 

GET DUST STATUS RESPONSE 

S.EXT ■• lc J . 
S.FI.AG-- IS, 
S.PRGS* 16. 

s,Tour« ;?o. 



{RESERVED FIELD. 



PROGRAM EXTENSION. 

FLAGS. 

PROGRESS INDICATOR. 

TIME-OUT VALUE FOR LOCAL PROGRAMS 



EXECUTE SUPPLIED PROGRAM COMMAND. 



P.OVRL- 28. 
EXECUTE LOCAL PROGRAM COMMAND. 



{OVERLAY BUFFER DESCRIPTOR. 



t. .NAME- 1*?. 



; PROGRAM NAME. 



EXECUTE LOCAL PROGRAM RESPONSE, 



L.VERS- i;-\ 
I.. TOUT- 14. 
I.. FLAG* IS. 

LOCAL PROGRAM'S HEADER TABLE 

N.Bi'TE = O 

N.OVRL* 4 

N.NAME- 8. 

N.M.AG" 14. 

N.TOUT* IT). 

N.AVER* 16. 

N.Al.ON* ?.S. 

N.Dl.OG- *M. 

N.HVeR= ,?4. 

N.ADRS- «?**. 



{PROGRAM VERS': ON. 
iTIMF OUT IN SECS. 
j EL. AGS. 



Hi TE COUNT . 

OVERt AY Hi T' r . COUNT . 

ASCII NAME. 

i I AGS . 

TIME OUT VALUE . 

ASCII VERSION NUMBER. 

STAND -ALONE FLAG. 

STANDARD DIALOG M >,(,. 

BINARY VERSION NUMBER. 

START Of PROGRAM PROPER. 



HOST SUPPLIED PROGRAM'S HEADER TAHl F . 

H.ADRS N.AVER j START OF PROGRAM PROPER. 

SEND DATA It \T. 

S. T! XT O {ASCII Tt XT. 

RECElVt DATA TF <1 . 



104O 



U .Ml St. 
U. I 'PI 
R. ri-XT 





1 



Mt SsAGE NL'MBbR, 
hPt . 
ASCII TEXT. 



R,W DEC Ml SYSTEM f XERC1 SER 

OFFSt ! AND FLAG DEFINITIONS 



H"U 




104/ 




104 5 




1044 




104S 




1046 


000000 


104 ' 


000C01 


1048 


00000/ 


104'* 


000004 


10S0 


000010 


10S1 




:0'_/ 




1 ■.:•'. 5 




3.0S4 


000001 


loss 




; ost. 




l(\>: 




10S8 


00000 1 


aovj 


00000/ 


1 060 


000004 


1061 


000010 


106/ 




1063 




1 064 




106S 




10 66 




106/ 




1068 


00000 1 


10t^ 


00000/ 


10/0 


000005 


10 /I 


000004 


io/;: 


ooooos 


10/5 


000006 


10/4 




10/S 




10/6 




10// 


000000 


10/8 


000001 


1 Z 1 ) 


00000/ 


1080 


000005 


1081 


000004 


108/ 


00 00 OS 


1085 


000006 


1084 




108S 




1 086 




108/ 


0000/0 


1088 


000040 


108'* 


000060 


1 0'#0 


000100 


lU'H 


0001/0 


109^ 


000140 
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Kl.Atiij AND MODIFIERS, 



GET DUST STATUS RESPONSE. 

SE.1DL* 

SE.DIS- BITO 

SE.LOC* BIT1 

SE.5UP* BIT/ 

SE.ACT* BIT5 



SEQ 25 



SERVER IDLE. 

PROGRAM EXECUTION DISBLES ALL OTHER SERVERS, 

LOCAL LOAD MEDIA AVAILABLE. 

WILL NOT ACCEPT EXECUTE SUPPLIED PROGRAM. 

SERVER ACTIVE. 



EXECUTE l.OCAl PROGRAM OPCODE MODIFIER. 



LM.ALO- BITO 

REMOTE PROGRAM HEADER FLAGS 

PH.ALO* BITO 

PH.OVR* BIT! 

PH.HW « BIT/ 

PH.DLG* BITS 

CODES, TYPES, FTC, 



OP CODES 



OP.GDS 


- 1 


OP. ESP 




OP.ELP 


-■ 5 


OP . SND 


•, 4 


OP.RCO 


« s 


OP.ABP 


- b 


CODES. 




ST. SUC 


=-■ 


ST.CMD 


"■ 1 


ST.NRA- 


/ 


ST.NRS* 


5 


ST ,NON- 


4 


ST J AX.--* 


s 


ST. At = 


d 


E DATA 


MESSAG* T 


. ' . QUE - 


1*HINJBL 


. '. DEE- 


/*HINIRl 


. 1 .IN* ■■ 


5*HINHU 


, I TER- 


4*HIN1HL 


. I . I A I * 


S*H1NIHI 


.T.S^L* 


6*HINIQL 



{ALLOW STAND-ALONE OPERATION OF LOCAL PROGRAM 



STANDALONE. 

NEEDS OVERIAYS FROM THE HOST. 

OVERLAP rs R/W. 

PROGRAM USES STANDARD DUP DIALOG. 



GET OUST STATUS 
j EXECUTE SUPPLIED PROGRAM 
EXECUTE I ilCAL PROGRAM 
SEND DATA 
RECEIVE DA I A 
ABORT PROGRAM 



sue CE V. 

ILLECiAi COMMAND 

NO REGION AVAILABLE 

NO RIG ION SUITABLE . 

PROGRAM NOT KNOWN. 
LOAD i All URE, 
{STANDALONE. 



{QUESTION. 

jDEFAUl T OUST ION, 
; INFORMATION. 
; TERMINATION, 
[HWAl ERROR. 
{SPECIAL, 



M ) 



n;; 
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COMMAND LENGTHS (IN BYTES.) 



SI 1 AND 


FLAG DtriNlUON 


U v »4 




U'^S 




it'-'ti 




10*».' 


000014 


10^8 


000014 


10'J'i 


000050 


1100 


000022 


1101 


U 000 54 


110,' 


000034 


no>* 




110*1 




11 OS 




110m 


000014 


no; 


000026 


1 \os 


000014 


110^ 


000020 


1 1 w 


000020 


« i 1 1 


000020 



,C.ABO= 


12. 


.C.DUS- 


12. 


.C.SUP- 


40. 


.C.LOC= 


18. 


.C.SND* 


28. 


.C.RCD* 


28. 


SE LENGTHS 


.R.ABO- 


12, 


.R.DUS= 


?2. 


.R.SUP* 


12. 


.R.LOC - 


;6. 


.R.SND 


\h. 


*,RCD* 


16. 



SEQ 26 



(ABORT PROGRAM. 

;GE* DUST STATUS. 

i EXECUTE SUPPLIED PROGRAM 

; EXECUTE LOCAL PROGRAM. 

;SEND DATA. 

{RECEIVE DATA. 



ABORT PROGRAM. 

GET DUST STATUS. 

EXECUTE SUPPl It'.D PROGRAM 

EXECUTE LOCAL PROGRAM. 

SEND DATA, 

RECEIVE DATA. 



1112 



I 1 



ROAD Pt C Ml 
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SFQ f '/ 



1114 

111!' 
Hit* 
ill * 
1 118 

;i.v 

• 1 M 

» » « i 
li.Y 



11^4 
11.^ 

n.> 

1 1 ; ' 
1 1/* 

ii v 

1151 

\ % t - 

* 4 > ■ i 
Till 

11M 

1 1 5r 
11< * 
1 1 58 
1 1 <*« 
1140 
1141 

in; 

114< 
1144 
114*. 
1 14f 



.4* 



.StHH MODU.t CODi 

INU VAlUtS 
INIT RQDX 
XFt.R TO DISK? 
i Y PUR J - l.CVCl.h LIMIT 

; MAITKNANCF VJRITfc' 

MAlTE.NANCfc Rtf'J 
CHKK DATA? 

T C=«'Ci' 
I Nt X T J 

t T E OR J • I, CrCl I I TMIT 

j Itf T UNIT STATUS 

j IF DRIVE- IS NOT AVAIt ARt f , WAIT UNTU IT IS 

l DRIVI. THE-.Rf-? 

F" DROP 

All DRIVE S DROPPFD? 
T DROP MODULE 
f 
T ONI INF 
ONl.lNf. '.* 

T PICK Bl OCK I» RANDOM, l\\ T RAND .'> MO!) / 

hi. St. INCREMENT 

U IBN > t LM1T THFN t HN ■ 
WRI Tt 
RE AD 
CHE Cl< DATA > 

T CHE O 
AVAIt ABIE DRIVE I I ) 
F IMt Til RRIN', UNI INE Ai.AlN 
Nt ' T J 

1 



m^iM 1 Mii,i " r ' 
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SF-rj ^*s 



11 so 








l 


11M 










us2 










1 1 1 > 5 










11 SI 










1 l r ^ 










:i'-^ 










n*> • 










11 1 * 










us^ 


OOiOvV 






S 


llt>0 


00100.? 


042 76 7 


100000 


17 7654 


llci 


ooioio 


00506 / 


17/150 




iuv 


001014 


012 76.' 


000017 


1 7 7504 


ii6 5 


0010.V 


016767 


176766 


17 7614 


1164 


001050 


012 76.' 


i : 7 / * / 


17 7620 


llt>5 


001056 


00506 7 


17 74 50 




11 66 


001042 


104417 


000000' 




116 7 


001046 


01676? 


17 7002 


1 7 7554 


llbfl 


001054 


00506 7 


1 7 7552 




11 6* 


001060 


016767 


176770 


17 7546 


1170 


001066 


00506 7 


17 7544 




1171 


001072 


016 76 7 


176710 


17 7152 


A A • C. 


001100 


Qb?76i' 


00000." 


177144 


1175 


001106 


00506/ 


17 7404 




11 74 


001112 


00506 ; 


177402 





11" 

ii76 ooixio Qb^'t*; oooooi 177474 



START SEUUENCe 

V THE CODE IS RESTARTED, CLEAR THE OLD ADDRESSES SO THF- 
THE RQDX will. GET REINITED, 

START} 

j MUST BE CLEAR FOR LOOPING 

t CLEAR DATA CHECK ERROR COUNT 

i INITIALI/E PRINT WORD 

j DVICE HAS DESIRED BITS SET 

j FORCE TABLE SET UP FIRST TIME THROUGH 

I COMMAND PEL * u 

1 

j FOR RESTARTING ClNITIAl SECTOR AlMiK . 

, FOR RESTARTING (INITIAl SECTOR ADOR "> 

l STORE IN SA REG 

} RQDXSA Hf\^ PROPER ADDRfr V, 

S OLD PHTfSlCAl ADDRESS CI UWU) 

j HID EXllNDED AOQRfcSS C'.t AMI I) 

j THI>, wlLl MiRCE A RUUX RL1NIT TO TAKfc. PLACE 

I FLAUS » START 



BIC 


0BIT15, DVICE 


Cl.R 


CDERCT 


MOV 


ftPRTNUM.PRNMSG 


MOV 


DVI01. DVICE 


MOV 


i.TABLEU 


CLR 


CMDREF 


RAND 5 


.BEGIN 


MOV 


RANNuM.XSECL 


CI R 


XSECH 


MOV 


RANNUM.RSECl 


CI R 


RSECH 


MOV 


ADDR. RQDXSA 


ADO 


02, RQDXSA 


Cl.R 


OLDPA 


CI R 


Oi DEA 



or 



MUTO, KLAUS 



i ) '•. 



Rtf 42 OF C 
MOOl'l I 2 

I i :s 

II '*■' 

I ISO 

ns: 

11S2 
US' 
lisa 

US'* 

I I S« ■■ 
US * 
11SS 

118" 



\ : 
•in 
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11 V 

ivn 
1^2 
iw 

11 ^4 

ll v )5 

u c ^ 

11^8 
11** 
1200 
1201 
120? 
1203 
1204 

1205 
1206 
1207 
1208 
120 1 * 
1210 
1211 
1212 
1215 
1214 
1215 
1216 

121 ' 
1218 
1214 
1220 
1221 
1222 

122 5 
1224 
1225 
1226 
122-* 
1228 
12. ■'*# 

12 V) 

« ■ , ■/ ■ 1 

* ■ '» 

* 7 r 

u>.?4 



001124 
001124 
001132 
001140 
00114b 
001150 
001156 
001160 
001166 
00 11 72 
00 11 '.'6 
001202 
001206 
001214 
001222 
001224 
001232 

001234 

001242 
001250 
001254 
001260 
001260 
001266 
001270 
0012 76 
00 1 304 
001512 
001312 
001320 
001322 
001330 
001332 
001356 

00 1 5 56 
001 54 4 
00 1 352 
00 1 360 
00 1 566 

or; 1 I ?o 

001'/'. 
0014</4 
00X412 



012. '*: 

104415 
032:6 7 

001404 

104416 
000416 
016767 
00626 7 
006267 
00626 7 
00626 7 
01676/ 
026 767 
001004 
02676 7 
001412 

016 76 7 
016767 
004 76 7 
00506 7 

032 76 7 

0014U 
042 76 7 
016767 
016 76 7 

52 767 

001006 
02676 7 
00100? 
004 76 7 



01277 7 
012 767 
104415 
52/6/ 

001420 

1044 16 
C 1*2/6 ' 
6-1^ i't, : 
010767 



000260 
000000 
001000 

000000 

17 7320 
177314 

177310 
17 7304 
17 7300 
177274 
177270 



t 7/550 
000502' 
176 710 

000504 

177322 



17/2 76 
17 7274 



177262 17 7266 



1/7250 1/7254 
177244 17/250 
000550 



17 7366 

00000 1 

000001 
177214 



1 7 7532 

1 7 7 522 
1/7216 



177210 17/212 

000010 1764 76 

17 7200 176504 

000404 



004 7 70' 
012462 
000000' 
001000 

oooooo 

1 7 710." 
1 7 70 7*. 
1 770 72 



i 76444 
177150 
00050? 
I 764 70 

000**04 

1 Z'.W 
1 765 1>. 
1 7/344 



1 RESTART SEQUENCE 



CHF.CK THE ADDRESS OF THF. RINGS TO SE.t IF THE. i I'F.RE RELOCATED 
IF THEY WERE, RE INI T THE RQDX . 

GET THE. NEW ADDRESSES. IF THF DISKUSS OPERATION IS DESIRED 
THEN DO THE MAITF.NENCE WRITE AND READ. ELSE DO THE WRITE 

AND READ WITH A DRIVE" . 



RF.STRT: 

MOV 0RSPONC.VA j DID THE RINGS RELOCATE? 

GETPA* .BEGIN, VA t GET PHYSICAL ADDRESS FROM 16 BIT vA 

MIT 4ADDR22, CONFIG j CHECK FOR 22BIT ADDRESSING 



BEQ \\ 

MAP22S, BE (JIN, PA 





BR 


2$ 


IS: 


MOV 


PA.L022 




ASR 


EA 




ASR 


EA 




ASR 


EA 




ASR 


EA 




MOV 


EA.HI22 


2$: 


CMP 


t 022,01 DPA 




BNE 


RESTR2 




CMP 


HI22.0LDEA 




BEQ 


RESTR1 


REiiTR2: 


MOV 


L 022,01 DPA 




MOV 


HUV.OLDtA 




CALL 


IN1PRT 




CL.R 


TRX 


RE.STRlt 








BIT 


OfllTO.H AGS 




RFQ 


1$ 




BIC 


ffBITO.f 1 AGS 




MOV 


01 DPA.SAVPA 




MOV 


01 OF A , SAyt A 


1*: 








BIT 


05R.5UM,SRi 




BNF 


..$ 




CMP 


PRNMSG.PASCNT 




BNl 


2 J 


25: 


CAU 


PRT-iTS 




MUV 


0NTRUPI ,vvici: 




MOV 


GRBUf ,VA 



t.f ?PA$,BEGIN, VA 

HI! 4 ADDR22. CONFIG 

FIFO *'2i 

MAP.V*. BEGIN. r J A 

MOV PA.RBUf PA 

MOV EA.RBOMA 

MOV UJ22.R22PA 



j IF 18BH ADDRESSING THEN BRANCH 

; GET 22 BIT ADDR FROM 18 BIT ADDR 

: MOV 18BIT ADDRESS INTO 22HH SPACE. 
I ADJUST EXTENDED BUS SO THE i LINE 
j UP AT BITS £ 1 



j If OtO PHtS ADDR NOT * NEW ONI.' 

; OR 

; IF OLD EXTN ADDR NOT ■■« NEW ONE? 

j ; THEN 

i : SF T THF OLD RING ADDR 

s : AND THE 01 D FUE.NED ADDR 

$ : AND IN1T THE RQDX 

; : Ct EAR RETRl COUNT 

j INDU 

i If Ft AGS - START (ONI i DO DUP WHEN LOCATED HERE > 

THEN 
t : f'\ AGS ■' START CLEARED 

iAvE P2 

V.AVE EA 
j ENDU 

s IF WF WANT THE REPORT? 
THIN 

IF DC) WE PRINT? 

: THEN (ONI r ;r PASS COUNT U, RIGHT > 

: CAl L PRINT FOP STATUS 

I ND IF 
; I NO IF 

; GE 1 VFCTOR ADDRESS SET POINTER 
j MAP THIS TO 22 BITS 

tGET PHYSICAL AOOREs i > FROM l», Bt T \\ 
t CHECK FOR .\'[}n AODRF-SsING 
, BRANCH If 18 BIT ADDRESSING 

i L,E T t .V HI I ADDR FROM 18 Ml T \QV^ 
I Ml I IN Ri'FFFR ADDRF •".*> MIR CKDA!,\ •/.*.' 

i 1222 

j Fill IN UUFH.R ADURtSS FOR READ CMfl 
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1235 


001420 


016*6/ 


1 / / 066 


1/7 340 




MUV 


HI22.R22EA 


1236 


001426 


000424 








BR 


33$ 


123/ 


0014 30 


01676/ 


1 / /050 


1 764 70 


22$ j 


MOV 


PA.RBUf PA 


1238 


001436 


016767 


1 7 7044 


1 764^4 




MOV 


EA.RBU EA 


1239 


001444 


016/6 7 


17/034 


177312 




MOV 


PA.R22PA 


1240 


GO 14 V 


00626 / 


177030 






ASH 


EA 




00 14 St. 


00626 / 


1 7 7024 






ASR 


tA 


1242 


001462 


00626 7 


177020 






ASR 


EA 


124 3 


001466 


00626 7 


177014 






ASH 


LA 


1.744 


0014T2 


016767 


177010 


17 7266 




MOV 


EA.R22EA 


1245 


001500 


004/6 7 


OOlSPi^ 




33$: 


CALL 


SETUP 


124e> 


001504 


005/6/ 


1 7/134 






TST 


DVICE 


124/ 


001510 


001002 








BN* 


3$ 


1248 


001512 


104410 


000000* 






ENDS ♦BEGIN 


K'4^ 


001516 








3*: 






1250 


001516 


02676/ 


1767*M 


1767/6 




CMP 


OLDPA.SAVPA 


1251 


001524 


001026 








BNF. 


4$ 


1252 


001526 


026 76/ 


176766 


176770 




CMP 


OLDEA,SAVEA 


1*? 5 3 


001534 


001C22 








BNE 


4$ 


1254 


001536 


012704 


000656' 






MOV 


0TABLFW.R4 


1255 


001542 


036467 


000002 


17 70 74 




BIT 


2(R4 ), DVICE 


1256 


001550 


0014 14 








BEQ 


4$ 


125 ' 


001552 


03276/ 


000001 


177074 




BIT 


01.ISRX 


1258 


001560 


001010 








BNF 


4$ 


125<* 


001562 


03276/ 


000020 


176226 




BIT 


06 1 T4, SRI 


1260 


0015/0 


001404 








BEQ 


4$ 


1261 


0015/2 


004 76/ 


0040/4 






CALL 


DODUP 


1262 
^ ■>« 3 


001576 


00476? 


000222 






CALL 


INIPRT 


1264 


001^.02 








4$: 






1265 


001602 








L00P1: 






1266 


001602 


012702 


000001 






MOV 


*1,R2 


126 7 


001606 


026767 


177032 


17 7040 




CMP 


DVICE, ISRX 


1268 


001614 


001405 








BEQ 


1$ 


126 r » 


001616 


016702 


176176 






MOV 


SR2.R2 


12 '-'0 


001622 


001002 








BNt 


1$ 


12 a 


001624 


012/02 


000120 






MOV 


#80. ,R2 


12. '2 

12?1 
12.*4 


001630 








1$: 






'OH) 30 


012704 


000656' 






MOV 


ATARI I U.R4 


12 75 


-.01654 








2$: 






1 : :/'. 


0016 34 


03646/ 


000002 


1 Z7002 




BIT 


2(R4 j.DVrCl 


1 17 7 
A I. ' ' 


<^1642 


001424 








BEQ 


10$ 


12 n 


001644 


5646 7 


000002 


1/7002 




BIT 


2(R4 ). ISRX 


12."» 


001652 


001403 








BEU 


4$ 


1280 


001654 


022 702 


000001 






CMP 


"1 ,P2 


1281 


001660 


001015 








UNI 


10 5 


128; 


001662 


010246 






45j 


MGv 


R2, ISP) 


1281 


001664 


016/46 


1/6134 






MOV 


,R4, (>P) 


1284 


0016/0 








5$: 






1285 


0016/0 


004 /6 / 


OC1504 






CAl I 


c 1 a e 


1286 


0016/4 


10*402 








HC. 


w$ 


128/ 


0016/6 


005 316 








Ut C 


1 \P ? 


: .--84 


001 /OO 


0053/:? 








Hiil 


5$ 


:28'» 


001 /o;< 


005 V 






<n; 


in c 


I V). 


12-n, 


001 704 


0X2602 








MUV 


(SP>*,R2 


1291 

















'8 1 



SEQ 



J 

j F'll.l IN BUFFER ADDRESS FOR CKDATA 

J 

j F tit IN 18BIT ADDRESS FOR READ CMD 

I ADJUST EXTENDED BITS 



FILL IN BUFFFR ADDRESS HUP READ CMD 
i IND DRIVES/SET UP TABLE 
IF NO DRIVES TO DO 
: THEN 



END IF 

IF OLD PHYS ADDR » SAVE PHYS ADDR 
AND 

IE OLD EXTN ADDR - SAVE EXTN ADDR 
THEN 
R4 • APRS OF TABl E Of UNHNO AND P0RT1D 
IF DRIVE NOT DROPPED 
AND 

IF RD * AVAILABl E 
AND 

IF DUP OPERATIONS = SELECTED 
THtN 
CALL DO DUP 

CALL INIT THE HUDX l MUST DO AFTER DUP) 
END IF 
ENOU 
BGNDO 

SCALING FACTOR FOR RD 
IE RO 
THEN 
LOAD SCALING FACTOR 



DEFAULT RD SCALING FACTOR TO 80. 
FNDIf 
BuNDO 

R4 • ADRS OF TABLE OH UNITNO AND PORT ID 
BGNDO 

IF DRIVE NOT DROPPED 
THEN 
!► DRIVE IS AN RX { ACCESS ONL. 1 ONCE PER LOOP "J 
AND 

I*- LAST TIME THROUGH 
THEN 
R2 lb Kill ED IN OClED AND DRJF1 
CONSLCLUtVE ACCESSES TO DO TO A UtVlCt 
BGNDO 
: DO A DISK C » CL f OPERATION 

: [ xn on y All uwt 

: DECREMENT ACCESS CTR 
DOuNT 11 < U ONL) DO ONCE) 
DON' T TOUCH C BIT 

IF a CLE NOT SUCCESSFUL 



/ 



RUAD DEC Ml S>SIt-M tXERClSER 


module code 






10^0 001 /Oh 


103000 




10^3 001710 


004 76? 


000510 


10^4 






].?^S 






lO^h 001/14 






109/ 001/14 


060/04 


000004 


1.N3 001/00 


00646? 


000000 


io^ ooi /Oh 


10174,? 




1500 001/30 


005300 




1301 001/3.? 


001336 




130.7 0017 34 


104413 


000000 


1303 001/40 


000720 




1504 






130* 
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SEQ 51 



10$ 



1/6 7 It 



BCC 


10$ 


JSR 


PC, DROP 1 


ADD 


/>4,R4 


CMP 


0(R4),DVJ.Ct 


fit. OS 


0$ 


oec 


RO 


BNfc 


IS 


EN0IT$ 


.BElUN 



BR 



t.OOPl 



: THhN 
: CALL 
ENDIF 
ENDIF 

ENDIF 

POINT TO NEXT 



DROP DRIVE 



ENTRY Of THE TABLE 



DOUNTIL TABLE. ENTRY = DEVICE 

DECREMENT SCALE E AC TOR 
DOUNTIL SCALE FACTOR ■= 
MGNAL END OF ITERATION. 
MONITOR SHALL TEST END OF PASS 
ENDDO 



RiMD DK All S^STLM hXIRClSER M 
MODULI uW 



I. ) » 
MACRO M15O0 09 APR 84 16:51 PAtif 59 



SfcQ 55 



150.* 






.1508 






i 50^ 






1510 






1511 






151." 






1515 






1514 


00 1 


.'45 


1515 


001 


74c? 


15?.6 







♦♦♦A******************************************************************* 
PRINT KOP STATUS 

*******************************************.**************.****,********** 



PRISTS: 



06.? 76 7 000017 1765^6 



00 1 -■' SO 1 04 4 5 1 000000 

oor.'Sb ooo^yr 



00004 £ ?' 



1*1 * 001760 
1518 



1050b? 176560 



001764 1044;' 1 000000 

0017 75 000546" 

151^ 001774 105067 176555 
1350 



005000 1044?! 000000 ' 

005006 000550' 

1551 005010 10 506 .' 1/6 55 1 

1555 005014 104405 000000 

155 5 005055 00050/ 

1554 

IV 1 . 

rv*- 

1558 



000044' 



000144' 



007764 ' 



ADD 0PR1NUM.PRNMSG j PRINT WORD IS INCREMENT 

. A*.***************.***.*************.***********,***** * ********** * 

{CONVERT SOF'CNT TO ASCII AND 
.♦STORE AT ADR2 
HTOD* .Bt.GIN.liOF CNT , ADR5 

;************************************************************* 

CIRH ADR5*5 ; 

; **********************.****************, k ********************** 

sCONVF.RT HRDCNT TO ASCII AND 
; STORK AT ADR 3 
B TOD $ ( BF.G IN. HRDCNT, ADR5 

; ****************************************** ******************* 

CLRB ADR 3.5 { 

J************************************************************* 

jCONVIRT COtRCT TO ASCTI AND 
I STORE AT A0R1 
BTOD* .OF.r.IN.CDF.RCT , ADR1 

j************************************************************* 

CLRB ADR1»5 

MMiN$,HEGIN,t*RRPAS : ASCII MESSAGE CALL WITH COMMON HEADER 

HtTURN 



HLJAD 
MOt 



xn 



p 



i-.c 



,(V l 
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SET) 



1550 
1551 
155? 
1555 
15 54 
153 l > 
133t 
135 ' 

n<s 

15 50 

1540 

154 1 

154? 

1 54 5 

1544 

154'. 

134*. 

1 54 .* 

154^ 

154^ 

1 >50 

1351 

135? 

1553 

13S4 

135'-. 

1356 

1357 

1558 

1359 

1360 

1361 

136? 

1363 

1364 

13bS 

1 56b 

1 56 7 

156« 

1 569 

1 5 /O 

1371 

15>? 

1 5 .' 5 

1 5 74 

15/5 

1 



/6 



15 
13 



'<< 

15H0 
15*41 
15^2 
158 5 
158-1 

li&b 



002024 

00?024 

002030 
00.1036 
002044 
00205? 
002054 
002062 
002064 
0020/2 

oo;>o?6 
002102 

00? 106 
00? 11? 
00?1?0 
00? 1?? 
00?1?6 
00? 13? 
00? 1 3b 
00? 14? 
00? 144 
00? 146 
00?150 
00? 15? 
00? 156 



00. 16? 
00? 166 

oo n i'o 

00/1/4 
00??00 
00. "20? 
00 1 \ 04 



005077 
01276/ 
104415 
03? 76 7 
001404 
104416 
0004 16 
01676/ 
006?6 7 
006^6 7 
006?6 7 
006267 
016767 
005004 
01270? 
012/01 
017/00 
052/00 
00100 5 
005501 
001 5/1 
000404 

012/05 
00016 7 



5? 700 
00100? 
00016/ 

016/05 
00*.?05 
006205 

: >5?/05 
010'iOQ 



175756 
000260' 
000000' 
001000 

000000' 

176414 
176410 
176404 
176400 
1763/4 
176370 

000001 
02/340 
1 76114 
100000 



004 000 
0004/4 



004000 
00045». 

1 756 10 

10Q2GU 



INITIALIZE THE RCJDX 

DO THE 4 STEPS FOR INITIALISING THE RQOX , 



STEP 1 
STEP 2 

STEP 3 
STEP 4 



CHECK FOR ERROR, STEP 1 

SEND VECTOR/4, INTERRUPT ENABLE. RING LfcN' b 

CHECK VECTOR ECHO, INTERRUPT ECHO, 

ERROR. 511 P 2 
SEND PHYSICAL ADDRESS L FJRGE. •■= 

CHfCK RING LEN - 0, ERROR. STEP 3 
SFND EXTENDED ADDRESS BITS 



CHECK STEP 4 
SEND I FAR - 







GO AND BURST 

*********,************** ************ **.******f*i*****4*i*********A**4#*** 



1NIPRT; 



1764 '14 
000502 
176004 

000504 

176416 



176372 



11$ 



??* 
1$: 



;4t 
4 4 : 



Cl.R 8JADDR 

MOV ORSPONC.VA 

GETPA* .BEGIN, VA 

BIT V)A00R?2. CONFIG 

BEQ ill 

MAP^2J, BEGIN, PA 



BR 


??$ 


r.ov 


PA, 1. 022 


ASR 


EA 


ASR 


\ A 


ASR 


ea 


ASR 


EA 


MOV 


f A, Hi?? 


CI R 


R4 


MOV 


01 ( R? 


MOV 


aTIMf W,Hl 


MOV 


aRDOxsrt.HO 


III! 


A<SA,EiRR»,RO 


BNI 


?i 


dec 


Rl 


BNF 


1 i 


BR 


4$ 


MOV 


.754. 51 ,H5 


JMP 


t RRORl 


CMP 


.7- SA.51 •SA f UH»SA.DlA>,RO 


Ht 


5* 


HI t 


M,M ,R0 


BNI 


6$ 


JMP 


ERROR 5 


MOV 


VI CIOR.RS 


t\'M 


R5 


>VM 


R r . 


HI 1 . 


«'^V\. tNUaJU5.,R5 


MOV 


Rb.RO 



5 INITIA1 [/F 

; WRITE 10 RQDXIP TO INIT RQDX 

i VA > RSPONC 

;Gt T PHYSICAL ADORES') FROM 16 BIT VA 

{ CHECK FOR 2?Hir ADURtSSINU 

; IF" 18BIT ADDRESS [NO THEN BRANCH 

} GET ? t ' BIT ADDR FROM lH-HiT AD'jR 

a MOV ie«!T ADORE ?» INTO 22BIT SPACE 

j ADJUSTED LXTENDED BITS 



R4 IS USED IF AN F RROR l:i DE^CTED 
R? * sTf-p INDICATOR REG FOR MSG S 
,F 1 TIMt OUT I iMtl 
RO HAS RQOXSA DATA 
CHECK r OR FRROR 
IF FOUND. GE T OUT OF" LOOP 

TIME OUT 7 
IF NOT, I i)OP 
IF DONE. CON T I Nut 

R5 • STEP 1 BIT 
IF HER* , t RMOR 
1)10 DATA COMPARF PROPERM 7 
U SO, CONTINUE 
SIEP 1 HIT sf I; 
!?" Nt . tF l » 

REPORT tRKOR 

...... * > ■. » » % > , . % > . s r i p i 

VI CTOR lilV N 

St T 10 APF'ROPRIAU VAl UE 

VICTOR/ 4 
I NAHi t INU HiluFM 1 ., st : M .(; i 
STORE RS IN RO FOR SUBROUUNI 



;R;< vv: 



Wt 



RUAD DEC Ml 
MODlU CODE 
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SEQ 54 



1 58 / 
1588 
1 589 
1 390 
13^1 
139/ 
139 5 
1 394 
1 395 
1 39*% 
1 39 ' 
1598 
13- v< 

1400 
1401 
140/ 
1403 
1404 
1405 
1406 
140.* 
1408 
140 r » 
1410 
Mil 
141? 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
14.20 
14/1 
14// 
14/3 
14/4 
14/5 
14/6 
14// 
14/8 
14/9 
1430 
1431 
14 3/ 
14 33 
1434 
14 35 
14 56 
14 3.' 
14 58 
14 3'* 
1440 
1441 
144/ 



00// 1/ 
00// 16 
00//?? 
00///6 
00// 3/ 
00// 54 
00//40 



00// 4 4 
00// 50 
00//54 
00//60 
00//6? 
00//64 

00// 70 
00// 74 
00/300 

00/304 
00/304 
OC. 506 
OC/310 
00?314 
00/316 
00/3?4 
00/3 3/ 
00/340 
00/546 
00/350 
00/356 
00/360 
00/366 
00/5// 
00/3 76 
00/40/ 
00/406 
00/414 
00/4// 
00/4 30 
00/4 36 
00/444 
00/45/ 
00/4 54 

00/46/ 
00/464 
00/4 // 
00/4 76 
00/50/ 
00/506 
00/51/ 

oo/5/c; 

00/5/6 
00/5 34 
00/54/ 



01/705 
004 767 

04/705 
04/700 
001404 

05/ 700 

000167 



016 700 
004 767 
04/705 
0/0500 

00140/ 
000167 

016700 

004 76 7 
01/700 



005 7/0 

001154 
0//700 
001373 
01?777 
01/76/ 
104415 
03/767 
001404 
104416 
000416 
016767 
006/67 
006/6 7 
006/67 
006/6/ 
016767 
016767 
016767 
01/767 
104415 
03/767 
001404 
104416 
000416 
016767 
006/6 / 
006/6 / 
006/6 7 
006/6 / 
016/67 
016 76 7 
016 76 7 
01..'/// 
00506 / 



004000 
00055/ 
100000 
000/00 

010/00 
000406 



1 7r%/40 

000300 
17 7400 



00036/ 

1/6/16 

000/54 
000/54 



000/66* 

000001 
0005 76' 
000000' 
001000 

000000* 

1761/0 

176114 

176110 

1 76104 

176100 

1760 74 

176070 

176064 

000/76' 

000000' 

001000 

000000' 

176014 
1 /6010 

1 76004 
1 76000 
1 /5 / 74 
1/5 7 70 
1 75 764 
1 75/60 
004 7 70 
1 76 100 



175/7/ 
1755 3/ 

1 755/*> 



6$ 



7* 



8$ 



175 7/6 
176150 
00050?' 
175510 

000504' 

1761// 88$ 



1760/6 

17564/ 99$ 

175636 

176044 

00050/' 

1/5404 

000504' 

176016 66$ 



VI % 



MOV 


<<SA,5L,R3 


JSR 


r-c.SNDsrp 


nic 


0UIT15.R5 


MIC 


0HITO/.RO 


BEU 


6$ 


Hi 5 


0<SA.S?»BITO7>,RO 


JMP 


ERR0R3 


MOV 


L.O//.RO 


JSR 


PC.SNDSTP 


R1C 


.'M.7/400.R5 


CMP 


R5.R0 


BLQ 


7$ 


JMP 


ERRORS 


MOV 


HI/?,R0 


JSR 


PC.SNDSTP 


MOV 


ORSPUNC -4.R0 


TST 


( RO ) ♦ 


BNE 


ERRORS 


CMP 


0RSP0NCt6.R0 


BNE 


8$ 


MOV 


OSA.GO.tfPQPXSA 


MOV 


GCMPACK.VA 


GETPA*. 


.BEGIN, VA 


BIT 


OADDR/?, CONFIG 


beu 


ae» 


MAP//$, 


, BEGIN. PA 


BR 


99$ 


MOV 


PA.L.O// 


ASH 


EA 


ASR 


EA 


ASP 


EA 


ASR 


EA 


MOV 


EA.Hl// 


MOV 


I 0//.COMMNO 


MOV 


HI//.COMMND*/ 


MOV 


&RSPACK, VA 


GETPA*, 


.BfGlN. VA 


BIT 


&AD0R//,CUNF 1G 


BFQ 


66$ 


MAP//$ 


, BE GIN, PA 


BR 


7 'J 


MOV 


PA .1.0/? 


ASP 


[ A 


ASR 


[ A 


ASP 


h- 


ASH 


\ A 


f\V)U 


* A.MF// 


MOV 


i 0//.R.PONC 


MOV 


H!/?,RsP0NC*. 


MOV 


^NIRURT t aJVLC10R 


CI R 


rRi 



R5 HAS STEP BIT EOR SUBROUTINE 

5! NO STEP DATA 

CLEAR MSB F OR COMPARE DATA 

IE BJTO/ ONI Y SET 

: THEN 

: SET RO TO REPORT THl I RROH 

: EXIT BLOCK TO REPORT ERROR 



ENDIE 



•»>>>*»^> >"»>•>>>"»■>> 



STEP / 



RO GETS PHYSICAL ADDRESS 

SEND STEP DATA 

HIGH BilE CI E ARE I) 

CHECK ECHO DATA 

IP OK, SKIP 

If NOT, REPORT ERROR 



>**»•»'»•»>•> 



•>>■»>>•> 



UP 3 



; ADJUST THE t-.X TENDED ADDRESS BITS 

; SEND STEP DATA 

} RO ••> RING ENVELOP 
.>»>■»■>•>>:>>>>>>>%> Cj J £ p 4 

; BGNOO 

t : TE" RING ENTR> NOT - 0? 

; : : THEN > ERROR 

I DOUNTIL RO POINT PAST THE RINGS? 

! SEND DATA TO RQDX/DONE WITH THE INIT 

j GET COMMAND PACKET PA AND *A 

[GET PHYSICAL ADDRESS PROM 16-BIT VA 

: CHECK POR //BIT ADDRESSING 

; U 18BIT ADDRESSING THEN BRANCH 

; GET //BIT ADDR PROM 18-BIT ADDR 

; MOV 18BIT ADDRESS INTO //BIT SPACE 

I ADJUST EXTENDED BITS 



i STORE ADDRESS IN THE RING 

j MOVE ADJUSTED EA INTO RING 

i GET RESPONCE PACKET PA AND EA 

[GET PHYSICAL AODRESS PROM 16 BIT VA 

5 CHECK KTR //BIT ADDRESSING 

j IE 18BIT ADDRESSING THEN BRANCH 

j GIT // E1T ADDR PROM 18 -BIT ADDR 

i MOV 18BIT ADDRESS INTO ??B1T SPACE 



IT RUD/l 



*' 002546 00476/ 00^04^ 



CALL 



GCC 



; STORE ADDRt S '. IN T Ht RING 

j MOvi ADJUST* EA INTO RING 

; ,'ONt INtERRi'P! AODRt •'.'» IN VICTOR 

i O \ AR TRi so [lRlvt Will Gil BACK ONl 1 M 1 ►■ \t CE ■• w\;; 

5 St T C0N1WDUER CH4RAC TERl 5 T U's t\E«> ? IMt wt Rt l\ 



.J » 

RQAP Off Ml SISlTM EXERCISER M MACRO M1«?00 09 -APR ft4 16:31 PACE 30 V 
MODU I COPf 



Sb-.U 3S» 



1444 ooosv OOOJO/ 



RT 



PC 



ibXIT INITIALIZE 



ROAD DEC Ml SlSTtM EXERCISER M 
MUDU I CODE 
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f iZQ if, 



144m 








144 ; 








1448 








1449 








14 SO 








14SL 








14S? 








14S3 








14S4 








14SS 








14 So 








14SV 








14 S3 








14 S9 


00?!V>4 


016/01 


175230 


14t>0 


00? SbO 


01?/?1 


00?600' 


14t>l 


00?Sb4 


lib 711 


1 /<>??? 


14*»? 


00?S/0 


010077 


17545b 


14n? 








1464 


002574 


104400 


000000' 


14t»S 








14 h6 


00?600 






146? 










00?600 


000004 


000000' 00?60b 


146H 


00?606 






1469 


00?606 


017 700 


1 75440 


14 70 


00?61? 


05? 700 


100000 


1471 


00?f>16 


001017 




14 7? 


002620 


00 5? 0? 




14 75 


oo?b?? 


00b 30 J 




14 74 


002624 


030300 




14 >S 


00262b 


00100? 




14 /f, 


00? 6 SO 


000167 


000020 


14.'/ 


U0?b34 






14 /« 


0026*4 


040300 




14 79 


002656 


000?07 





* + + + **** + + * + ** + + * + + + ** + + + **** + *** + *#* + + ***♦* + + ***+** + + *.*++ + + ** + <-**** + ** 
SEND STEP DATA 

INPUT: RO HAS DATA TO BE SUNT TO RQDX FOR STEP 
R3 HAS PREVIOUS STEP FLAG SET 

OUTPUT; RO HAS DATA SENT FROM RQDX 10 HOST FOR ECHO AND NEXT STEP 
R3 HAS CURRENT STEP FLAG SF T 



SNDSTP; MOV 
MOV 

MOVB 
MOV 



1NTA; 



35 



4$ 



VECTOR. Rl 

#INTA.(H1,» 

BRl.CRn 

RO,a)RQDXSA 



EXIT*. BEGIN 



PIRQ*,6E:GIN,3* 



MOV h)RQDXSH,RO 

fill OSA.ERR.RO 

BNE ERROR 1 

INC R? 

ASl R5 

UNI. 4$ 

JMP ERROR.' 

B1C R^.RO 

RTS PC 



;SET UP INTERRUP! HANDLER ADDRESS 

iSEl PR1URTITY 1 EVEl 

{SEND STEP1 WRITE .'"ORMMATFD DAIA 

l EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT 



QUEUE. UP TO CONTINUE AT 3$ AND RT1 



GET STEP N FORMATTED DATA 

IF NO HARDWARE ERROR 

: THEN 

St T STI P REGISTER 

R3 HAS STEP BIT PROPER!, i SET 

T.E s!EP N NOT SET? 

: \H\ N 

: NOT CORRECT '.1EP, ERROR 

END If 

CLEAR THE STEP BIT, f'OR COMPARE. 

RE TURN 



/ 



modu e- t\-of 
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1481 
1482 
1483 

1484 

K85 

148*^ 

148'' 
1488 
148'* 
14^0 
1491 
14 l >2 
14'i? 
1494 

14^5 
149t*. 
140 ' 
1498 
14 "•»■*» 
1500 
1501 

ISO? 002640 
002640 
1503 002646 
1504 

1505 00265.? 

1506 002054 

1507 002656 
15^8 002660 
1509 



104403 000000' 
104410 000000' 



010044' 



005204 
005204 
005204 
010267 



175630 



002664 104420 000000' 

002672 000537* 

1510 002674 017767 175352 

1511 



002/02 104420 000000 
002710 000530' 



000514' 
175612 

000514' 



1512 


002712 


105067 


175620 


J 51* 








1514 


002/16 


005304 




1515 


002 720 


001003 




1516 


002722 


104403 


000000' 


151/ 


002/50 






1518 


002 7 50 


005304 




151W 


002/32 


001003 




152G 


002/34 


104403 


000000' 


1521 


002742 






1 522 


002/42 


005 304 




1523 


002/'- 4 


001003 




1 524 


002/' 6 


104403 


000000' 


1525 


002754 







007656 



007 702 



007710* 



E RROR 1 

PRINT AN ERROR REPORTED BY THE RUDX DIAGNOSTICS 

ERROR 2 

PRINT VALUE OF THE RQDXSA WHEN THE STEP BIT WAS NOT SET 

ERROR 3 

PRINT VALUE Of THE RQDXSA WHEN THE ECHO WAS NOT SET CORRECTLY 

IN D UT; RO ■•> RQDX5A 

R2 u STEP COUNT 

OUTPUT: THE RETRY COUNT IS INCREMENTED 

IF THE RETRY COUNT > RETRY LIMIT. END MODULE 

ERROR 5 

RING WASN'T ALL ZERO > FATAL ERROR ■ *> DROP MODULE 

ERRORS * 

MSGNJ.BEGIN^ERO {ASCII MESSAGE CALL WITH COMMON HEAUER 

ENJC, BEGIN j 



ERR0R3 
ERR0R2 
ERR0R1 



1526 



1* 



25 



3*; 



IN2 
INC.* 

INC 
MOV 



R4 

R4 
R2.NUM 



;R4 * 3 FOR ERROR 3 
;R4 - 2 FOR ERR0R2 
{R4 • 1 FOR ERROR 1 
{STORE STEP REG IN A NUMBER FOR CONVRT 



{CONVERT NUM TO ASCII AND 
{STORE AT ADR2 
0T0At.BEGIU,NUM,ADR2 

MOV SRQDXSA.NUM {STORE VALUE IN A NUMBER 

{CONVERT NUM TO ASCII AND 
{STORE AT ADR1 
0"0A$, BEGIN, NUM, ADRl 

CI RB ADR2 ■ 1 { 



DEC R4 

bnl i $ 

MSGNS.BEG'N, INI IE 1 

Ob c: R4 

RNE 2$ 

MSGN*,BEGTN,INITE2 

Ut C R4 

UNE 3 5 

MSGN*,EUGIN, INI IE 5 



{ERROR 1/ 

iU NOT. CHECK U IT IS THE NEXl ERROR 

{ASCII MESSAGE CALL WITH COMMON HEADER 

{ERROR 27 

jl> NOT, CHECK U IT "S THE NEAT ERROR 

{ASCII message: CALL WITH common header 

ERROR 3/ 

V NOT, CHECK II IT IS \M NEAT ERROR 

ASCII MESSAGE CAl t Wl r H COMMON HEADER 



j+*++fc***+*+*++++****< ***++*++*+*♦*++***+♦*♦********+**♦*+♦**♦** 



I *■» 



7? 



RQAD DEC Ul SYSTEM EXERCISER M MACRO N1200 
MODULI CODF 



09-APR-84 16:31 



M :> 

PAGE 52-1 



SEQ 58 



002/34 



c->7 



i:v 



1528 
1529 
1530 
ISM 
153? 
1555 



002 / ,V 
003000 
003001 
005012 
005014 
005020 
005020 



104420 
000546* 



000000' 000006* 



002764 104405 000000* 000000 



104405 
005267 
022767 

001402 
000167 



000000' 
175642 

000004 

1/5 76? 



00 7664 ' 
175634 



OTOA $ , BEGIN , ADDR , ADR3 



j CONVERT ADDR TO 

jSTQRE AT ADR5 



ASCII AND 



;+ + ** + * + *** + + +*+** + + + + + ** + + ***+* + ** + + +■** + ++ + + * + + + * + + ** + + + + ** + >* 
• *********** K******************** ************************ ******* 

HRDER*. BEGIN, NULL, j 

; I******************************************************* * * * * * * * 

MSGN$, BEGIN, INITER $ ASCII MESSAGE CALL WITH COMMON HEADER 

INC TRY {INCREMENT RETRY COUNT 

CMP ORLIM.TRY j IS THE RETRY COUNT EXCEEDED? 



BEQ 
JMP 



6$ 
START 



104405 000000' 10040 ( 



6$: 



l'»M 003026 104410 000000' 
1535 



M5GN$. BEGIN, ABORT 

END$ .BEGIN 



j IE SO. END IT 

5 IF NOT, TRY AGAIN 

;ASCIi MESSAGE CALL WITH COMMON HEADER 



N3 



RQAD DEC Ui 
MODULI- CODE 



1537 
1558 
is 59 
1540 
1M1 
1542 
1543 
1544 
1545 
154 b 
154 ' 
1548 
1549 
1550 
1V)1 

1552 
1553 
1554 

15S5 
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SEQ 39 



1556 
155/ 
1558 
1559 
1560 
1561 

1562 

1563 
1564 
15h5 
1566 
1567 
1 568 
1569 
15/0 
15/1 
157? 
15/*. 
15/4 
15/5 
1576 
15// 
15/8 
15/9 
1580 
1581 

1 58:- 

1585 
1 584 
1585 
1586 
158/ 
15M8 
1589 
3 5"') 
* •*' 1 



003032 
003032 
003036 

005040 

00304 4 
003050 
003052 
003052 
003056 
003062 
003064 
003066 
003070 
003072 
003100 
003104 
003106 
003110 
003114 
003116 
003122 



003124 
003130 
003132 
003136 
003142 
003144 
003146 

003150 
005156 
003160 
003164 

0051 /2 
0051 /4 
003200 
003202 



005/6/ 
002133 

012/03 

012704 
00501^ 

012/46 

004 7 o/ 
103011 
005316 
001373 
005726 
056467 
004/6/ 
0004 /6 
005/26 
016714 
001015 
022703 
001412 



03036/ 
001402 
004 /6 / 
062/04 
006303 
00136/ 
00046 7 

126/2/ 

001416 
05036/ 
122/3/ 
001010 

12143/ 
U01005 
040367 



175620 



000001 
000656' 



C00024 
001474 



000002 175544 
001130 



175166 

000001 

175514 

001106 
000004 



SET UP 

GO > IND OUT WHAT DRIVES ARE OUT THERE. 

A TABLE IS FILLED WITH UNIT NUMBFRSCMAX 15 16) 

THIS SHOULD ONLY BE DONE AT THE VERY BEGINNING OF RUNNING 
THIS DECX MODULEj THEN NOT RUN AGAIN. 

INPUT: DVICE HAS APPROPRIATE BITS SET. THE i) Of BITS 

OF DRIVES WANTED 10 TEST. 
POSITION OF BITS =■ WHICH DRIVE IN THE SYSTEM IS DESIRED. 

* + + + + + + * + + +***A4t + ^ + + + * + + + *.* + + + + + + + + + * + + * + * + * v +**■ + ++ + + **+ + + ++ + + + * + + **++ + 

SETUP: 

ONLY DO SETUP THE FIRST TIME THROUGH 
(USE DRIVES FOUND AT BEGINNING) 
CALL SET CONTROLIF-H CHARACTERISTICS 
INITIAL PORTID VALUE 
R4 -> TABLEW 



1* 
3$ 



6$ 
7 5 



8$ 
9$ 



175154 000006 10$ 

\ /54 /O 

000025 00004 1 

000040 

1/4614 



rsr 


TABl EW 


BGF. 


100$ 


CALL 


sec 


MOV 


*1.R3 


MOV 


0TABLEW.R4 


CLR 


(R4) 


MOV 


#24 . ( SP ) 


JSR 


PC.GTSTAT 


BCC 


6$ 


in c 


; sp ) 


BNL 


3$ 


TST 


( SP ) ♦ 


BIS 


2(R4), DVICE 


JSR 


PC.0R0P2 


BR 


1 7 / $ 


TST 


(SP)* 


MOV 


P.UNITfRSPACK,(R4) 


BNE 


10$ 


CMP 


«1.R3 


he a 


10$ 


TS ARE 


I TFT, BUT BUS ARE 


BIT 


R5,Dvia 


BED 


9$ 


JSR 


PC.0R0P3 


ADD 


*74,R4 


ASl 


R' 


BNE 


8$ 


BR 


100 5 


CMPB 


P. UNI l »6*RSPACK,#b 


BLU 


1/$ 


ill 1 ; 


rj.isrx 


CMPB 


.'>25 , aM 1 


MN* 


1/$ 


CMPB 


(U4 ),h)/>40 


BNL 


1 /$ 


BIC 


R5,5R5 



WORK > RETR> LIMIT 

titT STATUS, GET NEXT UNIT NUMBER 

OK, CONTINUE 



ASSURE REPORT WILL BE PRINTED 

DROP THE DRIVE 

r R^ NEXT UNIT 

POi RETRY COUNT OLE STACK 

UNIT NUMBER FROM RESPONCE PACKET 

UN it* NUMBER RETURNED, CONTINUE 

FIRST TIME THROUGH MAY BE UNIT 



1 5 THIS ONE SET? 

NO, CONTINUE 
DROP UNIT AND WARN 
MAINTAIN I ABIE POINTER KIR DR0P3 
TRY NEXT Hll 
V AN> ARE LEf T , TRt AGAIN 
OTHERWISE, EXIT 

MEDIA ID IS 6 U)R RD, 7 FOR RX 
NO ■■ IT IS AN RX 
It 5 SET RD BIT 
15 LOAD MEDIUM [)[\; 
NO SKIP CHECKING 



I CLEAR WRIT! BIT >■ OR I OAD DIWCE 



) ' 



ruap in C Ml 
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SFfJ 40 



iv*4 


003/06 


1044 05 


000000' 


0100 '4' 




1V»S 


00 .VI 4 


05h4f»7 


OOOOiV 


1 7S4.V 


W$! 


iv*t. 


003/// 


0014/: 








!*»*■* .' 


003//4 


011467 


I 7!i/64 






1V*8 














00 V 50 


1044^0 


000000' 


000M4' 






003/ 3t* 


000S 50" 








1VK) 


003/40 


10S06 7 


1 'S/V 






lt»00 


003/44 


03/>>.' 


00000,' 


1 MS44 


1/3$: 


uvi 


003/S • 


0014 10 








wv 


0«">5/S4 


056'. 6 7 


00000/ 


1 74S40 




1^/3 


00 5/ti/ 


001404 








i#i04 


00 3/t>4 


104405 


000000' 


oiooso 




l».os 


00 3/,'/ 


00040 3 








UiOti 


003/ f 4 








I'M: 




OO.V'4 


104405 


oooooo • 


01 006 J' 




1..0 ' 


00 5 30 J 


06/704 


000004 




1/7$: 


1*oa 


003306 


016414 


177774 






lt>0'* 


00351/ 


0OV14 








U>10 


0033 14 


006*05 








1*-1 1 


00 331* 


0/056 ' 


rr^/j 






:♦>!/ 


oO.VV/ 


10l»/i< 








im* 


00 33.4 


00* -014 








1614 


0033Jb 


ooo/o : 






100$ ; 



MSUN*,Ht.lilN,UUN] T 
Hll i?(R4>,DVlCF 

BFO 177$ 

MOV (H4),N.)M 

, ************** # ##* 



j ASCII MFSSAGF CAl L WITH COMMON Hf.ADF-R 

t ONI r PRINT MtSSACit. If If IS VAI..K) 

i UNIT NOT TO BF TF.STFD 

j WF. HAVF A (',000 UNIT PR IN! Mf- <JSA(',F 



OTOA$,Df.OIN,NUM l AORl 



iconvf.rt num to ascii ano 
i c ;torf at adri 



J 



CI RR ADR/ 1 

Hll OH I II , SK 1 

HI U l. M »$ 

HIT /CR4),SR3 

Bt.U W r >$ 
MS(iN$,BF'GIN.R[)WR1 

HR 1 7 7 $ 

MSGN$.BhGIN»RDONl » 

ADD 04, R4 

MOV 4(R4) # (M4) 

INC CR4) 

AM R3 

CMP R3,0VICt 

Hi OS 1 * 

ClR iW4) 

RTS PC 



I NO Rf AD ACCFSS Rf/M) ONI r MFSSAf* 
t 

j l .IN II HAS WRITF TURN* I) Of '» 
i 

I ASCII Ml SSACiF CAl. I WITH COMMON HF.ADFR 



[ASCII MfSSALL CALL WMH COMMON Ht A()t R 
; BLIMP R4 TO Nl X T TABl £ POINTLR 
j St T NEXT UNIT NUMHLR > CURRfcNT UNb 

( 

; NFXT BIT IN DVICL 

j If *. Ut.'RF DONr 

j (ill! IS LN t.WiCf V- i xpi.ic; 1 ;.' 03 
j TAI't f <TRA NUMBER OUT Qi' TABLb 
t ...AND BACK. 



s^PfviV 
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M Q 4 1 



IMC 








1M * 








IflS 








l'Vi l » 








UwV 








i«oi 








ItnV 


003550 


o.v :oo 


00000 5 


lt>/5 


0033 54 


001403 




UV4 


003550 


O/.'.'OO 


000015 


LeVS 


003*4/ 


0010U 






003344 






lr..\^ 








1^,^ 








1^50 








It. SI 


003344 


5/>- 


000740 


lr>3/ 


0035b/ 


001004 




1M3 








lo54 








lt.5S 


00?>V>4 


OS0.>>.' 


1 ? 7000 


lMt* 


00 33*/ 


00100/ 




lt*5* 








10 38 


0033*4 


000/41 




1M<-* 


00 3*68 


Q0Q40* 




U>40 








1^4 1 


0033/0 


o$os*>\ 




H-4/ 








1**4? 


0033 .V 


oo4 ,v; 


OOJ040 


:*>-4 


0033 76 


WXWO? 





(♦*♦♦* ♦♦»#♦♦♦♦.♦♦.♦♦♦♦♦#* + *♦* + ♦♦*♦♦♦♦**♦***♦♦*♦♦ + ♦♦♦♦♦**♦*■** + ♦•♦*♦♦♦♦*♦ + ** 



174/3*. 



1 74 ,vt> 



TSTOM 

If ST TO SH. WHAT KINO l)F AN CUM INL CONDITION HAS OCC'JWM). 



ISTUFLi CMP OST.OFL ,R0 j WAS THF DRIVF f OUNO OFF riMl •? 

HFQ lOt j CHtXK WHAT KIND OF OFFLINE 

CMP OST.DHV.RO j WAS IT A UHIVfc t.RROR? * SO 17 

BNF 13$ * T F IT WAS NOT, hRROR (DROP DHTVt- > 



lOt 



104S 



l^t 
1U 
14$ 



l IF AW 0» » Ul I OWING HITS St T 

} NO vtH UMf MOUNTFO, t^I! DtABlfD B» MFID sMfVlCF. 

OR DUPl ICATF IfNIT NUMHF'R OR iJNTT !NOPF«ATIVF 



j 

HIT 
HNI 



HIT 
BNF 

O C 
MR 

SI c 
RTS 



< SC . NVl * r >C . DI 5 • SC . DuP • SC . IOP * . P . s r S • REPACK 
l.M | IF SO, I.X I T 

j AN* 0*HFR DATA; 

*C « SC . NVL * SC . U IS • SC . IH»P ♦ SC . I OP * S T , MSK . , P . S TS ♦ RSPACI*" 

13$ i V Si;, DROP 



14 t 



PCttRRORH 
PC 



;C\ FAR CARRt NO I RROR 



I Si t CARRt. OMlVl WAS F'QUNU TO UL U*>*HN£ 
5 OR ANOTHER LRROR 
jRM'OR! LRROR 
iRtTURN 



m\PhM 
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'if r J 1*' 



M ' 






M8 






M*> 






^50 






65? 






n l l* 






t ,S4 






«^5 






c..5^ 






t>5 ' 






658 






c?^ 






^^0 






t^ 1 






»M-»? 






6**5 






t^M 003400 






665 






666 






66/ 003400 


005 76/ 


1 75242 


b68 003404 


100420 




669 00 3406 


004767 


001240 


6 70 00341? 


103571 




6?1 003414 


016767 


1/4 724 1/S.V! 


67? 003422 


016767 


174 714 175 -MO 


6 73 0034 30 


001006 




6 74 0034 3? 


005 76/ 


17520** 


6<'5 003436 


001 760 




6/6 003440 


01276/ 


lOOOvK' i >5. : :oo 


fef'7 003446 






6 7ft 003446 


016/00 


1744 70 


6/9 003452 


005001 




<->80 003454 






681 003454 


005201 




66? 003456 


16?700 


0C0400 


683 00346? 


100374 




h84 003464 


160167 


175)50 


685 






686 0034/0 


012 702 


0006 5.0 


68/ 0034 7** 


03646/ 


000002 1 75152 


688 003502 


001001 




689 003504 


022222 




690 003506 


000240 




691 003510 


004 76/ 


00026 1 


69? 003514 


004 767 


001 ■);*■■ . 


693 003520 


103 73? 




694 003522 


022 700 


00000 <'t 


695 00 5526 


001/27 




696 005550 


00024 C 




69/ 00 55 5? 


032/6/ 


00000 ! \ ■•«'+?' »6 


698 003540 


001506 




699 00 554? 


564 6/ 


000 OC ' 1 74. '5? 


00 003550 


00150? 




■'01 00 555c' 


104414 


OOCtin. 1 . 


7*".? 003556 


01*- 76/ 


174 55,.' : 75 ( '(> 


705 GQ3U»4 


016767 


I 74 5 16 17^0? 



! S » * * » * ♦ * * M H M * * * M t # H M H M * M H * M M M M M H * M * M * t H * * M M M M * H 

O CLE DISK 

DO GET STATUS COMMANDS TO ASv.lR. THAT THE DRIVE 

IS AVAILABLE CK1R DUAL PORTING) 
CHECK DRIVE TO BE ONLINE 
IF TRur. 

PICK THE BLOCK 

WRITE 

READ 

DATA CHECK 

MAKE THE DRIVE AVAILABLE 
K.SE DROP DRIVE 



CiCLED: 



10$ 



16$ 

18$ 



185$ 



1ST 
HMI 
JSR 

HCS 
MOV 
MOV 
BNE 
1ST 
BEQ 
MOV 

MUV 

CI R 

INC 
SUB 
MPl 

SUB 

MOV 

BIT 

BNE 

CMP 

NOP 

CALL 

CAl l 

BC> 

CMP 

Hi 

NOP 

HI ! 

Ht U 

HH 

H\ U 



TRi 

16$ 

PC. ONLINE 

24$ 

P.UNS/»?»RSPACK .UNS/H 

P.UNSZ*RSPACK,UNS/L 

16$ 



CYCLED 

1 00000, TRY 

WBU*~S/,RO 

Rl 

Rl 

d400.RO 

18$ 

Rl .UNS/t 

OXSKt ,R? 

?LR4),ISRx 

18S$ 

( R? ) » , C R2 ) * 

PIC'< Hi' 
(,T .TAT 

U>$ 

«5 f .AVI ,R0 

10$ 



O'iM.HON.SKI 

?0$ 

?IR4 V>R3 

?0$ 

GWBOF*, Bf GIN 
MOV WBU»PA,Wl«PA 

MUV WBUKPA*t»»Wiat* % . 



j CHECK IF WF. 00 ONLINE (-"OR THE. FIRST TIME. 

i 

; If TR> HAS NOT SET MSB 

{ 
i 
; 
j 
i 
i 
i 
i 



THEN 

DO ANO ONLINE COMMAND 
Li CARRi WAS SET. TRt AGAIN 
I'd THE UNIT SI/E hi ADDRESS 
GET UNIT SIZE/IS IT - 07 
IE NOT /ERG, CONTINUE WITH ITERATION 
IS UNS/H Al 50 0? 

IF O. TRt TO BRING ONLINE AGmIN 
TRt « MSB SET (INITIAL ONLINE IS DONE) 
j ENDIF 
I UBUFS/ IN RO AS A l.IMI T 
j Rl • Of BLOCKS 
; BGNOO 

; s INCREMENT THf if 0» Rl OCKS 
I j DE CRIME NT A BLOCK 
5 DOUNT 11 Q> Hi OCXs - 
, ADJUST THE UNIT 5I/t 

j 1 NOW PICK WHICH BLOCK TO WRITE TO > 
j RX I OW SECTOR NUMBER 



BUMP TO DSLCL 



1 USE SEl ECT A Bl.OCK TO T E5* 

{ DID Wr NOT GrT FHl DRIVl ONi INi 7 

j IF NOT, GO BACK TO TOP AND TRi Ai,AlN 

(IS i T AVAIl ABL t 7 

I IF SO. GO BACK TO TOP AND TRi AGAIN 

{ U WHIM ACCl V, 
, AMD 

it in 1 1 wri a p. m sihi o 

: THk N 
lit I WRITE BUMIR INFORMATION 
: COP> 18 till MQDHLUS 
I I 



RQAD llfC Ml SYSTEM EXERCISER M 

Mooui [ com 
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SFQ 4', 



1 .'04 
1 'OS 

i :ot> 

i.'o: 

1 .'03 
1 700 

1 '10 

i ; 1 1 
K12 

1713 
1714 

1-'15 
1.-16 
1717 
1718 
1719 
1".V0 
1.V1 

1 723 
1/24 
1725 
1720 
172" 
1726 
1 729 

1730 
1/31 
1732 
1733 

1734 
1 735 

.1736 



17V 
1738 

17 39 
1 740 
1/41 
1 742 
174 3 
1 744 
1 745 
1 746 
1 / 4 ; 
1748 
1 7QU 



0035/2 

003600 
005602 
003M0 
003612 
003620 
003624 
003630 
003634 
003640 

003646 

003652 

003654 

003660 
003662 
0036b2 
003666 

003670 
003674 
003676 
003676 

003704 
0C3706 
003 714 
00371b 
003720 
003722 

003 724 
003726 



003/32 
003740 

003/42 

003 746 
003754 

00373», 
003 760 
003764 

003 766 
003/72 
00 V 74 

0037/4 
003776 



0327b/ 
001404 
104416 
000416 
016 767 
00626 7 
006 ?6 7 
00626 7 
006207 
016767 

004/6 7 
103003 

004 76 7 
00^)445 

004 76 7 
103005 

004767 
0004 37 

032767 
C010o3 

104412 
003716 
000240 
000240 
000240 

000423 
011167 



104 A 20 
000530' 

105067 

104403 
000407 
0C0240 
004 fh / 
103003 

004 76 7 

000400 



0002^1 

000207 



001000 

000000' 

175154 
175150 
175144 
175140 
175134 
175130 

000544 

001556 

000600 

001.542 

004000 
000000' 



1 74256 
000 7/2* 
1/5156 111$ 



175132 



174 UP 
000126' 



174562 



000000' 000514' 



174570 

000000 



000502 



001444 



010U6' 



222$ 



19$: 



195$ 



197$ 



BIT 0ADDR22.CONF IG 

BEQ 111$ 

map22$, begin, w18pa 
br 

MOV 

ASM W18F.A 

ASR W18EA 

ASR W18EA 

ASR W18FA 

MOV W18F.A.W22EA 



2'* "* $ 

W18PA.W22PA 



CHKCK f OR 22BIT ADDRESSING 

IF IBB IT ADDRESSING THEN BRANCH 

i GET 22 BIT ADDR FROM 18 BI r ADDR 

MOV 18BIT ADDRESS INTO 22BIT SPACE 
ADJUST EXTENDED BITS 



PC.URITf 
19$ 

PC.F.RROHH 
22$ 

READ 
195$ 

PC.ERRORH 
22$ 

«SR,CMP,SR1 
22$ 



JSR 

BCC 

JSR 
BR 

CALl 

BCC 

JSR 

BR 

BIT 
BNF 

CDATA$, BEGIN, RBUFPA 

. *2 

NUP 

NOP 

NOP 



UR1U THF DATA 
IF NOT 0!' 
THtN 
HARD ERROR CBCS 2r'$ ) 
EXIT 
'NDIF 

READ A BLOCK 
IF NOT OK 
THEN 
HARD FRROR 
EXIT 
ENDIF 

IF DO A DATA COMPARE. 
: THEN 

REQUEST tqr MONITOR TO CHECK DATA 
IF ERROR, CONTINUE 



BR ;\^ ; : : 

MOV (R4).NUM ; : : 

tCONVFRT NUM TO ASCII AND 
1 STORE Al ADR1 
0TOA$, BEGIN. NUM. A0R1 





• ******#**♦*******, 


*»*#**#*****4***********#,*********#*»*#***** 




CLRB 


AQR2-1 


• S ! 




MSGN$ 


, BEGIN .CHKRPT 


j ASCI I MESSAGE CALL WITH COMMON HEADER 




BR 


?i^ 




I. NO IF 


20$: 


NOP 






ELSE 




CAl I 


RhAD 




READ ONI t - NO DATA CHECK 




BCC 


.\ y i 




IF ERROR 
: THfN 




JSR 


PC.ERRORH 




: HARD ERROR 




BR 


. 2$ 




: AND EXIT} BCS 22$ 


225: 








ENDTF 








; fNDI> 




C: C 




j I VI Hi THING WAS OK 


^4$: 


RIS 


PC 


i RETURN 



1^51 



R04D DEC Ml blSTt.H feXERClStR M 
MODULI CODF 
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SEQ 44 



l 7S3 








i;s4 








l :ss 








: v.* 








i ."> ' 








l -sy 








l'V) 








l :ho 








1 *ol 








1 762 


004000 






l?t>3 


004000 


052 V 


002000 


1 '64 


00400& 


001020 




i ;*t- s 








l ;>/> 








l ;* : 








1 "66 


004010 






1 7<W 


004010 


00^212 




l : :o 


004012 


001 40* 




1771 


004014 


021^-7 


1 /4620 




004020 


10341? 




l.'.'S 


004 022 


000402 




1 7 74 


004024 






17 75 


004024 


00r>2fo2 


00000." 


17^6 


004030 






1 7 7 7 


004030 


02626 7 


00000,' 


1/78 


004036 


103403 




17 79 


004040 


OObOV 




1730 


00404J 


0O50t.2 


000002 


l.'ol 


004 046 






1 782 


004046 


00020 7 




1783 









1 ?4010 



174604 



PICK A BLOCK TO WRITE TO, 

PICK THF. NEXT SEOUNTIAL BLOCK C DEFAULT) OR TAKE- ONE AT RANDOM, 

OUTPUT- FILL SECH & SECL (CURRENT SECTOR ADDR ) 

****♦+++♦*+♦++**♦++♦+**+♦**+*+♦+♦♦*+♦♦*♦*♦*+♦*+*♦♦*+♦*♦*+♦♦+*♦♦♦♦*♦+♦♦* 
PICKBK: 

BIT 4SR.SEQ.SRl s CHECK SRI FOR RANDOM ACCESS MODE 
BNF RANACC jBR IF RANDOM ACCESS 

GENERATE DISK ADDRESS BY SEQUENTIAL ADDRESSING 

SEQACCj 



16$ 
17$ 

18$ 



INC 
BLQ 
CMP 
Bl.O 
BR 

INC 

CMP 
Bl 
CLR 
Cl R 

RTS 



(R2) 




16$ 




(R2).UNS/L 


18$ 




17$ 




2(R2) 




2(R2) 


.UNS/H 


18$ 




(R2> 




?( R2 ) 





$ INCREMENT THE SECTOR ADDRESS 

;BR IF /ERO 

iOVER LIMIT ? 

I BR IF LOWER 

{SKIP THE INCREMENT 

INCREMENT SECTOR HIGH ADDRESS 

OVER I IMIT ? 

BR IF L OWt'R 
jRESET THE STARTING SECTOR ADDRESS 



PC 



ROAD DEC 


\11 SYSTEM EXERCISER I 


MODULI CODE 






1 .'85 
I 78n 








1 /8 : 








1 -\Hfl 








1 \8^ 








1790 








r>u 


004050 






i w 


004050 


104417 


000000 


1 793 


004054 


016746 


1 '37 71 


1 704 


004060 


104417 


000000 


1 7*5 


004064 


01674b 


173/64 


1 796 








1707 








1 798 








1 799 


004070 


000241 




1800 


004072 


042716 


100000 


1801 


004076 


012662 


000002 


1802 


004102 


005767 


174534 


1803 


004106 


001430 




1804 








1805 








180b 








180 r 


004110 


016>oU 


) 74526 


1808 


004114 


005100 




1809 


004116 


012701 


100000 


1810 


004122 


030100 




1811 


004124 


001403 




1812 


004126 


00024 1 




1813 


004 130 


006001 




1814 


004132 


000/73 




1815 


004134 


040100 




1816 


004 136 


000241 




1817 


004 140 


006001 




1818 


004 142 


0013/4 




1810 


004 144 


040062 


OC 1002 


182C 


004 150 


02626 7 


000002 


1821 


004156 


0024 20 




1822 


004 160 


001405 




1823 


004162 


006262 


000002 


1824 


004166 


000414 




182'- 








1826 








182-' 








1828 


004 1 70 


005062 


000002 


1820 


004174 


00576/ 


1 M44 


1 8 '.0 


004200 


001406 




1831. 


004202 


166/1.6 


1 M'V,/ 


183/ 


004206 


10 33/5 




1 8 3 '• 


004."' 10 


066 '16 


1 Z4424 


1834 


004214 


000401 




18 V, 


004216 


005016 




18*.*, 


0O4/20 


01/612 




• >j / • 


004222 


000/0 / 
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GENERATE DISK ADDRESS BY RANDOM ADDRESSING 



RANACCt 



**> 



1$ 



2* 



1 M464 



■I ? 



6? 



RAND *, BEGIN 

MOV RANNUM,-(SP) 

RAND*, BEG IN 

MOV RANNUM, ( SP ) 

ADJUST HI ADDRESS FIRST 



ClC 




BiC 


0100000. CSP) 


MOV 


(SP).,2(R2) 


TS'i 


UNS/H 


BEQ 


3 J 


UNS/H > 


U" CODE FA 


hOV 


UNS/H.RO 


COM 


RO 


MOV 


0100000, Rl 


BIT 


Rl.RO 


BEQ 


2$ 


Cl.C 




ROR 


Rl 


BR 


1$ 


BIC 


Rl.RO 


CLC 




ROR 


I<1 


BNE 


2 J 


BIC 


R0.2CR2) 


CMP 


2(R2),UNS/H 


BLT 


/$ 


BEQ 


4t 


ASH 


2CR2) 


BR 


7$ 


GET I.UW 


SECTOR ADDRE 


Cl.H 


2(R2) 


r.i 


HN^/l 


m u 


» J 


SUB 


UN i/t ,CSP ) 


fiCC 


\S 


add 


UN* './I ,( SP ) 


BR 


' s 


c; r 


1. 5P: 


MOV 


l ,P) * , tR.M 


HI 6 


PC 



1 ■: *« 



; GENERATE THE SECTOR ADDRESS 
{(GENERATE THE SECTOR ADDRESS 



; CLEAR CARRl FOR ROTATE 

5 CLEAR UPPER BIT MAKES SURE VALUE 'b ♦ 

j STORE IN SECTOR HI ADDRESS 

; IS THE MAX SUE 0? 

{IF 0, GET LOW SECTOR ADDRESS 

THROUGH HERE 

RO • MAX VALUE 

RO COMPLEMENT, NOW FIND MS ZERO 
Rl IS INDEX INTO MAX VALUE 
1 HAVE YET? 
IF 1ST REACHED, CLEAR REST OF THE BUS 
CLEAR CARRY FOR ROR 
POINT TO NEXT BIT 
BRANCH TO TEST AGAIN 
j CLEAR REST OF THE BITS 
CLEAR CARRY FOR ROR 
If Rl ROTATES INTO CARRt , Hi 
U" Rl NOT 0, MORE BITS TO CLEAR 

CLEAR UPPER BIT-; OF HIGH SJ C TOR VAt UE 
If THE HIGH SECTOR VALUE * MAX VAl UE ;' 
IF - , t XI T 
IE - , TEST 1 OW ORDER VALUE 

SECH - SECH/2 • CAN' X BE * MAX NOW 
EXIT 



Cl EAR HI SECTOR SIZE 

IS THE HIGHEST POSSlHlfc ; .' 

IF TRUE , DON' T DO I OOP 

I LSI . SECl. • St CL L'NS/l lADZUM.i 

IF UNS/L » SECl . LOOP 

list SUBTRACTED ONCE TOO OFTEN 
AND i X I T 
HIGHEST POV.IBL.E O 

SAvt I SECTOR ADDRESS 
j RETURN 



MODUl.F SaM 1 
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IS 40 
1841 
184^ 

18*Wi 

184 * 
1848 
184 l » 
18S0 

18 r n 

ihv 
lftss 

18S4 
18SS 
185b 

185/ 

1858 

itw 

I860 
1861 
186;? 
186 3 
1864 
1.8'; 5 
1 866 
18b * 
ItioB 



004 t V 4 
O04 v V4 
OO4 t \30 
004^34 
004,? 34 
004^4 _'■ 
004 f ?44 
004L'44 
004c lC u> 
004254 
004^60 
004 ,166 
004.VO 
004^/6 
004304 



004 3 1 
004 3 Hi 



186'* 004 3 1? 

18/0 004 5 1 ' 4 

18/1 00433? 
1875 



004 3*0 

00 4 346 



18/*, 
18/4 
18/5 
IH/O 
18/ * 
18/8 
18."* 
1880 
1881 
188, ■ 

: -<8'- 
\-<>\ 



004 VjO 
004 554 
004 356 

004 360 
004 366 
004 3/0 
004 3 /< : ' 
004* /4 
00440.* 
004 4 04 
004404 

00441,' 
004414 



OV/6/ 

0004 0/ 

01<V6/ 

000403 

OlcVb/ 
01.0046 
016/0 J 
*■<.<♦ ' 
0014.. i 
04646/ 
04640/ 
01146/ 



1044.-1 
C0053 7 

105067 
01046/ 
04276? 



1044^0 
0005 30' 

10506/ 
005 500 
001004 
10440 5 

0004 I \ 

005 500 
001004 
104403 
0004 3 

104403 

<;!,'• ( 'O 
OGQrfO'/ 



00000? 



00000,' 



000005 

174;::.*? 
ooooo.? 

uOuoo ' 
ooooo: 

174204 



1 7 4«?6 ( > 

r/<w 

1/4. 24 2 
i 74*56 

\ i**I 346 

1 74350 



000000' 000514 



174.?."0 

00000/ 
1000CC 



000000' 

174161 

000000" 

OOOOO 

000000 



l-*":o^ 
1 74 1 54 



000b 1.4 « 



00// 16' 

00/7 34' 

oov/ba- 



DROP A DRIVE- 

fi DRIVE WOULDN'T RESPOND, DROP IT. Sf T THIS UP IN DVICP . 

INPUT; UNIT NO - UNIT NUMBER 0> DRIVE 10 DROP 
PORT ID - HIT St T TO DROP DRIVh 

OUTPUT: DVICE-. HAS A BIT CI E ■ AHKO . ! H>. HIT POSITION = THE- DRIVE 

**************** ^*****«* + *************4.******** + + 4**************«*4**** 



DROP 1 



DROPi 
DR0P4 



1$: 
10*; 



MOV Ol.NUM 

BR DR0P4 

MOV $.\NUM 

BR DR0P4 

MOV 03.NUM 

MOV RO. (ST) 

MOV NUM.RO 

BIT Pl'R4),0VICE. 

BKQ 10$ 

11 i C 2l'H4),DvlCE- 

BIC 2CR4J.1SRX 

MOV ( R4 ) . NUM 



DON' T ORO^ DE'VICL TWICE: 



DROP THE- DRIVE 

MAINTAIN ACCURACY 

MOVE- I! INTO A LOCATION 

*************«************* + ** + ***» + * + *+***+*««t*4t*t4**t*.*** 

CONVE:RT NUM TO ASCII AND 
STORF. AT ADR? 
BTOD^Bt-.CUN.NUM.ADH; 1 



AOR. 



6 b 



I 



CLRB 

MOV c , (R4),NUM 

BIC *B1'T1 C >.NUM . IE" ROOT DfcVlCf 

j***************************************.********************.**** 

jCONVt.RT NL'M TO ASCII AND 
{STORE AT ADR I 
OTOA*. BEGIN. NUM.ADRl 

■A************************************************************* 



CI RB ADR1*5 

Of C RO 

BNE. 1 * 

msi;n$,heoin,i)Rpi 

BR 10* 

Df C RO 

BNE i'J 

MstiN*,E)RilN.l>RPO 
BR 10$ 

M l .l»N$ i UtotN,DRP5 



MOV 
RTS 



PC 



>P)* t RO 



i 

(DROPPED f OR WHICH E-RROR? 

H NOT f OR ERRORS, CONTINUE 

ASCII MESSAGE-. CAt I WOH COMMON ME ADt R 

UAS UNIT NOT M)UND/CNON EXISTENT UN I 1 ^ 

IE NOT, CONTINUE. 

ASCII MESSAGE CAl.t WITH COMMON HEADER 



ASCII Nl-s,Ai,l CAl l Wl r H COMMON HtAOt R 
ACTUAL UNITS POUND 



J 



M 



RUAO ltt C \ 1 1 
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SEQ 4/ 



llW 
lfW 

1840 
1 i^> 1. 

in: 

\{V-'3 
18^4 
lA9 r - 
1 8V0 

lrf l > ■ 
1400 

1401 

l i Vv 

l k *03 
1404 
140S 
l'*0*i 

: 90 : 

1 408 
190^ 
l'UO 
1911 
l'-U/ 
1413 
1914 
19 IS 
1916 

191 ; 

1918 

I'M 9 
l'VO 

i4:?i 

19.V 

is/ 3 

14.»4 

14.-S 
l'.V6 

3 4 r - ; 

1428 

19/4 
19 30 

1931 
V;3.-' 



0044 It. 
0044 <>/ 
0044 30 
0044 34 
0044*4/ 
004450 



0044V 

0044 So 
004464 

004466 

004 <; ;,■' 

004 '.iOO 
004^04 
00451, 
0045/0 
004 5/6 
004 -,3-i 
004 5 3h 
00454/ 
00454». 
004 554 



004 /h/ 

Gl?''/."' 
OUwCO 

oib'/fv; 

016 rtv: 

0004^3 



004 /6 / 
0L//6/ 
0^6/00 
016/6/ 
016 /S/ 
01?, 'b'/ 

00/, 500 
01 oo*» / 

Oil/'./ 

OU>/*W 

000455 



000/14 
0000'+ ^ 
1 / 3506 
1/43?-, 
1/4 33 J 



004.4// 000^60 
01/76/ 0000/0 
000405 



00064 4 
00004 1 
1? vV6 
1 74/56 
1 *'4/4^ 
000040 
000040 

1", 3f.S0 
00000/ 



1 f't't )/> 



J 7 3 ,■ Oi': 

r <«06 

1 / v.. .6 

: w^ : 

5 /36S6 



1 V i^hO 



*♦ + *♦*♦*******♦****************************;******.**,*,*****,*****.********* 
WRITE 

SET UP OP COOt, MODIFIERS .BUFFER SIZE CBrTE COUNT), 
BUFFER DESCRIPTOR (PYSICAL AND EXTENDED ADDRESS) 
LET READ SET SIMULAR DATA IN THE PACKET: 

DISK ADDRESS AND CYLINDER ID (LOGICAL BLOCK NUMBER), 
THEN SEND THE PACKET, 

4******************************4**************************************4 



WRITE! CAl I 
1 '3756 ,10V 

WRITEA: MOV 
\ i ' i'-A MOV 

i?3?50 MOV 

BR 



Ct R 

/>OP.WR.P.OPCD»CMPACK 

WHU S/.RO 

Wr?2PA,P.ADPA*CMPACI< 

W//EA,P,ADEA*CMPAO< 

READA 



; CLE AH PACKET'/, 

i SET THE OPCODE 

l STORE THE BUFFER SIZE IN WORDS 

(SET THE BUFFER DESCRIP TORC PA ) 

{SET THE BUFFER DESCRIPTORC EA) 



*************************** ****************************4****** ********* 

READ, ACCESS 

SET UF OP CODE, MODI* IER5 , BUf FER SIZE. CB1 TE COUNT), 
BUFFER DESCRIPTOR (PrSICAl. AND EXTENDED ADDRESS). 
DISK ADDRESS AND C HINDER ID (LOGICAL BLOCK NUMBER), 
THEN SEND THE PACKET. 



**i***********<i*4***«t*t 



J. + ************************************** 



ACCESS; J5R 

MOV 
BR 

RtAD: JSR 

MOV 
ACRE AD; MOV 

MOV 
MOV 
READA: MOV 
MOV 
Ast 
MOV 
MOV 
M'!' v 
BR 



V*Z , CL R 
40P.ACC.. 

ACRE AD 



a*CMPACK 



PC.CLR 

OOP . RD , P . OPCD • CMP ACK 

RBUf S/.RO 

R//EA.P.AD* A* CMP ACK 

R//PA.P.ADPA.CMPACK 

5.'. ,RSPl [ N 

#'■/. .CMPl EN 

RO 

R0.P.BCN1 ♦ CMP ACK 

lR/\P.l BN.CMPACk 

.' >*.' ),P.LBN. t ) »CMPACt< 

SEND 



I Cl t AR PACKET r > 

5 SET IHF OPCUOE 

{COMMON ACCFSS/READ CODE 

t Ci F AR PACK! TS 
St T 1Mb OPCODE 

STORE THE BU^ ER SIZE IN WORDS 
SET THE BUf FER DESCRIPTOR 

SET RE5P0NCE PACKET LENGTH 
SET COMMAND PACKET IfNl'TH 
Mrtl'.E IT NUMBER Of H 't U s 
SET Rf AD Hl»> ER SI/l 

SET UKUCAl BLOCK NUMBER 

{SEND THE PACK I- T 



/I 



004556 
004 56." 

004570 
004576 
004604 

004612 



004 76'/ 
012/6' 
01276 * 
012 76/ 
01,: 76/ 
000'* 34 



00O554 

00 .'005 
000001 

000060 
0C 0014 



ROAD DEC \Ll SYSTEM EXERCU-i 2 M 
MODl'I.t Ct^ r 



1935 
1956 

1^58 
1959 

1940 
1^41 
1942 
194? 
1944 
194 f '^ 
194 6 
) 94 7 

1948 

1949 
1950 
1951 
195 1 1 
195? 
1^4 
1955 
1^56 
195/ 
1958 
1959 

1960 
196 1 
1962 
19t>5 
1 164 
1965 
1966 
196/ 
1968 
1969 
19/0 
19 71 
19/2 
19 7 5 
19/4 
1 9/5 
19/6 
3 9,'/ 
19 /H 
19 /'i 



004614 
004614 
004620 
004626 
004654 
004 64 2 
004650 



004 76 / 
012767 
012/6/ 
012767 
012/67 
000415 



19*0 
1981 
1982 
1 9H 5 
1984 
1985 
198». 

198 7 



004652 
00465r, 

004 '.64 
0U4-.. <\ 
004/00 



004 76 7 
012 76/ 
012/6/ 
012/6/ 
01146/ 



ooo5 r- 

CGOO'-'J 

000054 
000004 
000120 



000460 
000054 
000044 
000011 

1/3*3;? 
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GET UNIT STATUS 

SET OPCODb AND MODIE IER (TOR THEN NEXT UNIT 
THF.N SEND THE PACKET 



SEU 48 



1 / ♦ 54/, 
1 / 54 56 
17. 544 
173544 



1/34 06 
1 75500 
1/3506 



TiiTA" CALL 

1 / 6)6 MOv 
1/ ,6l<: rtOV 

2 754 06 MOV 
173560 GT5TAA: MGV 

0.A 



Cl.R {CLEAR PACKETS 

OOP,GUS,P.OPCD»CMPACI< j SET THE OPCODE 

OMD.NXU.P.MOD'CMPACK j CLEAR MODIFIERS 

048..RSPLEN }SET RESPUNCE PACKET LENGTH 

012..CMPLEN jSET COMMAND PACKET LENGTH 

SEND {SEND THE PACKET 



• ♦*,if M *i"*Y. ****-***#***<***##***** + * + + **f* + + (.** + ******** ***. + ********* + * 

SET CONTROLLER CHARACTERISTICS 

SET OP CODE AND CONTROLLER FLAG (ENABLE ERROR ». OGS M5G5) 
CLEAR MSCP VLRSU)N, HOST TIMEOUT, USE FRACTION, 

AND ALL OF QUAD WORD TIME AND DATE. 
THEN SEND PACKET 



CC. 



CALL Cl.P. 

MOV 032. ,CMr>LEN 

MOV 02S. .RSPLEN 

MOV OOP. SCC. P. UPC J CMPACK 

MOV *120,P.CNTF»CMPACK 

BR SEND 



GO CLEAR THE! COMMAND PACKET 

SET UP COMMAND PACKET LENGTH 

SET UP RE.SPONCE PACKET LENGTH 

SET THE OPCODE 

SET CONTROU ER FLAGS -■ ERROR LOGS 

Sf ND THE PACKE I 



*****#****^*.*.**.*******-*A****+*************4-* + *. + fe*.^**.A***.*S.*,****4-|. .!***#.* 



ONLINE 



SET OPCODE . MODU ILRs. UNIT ID, HOST iD 
SHADOW UNIT, \ RROR FLAGS 
THEN SEND PACKET 



tM»»*MMOHM»M***tt*M*Hn*HH*t»M»*M«»Mt*H»Mt»nMH***+)* 



ONLINE! CAl I 
MOV 
MOV 
MOV 
MOV 



CI H ;Cl EA r < t'ACKE TS 

044 . ,HSPL [ N (SF T RES. ONCE PACK! r Lf NGTH 

036, .CM.Pi. EN ;Sl T COMMAND PACKET LENGTH 

CUP. UNI ,P .iJPCD-l'MPACK { "ill Tut OPCiU)* 

(R4 ),P.SHUN»CMPACK j'.kADOUI UNIT UN IT NO. 

{SEND THE PACKi ! 



ROAD 
MODUl 



dec \i 

t CUU 
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1*W1 
1*^*2 

l v >°5 
1 *»*■■»«> 

!*>'{* 

.'000 
2021 

2002 

200 < 

2004 

2005 

200t^ 

200/ 

2008 
2009 

2010 
2011 

2012 

2013 
2014 

2015 

201/ 

2018 
20 l l ) 
2020 

2021 
2022 

2023 



2024 

2025 
2026 

202/ 

2029 

202 c > 

2030 

20 3 1 
2052 

2055 
2034 
20 V. 

.''OS.' 



2039 



004 704 
004 704 
004 706 
004/12 
004 716 
004 /20 
004 726 
004 732 
004 /40 
004 /46 
004 /54 
004 /60 
004 /64 
004 /64 
004 7 70 



004 7 76 
004 / /(> 
005002 
005006 
005006 
005012 
005016 
005022 
00 5024 
005050 
005056 
00504 
005040 
005044 
005 044 
005046 



SEND SEND A PACKET 

INTERP - WAIT i OR AN INTERRUPT 

SET UP THE COMMAND REFERENCE NUMBER AND UNITNO IN THE PACKET 
SET OWN, CLEAR FLAG IN THE COMMAND RING (fflR RG1DX ) 
SET OWN C. riAC IN MESSAGE RING (FOR 1NTERRUPT5 BY RUDX ) 
AFTER INTERRUPT, MAKE SURE THE PACKET WAS PROCESSED CNO HARD 
OR SOFT ERRORS) THEN RETURN TO CYCLED. 

INPUT; CMPACK IS FILLED EXCEPT FOR CMDREE £ UN 11 NO 

INTERRUPT VECTOR AND BR LEVEL ARE. ESTABLISHED 

OUTPUT: hSPACK IS F II LED 

CLEAR CARRY IF COMMAND PACKET WAS UK 
ELSE GO DO A HARD/SOFT ERROR 

SEND: 



010046 
005067 

00526 7 
0017 75 
016767 
01146/ 
042767 
052/6/ 

052 7 tW 
004 767 
0057 7 7 



1.7571* 

173554 

173546 

173450 
040000 
100000 
140000 
0024 /O 
173022 



1* 



173450 

173326 
1/3320 
173306 



104400 000000' 



004 7 70 000004 000000' 004 7 76 



005067 
004/6/ 

016/00 
042/00 
022700 

001006 
00526 7 
052/6 7 

000 752 



1/3254 
00246C 

173262 
17/41/ 
000020 

17357*, 

140000 1/3224 



WAIT; 

NTRUPT 

1$ : 
2$: 



004/6/ 000004 

01 2*. 00 
00020V 



105 
99 S 



MOV RO, (R6) 

Ci.R sfhi.g 

INC CMDREF 

BEQ It 

MOV ChDREF , P . CRF *CMPAC'< 

MOV ( R4 ) , P . UNI T ♦ CMPACK 

BIC 4RG.FLG,C0MMND*2 

HIS 4HG.0WN,C0MMND*2 

R IS ORf .FIG! EG . OWN , RSPQNC *2 

J5R PC.OUTPKT 

1ST SADDH 

EXIT* .BEGIN 
PIRQt, BtblN.lt 



; CLEAR S()r" T ERROR > I AG 

I NEW COMMAND REFEMf NCE NUMBER 

COMMAND REF a CANNOT - 

SET COMMAND HE> NUMBER 

SET UNIT NUMBER 

CLEAR FLAG 

SET OWN FOR COMMAND RING 

SET OUN AND Fl AG FOR MESSAGE RING 

PR TNT PACKET (DIAGNOSTICS) 

FORCE POLLING TO PACKET 

HGNUH 
EXIT TO MONITOR. MODULE. WAIT FOR INTERRUPT 



CLR 
JSR 

MOV 

B1C 

CMF 

BNE 
INC 
MIS 
BR 

CAi i 

M'JV 
RTti 



R1N1R 






PC, LNPKT 






RSPV TR.RO 






<>l / /*U /,R0 






tf20.R0 






10$ 






M ^ Lli 






vRL.Fl (,}RG 


OWN 


RSP0NC»2 


WAIT 






ERR Chh 






'.R»*)* t RO 






PC 







j UUEUt OP TO CONTINUE. AT 1$ AND RT1 



CL EAR INTERRUPT > { At., 
PRINT PACKET (DIAGNOSTICS) 

GFT RESPONSE 

CLEAR ANi CREDIT 1 * 

IF RE SPUN SE • ERROR 1 Oo 

1NCREMNLT H.1FT [ RROR f '..AG 
sET OWN AND FLAG >{.)% MESSAGE RINu 
DOi'NTIl 

} CAI i ERROR. CHECK 

; RETURN 
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MODULI a-DF 



SLU 50 



2042 

204 < 

2044 
2045 

204 ' 

2048 
2049 

2050 

2051 

2052 

2053 

2054 
2055 

205b 

205 / 

"?058 
2059 

2060 

206 1 
2062 
2063 



005050 
005050 
005054 
005060 
005064 



005066 
0050 !?_ 
0050/4 



NON EXESTENT 

2064 00510c' 1 



2065 
2066 
2067 
20o8 
2069 
2070 
2071 
20 72 
2075 
20/4 
2075 
20/6 
207 7 
2078 
20^9 
2080 
2081 
20*2 
2083 



005104 

005104 
005110 
005112 
005120 
005122 
005122 
005126 
005130 
005136 
005140 
005140 
005144 
005146 
005154 
005156 
005156 
005162 
005164 
NON EXESIENT 

2084 005172 

2085 005174 

2086 005174 
208/ 005200 
?0W> 005202 

2089 005210 

2090 00521? 
R NON FXP.SU NT 

2091 005220 



2092 
209 5 
2094 

2095 

?"9t, 

2097 



005222 
005226 
005250 
005?V> 
005a40 



00506 7 
016700 
042700 
001513 



122700 
001004 
012767 

000474 

122 700 

001004 

012/67 

000465 

122700 

001.C04 

012767 
000456 



001004 
012767 
000447 

122700 
001004 
012767 

000440 

122700 
001010 
022/6/ 
00143/ 
01276 7 

000425 

122/00 
001025 
022/6/ 
001410 
022767 



1 73032 
173230 
177740 



000013 
000006 

000012 
000003 

00C011 
000032 

000010 

000001 

000006 
000006 

000004 
000003 
000006 

000003 
000011 

000003 



173004 



172766 



172750 



172732 



172714 



173176 
172666 



******* + + **» + ** + + + + £* + + * + + **** + * + * + + + * + + + + ** + * + + ♦* + + + + + + + +** + * + ** + * + + +.* 

ERROR CHECK 

CHECK FOR HARD OR SOFT ERRORS THEN RETURN 

INPUT: RO - STATUS OF CONTROLLER 

OUTPUT: CLEAR CARRY IF COMMAND PACKET WAS OK 

ELSE 00 DO A HARD/SOFT ERROR 

ERRCHK : 

CLEAR ERROR TYPE 
GET SUCCESS 

CLEAR UPPER 11 BITS OF SUB -STATUS 
IF SUCCESS NOT * 
THEN 

SELECT STATUS 

CASE DRIVE ERROR: 



3$: 



4? : 



5$: 



6$: 



85 



9$ 



1 7 3150 
17 3140 



Cl.R 

MOV 
BIC 
BEQ 


ERRTYP ; 
P.STS»RSPACK,R0 ; 
tfl77740.RO i 
15* : 


CMPB 

BNE 

MOV 


*ST.DRV,RO I 

3* ; 
tfERR. 6. ERRTYP : 


BR 


12$ ; 


CMPB 
BNE 
MOV 
BR 


aST.CNT.RO i 
4* : 
flERH. 3, ERRTYP ; 

12$ ; 


CMPB 
BNE 

MOV 
BR 


OST.HST.RO 1 
5$ ; 
0ERR.32.F.RHT1P ; 
12* ; 


CMPB 
BNE 
MOV 
BR 


-'»5T.DA1.R0 : 
6. ; 
tfEhR.l.ERRVYP ; 
12< : 


CM2B 

BNE 

MOV 


<r I.WPR.RO i 

O* J 

tfERR.b.LRRTiP ; 


BR 


1?^ ; 


CMPB 
BNE 
CMP 
BEQ 

MOV 


*5T.AVt ,R0 I 
OS ; 

<»op . c;i is , p . open ♦ cmpack ; 

14$ ; 
tfERR,6,EF!RTlP j 


BR 


12$ ; 


CMPB 

BNf 

CMP 

M.U 

CMP 


AST. on ,R0 \ 

1*« 

OOP. ONI .P.0PC0 ►CMPACK j 
10* { 
</0P.C»U5 1 P,0PCU*CMPA r * j 



ERR0R_TYPE - DRIVE NOT READ*. OFF LINE OP 

CASE CONTROLLER ERROR 

ERROR TlPE - CONTROLLER NOT READi 

CASE. HOST BUFFER ACCESS ERROR: 
ERROR. TYPE = NPR ERROR 

CASl DATA ERROR: 

ERROR _ TYPE = DATA E.RROR 

CASE WRITE PROTECTED: 

ERROR..! >PE « DRIVE NOT READ), OFP L.INE OR 

CASE ST III AVAILABLE: 

IF COMMAND NOT tit T 2N ;. T STAG'S 
ERROR T>PE •• DRIVE NOT READi, Of : F LINE C 

CASE UNM Off I INE: 

IF AN ONI INE COMMAND 

OH 

U liM UNIT STATUS COMMAND 



I" A /] 



RQAl) 
MOOU 



Hohl 
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2096 005246 

2099 005250 

2100 005256 

2101 005260 
BLE DRIVE 

2102 005262 
2105 005264 
2104 005264 

INE OR NON EXEST 
T 



2105 
2106 
210 ; 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
212/ 
2128 
2129 



005272 

0052 74 
0052 ?<\ 
005300 

005302 

005302 

005306 

005310 

005310 
005312 
005314 
005314 
005320 
005322 
005326 
005332 



001404 
022 767 

001002 
000261 

000424 

012767 
EN 

000400 



004 767 
000415 



004767 
000412 



000241 
000410 

005767 

001405 
005067 
004 767 
000241 



005334 000207 



000042 173130 



000006 172614 



10$ 

11$ 



12$ 



000136 



000170 



173306 

173300 
000144 



99$ 



BhQ 

CMP 
ONE 
SEC 

BR 

MOV 

BR 



10$ 

itQP . WR , P . OPCD + CMPACK 
11$ 



99$ 

4ERR,6,ERRTYP 



12$ 





CALL 


ERRORH 




BR 


99$ 


13$: 








CALL 


ERRORS 




BR 


99$ 


14$: 


CL.C 






BR 


99$ 


15$: 








TS'I 


Sf rn.G 




BEQ 


99$ 




CL.R 


sriru; 




CALL 


ERRORS 




CLC 





RE TURN 



SCO 51 



OR 

IF A WRITE COMMAND 

: THEN 

: SET CARRY TU DROP DRIVE/AWAIT AVAILA 

EXIT 
ELSE 

ERROR ^TYPE = DRIVE NOT READr, OFF L 



: END IF 
FNDSELF.CT 

*** HARD ERROR EXIT - -» 
AND HARD ERROR 



*♦* S0E1 ERROR EXIT -> ERROR TfPE * 
ERROR WITH F.RRTyP -- US A SOFT ERROR 
ST.CMP.ST.MFE, . ST . ABO, ST . CMO 



*♦♦ SUCESSf Ul. EXIT 
CLEAR CARRY 'CAUSE PACKET IS OK 

ELSE 
IF SOFT ERROR FLAG NOT =■ 
THEN 
CLEAR SOFT ERROR Fl AG 
CAl I ERROR SOFT 

CLEAR CARRY - DON'T DROP DRIVE 
END IF 
END IF 



N/l 



N4 



RQAO DEC Ml STSTEM EXERCISER M 

module: CODE 



151 
15.-? 
155 

154 
135 

13b 
137 

133 
139 

140 
14 1 
14 c? 
143 
144 



005336 

005336 
005340 



c?145 
2146 
214 7 
2148 
2M9 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
?166 
216/ 
2168 
2169 
2170 
2171 

:"• ?? 

2x73 

21/4 
21/5 
21 /6 
21 // 
2178 



C '5350 
005356 

005360 

005366 
005370 
005572 
005376 
005400 



0054 06 
005406 
005412 
005414 



0054 16 
005416 
005422 
005426 
005426 
0054 30 
005432 
005434 



010246 
017767 



00534b 001417 



104420 
000530 

104403 

010346 
01* 446 
004 767 

012604 
012603 



012/02 
012705 

005025 
005302 

00H/5 
000207 
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CLEAR 

IF SA * ERROR REPORT £ REINIT 
CLEAR PACKETS 

CLR: 



SEU 52 



172706 173146 



MOV 
MOV 



R2 , - ( SP ) 

oJRQDXSA.NUM 



000000 



000000 



174426 



000514 
010004 



15 RQDXSA NOT ZERO/STORE IN NUM IF TRUE 
IF RQDXSA IS NOT ZERO 
BEQ 5$ ; : THEN 

{CONVERT NUM TO ASCII AND 
; STORE AT ADRl 
0T0A5, BEGIN, NUM, A0R1 



MSGN$, BEGIN, 5AN0T0 



005402 005267 172436 



004 76/ 000004 

012602 

000207 



5$: 



MOV 


R3, -(SP) 


MOV 


R4 , - C SP ) 


JSR 


PC.INIPRT 


MOV 


(SP")*,R4 


MOV 


(SP)*,R5 


JSR 


PC. see 


INC 


HRDCNT 


CALL 


CLRPAK 


MOV 


CSPV.R2 


RfS 


PC 



000100 
0002/2' 



ASCII MESSAGE CALL WITH COMMON HE ADEN 
SAVE R3 
SAVE R4 

RE INIT RQDXSA 
RESTORE R3 
RESTORE R4 

SET CONTROLLER CHARS AGAIN 
INCREMENT HARD ERROR COUNT 
THIS WILL CAUSE ANOTHER CALL TO CLRPAK 
ENDI.F 

CALL CLEAR PACKETS 
POP 
RETURN 

CLEAR PACKETS 

ASSUMPTION: 1) RESPONCf BUFFER PRECEDES THE COMMAND UUH ER 
2) TWO WORDS BEFORE EACH Bi'MER IS I OR LENGTH 

OF PACKET AND VIRTUAL CIRCUIT 
OUTPUT: 

R5 ■' END OF COMMAND PACKET WHEN DONE. 

CLRPAK t 

R2 * it Of WORDS) 10 CU AR 

R5 ■» RSPLEN, 1ST WORD TO CLEAR 

BGNDO 

: CLEAR WORD 

: LUCRE MEN T COUNTER 
DOUNTIL -• ZERO 



6$: 



MOV 
MOV 


^■'1 . ,R2 
tfRSPl.E-N.R5 


CLR 
DEC 
HNf 

RETURN 


CR5)» 
H.' 

6$ 



t 1 



RUAD in C Ml S> 


SUN (At. 


RClStR M 


MACRO » 


mooih \ ci-in 








/lttO 








.MM1 








^UV 








.US5 








.U^l 








k s tt<s 








.'lt^ OOS4 5<- 








*:ia* oos4$t> 


o.v^: 


000004 


I 7*35? 


t ?lt*H 00S444 


0014 0? 






:i^» OOM4t. 


00 Vf- / 


17,\W 




;i*v oos4 r ^ 


00040/ 






.U'U OOM S4 








.TV 00S4M 


004 -■ h / 


OOOOSb 




,n^? 








00S4ti0 


10440S 


000000 


000000 


,'1^4 00'i4h«-i 


004 :* '.' 


000070 




/:**«. oos4.v 








,U% 00S4,V 


OOO^l 






l , l^.' 0054 74 


000 JO 7 






^WH 








.H^* 








.VOO 








*YOl 








i.VW 








t VOJ 








*.V04 








l\?0S OOM.V 








L \'0h 00S4 ;#, 


05.' V, ' 


000004 


Wi'M.* 


^VO* 00V»04 


00140 5 






iVOH 00V»0«, 


oo*v«. .' 


r/;?**o 




.V0'-» OOSM. 


00040/ 






*V1U OuV>14 








.*. 1 1 00V.14 
00*. VO 


004 76 / 


0000 lo 




10440f> 


000000 


000000 


.VI 5 00V. 4 »-» 


004 . 7 


000050 




,V14 OO'/.V' 








.Vl'» OuV.5. 


O0l. t 'f.l 






11' ' 


000, '0/ 






*'..'1H 








.Vl'* 








,VU.' 








> 1 1 < 








* v» v 








111 








,\V4 

' ' '' 1 








*\V'j OuV.V. 








AV-* OOSSV, 


01" ■'*./ 


1 <VMu 


1 \'M4 


.','. * COV.44 


01*. ■'*»' 


1 \' , .4n 


:v-v 


-■.'."♦ i/fJ'.'/i, 


111 ■■ .'*. / 


1 Ub >A 


I/JSvV 


. . J t 005.^0 


000i?0 T 






*vil 









iF.Q f 



f >5 



HARD tRROR CARRl Will B* SI T 



fcRRURHs 

BIT 

BtU 

INC 
BR 
/J: 

JSR 



ASR.RE-P.SRl 
M 

HRDCNT 
Hi 



I U REPORT I RPQR >■ NO 



8$: 



PC, St- T TAB 
HRDFRt.BMUN.NU I 
PC, PRINTS 



THfcN 
INCREMENT THf- HARD t.RROR 

l-.t.Sl 

SFT UP TARl fr 



JSH 



* * 



RTS 



PC 



t : 

» FNDP 

1 RhTi»WN H) C'CIK) 



SOF T ERROR 



CARRi Wli 1 Hi SI T 



tiUil»«t« 



•RRORS5 



l M: 



BIT O'.R.Rt P.SR1 

Bin «m 

TNC S(»CNI 

BR 1 $ 

CAl 1 Sf UAH 



i If RtPOHl f RROR « NO 



TH» N 
INCRRU-NT THh l ,0*- I F-.RROR 



M)» t HI.BHiTN.N'H 



10$: 



CAl. I 

SK 
RT', 



PRINTfc 

f'C 



l 

j (NOW 

i ',| I CAMM» 

I Rf M»RN Tl * 1 Ct t [) 



1 ST. UAH 

! >f T •»» >\ TABU (» VAMlf ', MIR A ( '0M OR HARD f RROR 



StMAUi 



MiW ROOX'.A.C'.MA 

Mi»v P.'.!-..R-,PA=;' ,A^!AI 

Mi'v <i)RUUXSA t ACSH 

U 1 4 i PC 



I'.M • ** CONTRvU .''»'ir, in.. RIPORt 

i^BVM' WHA1 IS iiUK'S Rtu 
i Hi TURN 



//<* 
.V.M 

*V*S 

//3 > 00556/ 

.V40 



00556/ 

oo5s,v 
//4 i 



0055.*/ 

005600 



005610 



005*. 1. 
005*^0 

/.-44 



^O'.if-.// 

005630 
//45 



005640 

;v46 



U0564. 

cor^so 

i\ J 4 .-* 



i'O'.'.V' 
«^4<j 005b /O 
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; 4 1 ************************************* : ******************************* 

I PRINT EXTENDED ERROR (STATUS, OPCODE, UNIT NUMBER , BrTI- COUNT, 

s l.HN AND ADDRESS) 

I 

PRINTh: 

j**^4******************************************A****»*****«*»*4* 

i CONVERT P. ( >TS»RSPACK TO ASCII AND 

(STORE AT AORi 
1044/0 000000' 000510' OTOA J .REGIN.P , 5T r .*R5PAC«< , ADR1 

000530* 

}**4*************4******************************«*************** 

(CONVERT P.0PC0*RSPAD< TO ASCII AND 

(STORE AT AOR/ 
1044/0 000000 000306' OTOA* .BEGIN, P >OPCD*RSPACK , ADR? 

000537 

J******.*************,******************************************** 

(CONVERT P.i.iNI T*R C ,PAC'< TO ASCII AND 
i 5 TORE A T ADR 3 
1044/0 000000* 00030c" OTOA i .BFGIN.P .UNI T ♦ RSPACK *,ADR3 

000546' 

I****************************.********************************.* 

{ **4*********************«************************************** 

(CONVERT P.HCNT*RSPACK XO ASCII AND 

(STOP 1 !. AT ADR4 
1044/0 000000' 00031/' OT0AM1E£jIN.P,RCNT.RSPACK,A0R4 

000555" 

5 ♦•••••▼••••••••••••••••••••••••••••••••*••••*•••••• ••••••••••• 

; *************************************************** «'MMt.MM 

jCONVIRT P.t BN>/*CMPACK TO Av>CIl AND 
I sTOHl A* ADR5 
1044/0 000000' 000434' OTOA$ .HEGIN.P . I RN»/ »CMPACk , A[)R5 

000564- 

j** t- ******«>********************•***•***•***»).*••**•••*********** 

(CONVFHT P.tHN.CMPACK TO ASCII AND 

j STORE AT AORt. 
UM4/0 000000' 00043/' OT'JAI .HK.IN.P.l HN-CMPACK , A[)M*» 

0005/ 3' 

j**4***««****»«*«*****#4*«*******«*«*********»****************»* 

(CONVERT P,ADt.A»CMPACK TO ASCII AND 

1..T0R* AT ADR' 
1044/0 000000' 0004/0' i ITOA J , Ml i ,, N ,P . A()f A ♦ CMPACK , ADR • 

00060/* 

{•••*••*•*•*••••••••*•••••••••••••••••♦•***♦*•**•**•••***•••• 

(CONVERT P.AOPA* CMPACK TO ASCII AND 

(MORI AT ADR8 
1044/0 000000- 0004 lrv l > MA i .HK'.IN , P . ADPA * CMPACK . AORM 

000611 

1044O', 000000' OlOtWfc* M .bN$ititiitN*kJANtRl iA*Ci* Ml '■ -m.ir CAUL WITH COMMON ML AUER 

000^0 •* MIS PC \Hi TURN 



SF fj 54 



I) 



)i\ P l & # 
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sro 5' 



.V'U 










% » l , 1 










!ys< 










.:.:!)•'. 










2255 










225»n 










225 












005b 72 








223°' 


00 Sf 7,? 








;\*^o 










22^1 


0^3- 7^ 


004 76 7 


000462 




» . I . tl k 


00 '.ib .'b 


150 76 7 


000010 


1723/3 


22*4 


003704 


001401 






22*3 


00 3 706 


105371 






-» v. - 


003 7 10 


10342* 






:w8 


003712 


104417 


oooooo- 




226s 


005716 


01676 7 


172152 


1 ,\". 700 


,~v;o 


003 724 


042 767 


'7 7560 


172672 


22 n 


005732 


004767 


000240 




2272 


005756 


10 410 






.V? 










02 :a 


005740 


00 '67 


000016 






005744 


10 40S 






?."? 'ft 










227 7 


005746 


004 76 7 


000224 




22 7 a 










22 7<* 


005 "52 


000402 






2230 


005 751 








2281 


005 754 


004 '76 '■• 


001220 




2282 










.■."'8', 


005760 


000207 






2284 











! no HUP DPI RATIONS 



tXVJUPi 
I*: 



2$: 



CALL 

Ht-U 

HCC 



I frUiNOO 

» : SETUP 

GTDUST j ; CAl I ill I [JUST MATUS 

} : rRRDH CHt'C" 

frSt ,ACT,R5P0NC*S.Fl AC» ; DOUNTtL NOT ACTIVE OR ERrtGR 
2* : 
II : 



RANDJ.BtiUN 

MOV R ANNUM, DUN 





n\c 

CALL 
BCS 


017 75*1 
REDDBN 




CALL 

BCS 


WRTOON 
90$ 




CALL. 


RhOOON 


10$ j 


HR 
r AL i 


DUPf-RR 


9S$i 


RL TURN 





j If NO LRROR 



THIN 



SK.F.CT A BLOCK 
CAl. I RtAD DBN 
{ i IK NO l-RROH 
THf.N 

CAL.t wrih ohn 

IK NO F RROR 
: THEN 

: CALL. RtAD DBN 
i : : KNDIL 
HOW 
St 
CAl I DUP fcRROR 
t JNOU 



.) 



ROAD DL : f 
MODULI a 

22tf6 

2.w> 
2290 
229 l 
,\>v 

\>>3 
2294 
2295 

229t> 
22 c «* 

2300 
? 501 

2302 

2303 
2304 
2305 

2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
231/ 
2318 
2319 

2 320 
2321 
2322 
2323 
2 324 
232 r > 
2326 
232 7 
2328 
2329 
2330 
2331 
23 52 
2333 
2334 
2335 
2 3<6 
233? 



Ml 
Dt 
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sr.a 56 



COS 7o2 
005 762 
005 .'66 

005772 



0057*4 
006002 

006010 
'>06014 



006016 
006024 
006026 
006034 
006040 
006042 
006042 
006046 
006054 
006062 
0060 70 
0060 76 
006102 



0Col04 
f .''fcM2 

C 06 120 
006124 



i 



2340 



006126 
006134 
006136 
006144 
006150 
006152 
006152 
006156 
006160 
006166 
0061 /2 

0061 «'4 
006174 



012 700 
004 /6 ; 
103500 



012767 
012 767 
004 76/ 
103467 



022767 
001406 
012767 
004 767 
000455 

011467 
016 767 
012767 
012767 
012 76 7 
004 767 
103434 



012 76/ 
012767 
004 76 7 
103423 



02276 7 

001406 
012 767 

004 76 7 
000411 

00576V 
001406 
01276 7 
004 76 7 
000400 



000207 



0064 76 
000424 



000002 
012462 
000556 



010006 

000006 
001140 



004414 
172552 
125125 

000006 
012462 
000410 



000004 
012462 
000446 



050003 

000006 
001030 



004 306 

000006 

001006 



1 72472 
172466 



0044 36 
172566 



004410 
004404 
172404 
172400 



172362 
172356 



004 326 
172456 



172434 



******** 4*^*4****** ***.**.**+******* *^******** *************************** 

00 WRITE DBN 

WRTDBN: 

j SETUP - WRITE DBN 

j CALL EXCUTE.l OACAL PROGRAM 

l IF FRROR 

j ; THEN 

I : EXIT BLOCK 

l FNDir 

SET BUf. COUNT ^ ■> 
SET DATA LOCATION 
CALL. RECIF.VE DATA 
IK ERROR 

: THEN ■> FXIT til. OCK 
END IF 

IK RESPONSE NOT - OK 
THEN 

SET ERROR 
CALL DUP FRROR 
EXIT Bl OCK 
2$: : END IE 

SET UNIT NO 
SET DBN 
SET PATTERN 
SET B> IE COUNT *, 
SET DATA LOCATION 
CALL SEND DATA 
Ih ERROR 

: THEN -> EXIT BLOCK 
FNDIE 

SET Bm COUNT - 4 
sf I DA! A LOCATION 
CAIL RECIEVe DATA 
If ERROR 

: THEN > EXIT BLOCK 
tNOU 

IE RESPONSE NOT « OK 
THEN 

SET ERROR 
CALL DUP ERROR 
EXIT Bl OCK 
6$: : : ELSE 

li- ERROR SIT 
THtN 

SE 1 ERROR 
CAl I DUP \ RROR 
EXIT BLOCK 
NO If 



7 5 : 
49 5 



MOV 


OWPBN.RO 


CALL 


Ext CPU 


BCS 


99$ 


MOV 


«2,BtTCNT 


MOV 


ORBUE.DATIOC 


CALL 


RC7DAT 


BCS 


99$ 


CMP 


*BIT12*6»RBUF 


BED 


2$ 


MOV 


#6»EHRELG 


CALL 


DUP ERR 


BR 


99$ 


MOV 


(R4).RBUF 


MOV 


DBN.RBUE.? 


MOV 


<U25125,HR<> *4 


MOV 


#6,BfTCNT 


MOV 


ORBUf ( DATLOC 


CALL 


SNPDAT 


BCS 


99$ 


MOV 


«4 # BiTCNT 


MOV 


.WHHE.DATLOC 


CAl L. 


RCVDAT 


BCS 


99$ 


CMP 


4BIU<*l.UT12>3,RUUt 


BEU 


6$ 


MOV 


frh.fRRU.ti 


CALL 


pup: rr 


BR 


99 J 


TST 


RB'Jf »2 


t.u a 


'$ 


MOV 


tf6,f RRr'LG 


CAl { 


D'JPk MR 


OR 


99 1 


RLIiJRN 





f 

ENDU 



KQAP Dt 
MODI at 

2342 

2344 
2345 
234b 
234? 
2 348 
2349 
2350 
2351 

2353 
2354 
2355 
235b 
235* 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
236 7 
2368 
2369 
23/0 
2371 



C Ml 

aw 
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SEU 



23 
2 5 



73 
23/4 
2375 

23/6 

2?' ' 

2378 
23."} 
2 580 
2381 
2382 
2 383 
2384 

2385 

2 386 
2387 



COM 76 

006176 
006202 
006206 



00o210 
00621b 
006224 
006230 



006232 
006240 
006242 
006250 
006234 
006256 
006256 
006262 
0062 70 
006276 
006304 
006310 



006312 

00^320 
006326 
006332 



00M34 
CO*, 342 

006 344 
OOt,352 
00*>356 
00635b 



03.2700 
004 76 7 
103463 



012 76/ 

012767 
004/67 
103452 



022767 
001406 
012767 
004 767 
000440 

011467 
01676/ 
012/67 

012767 
004 767 
105422 



012767 
012 76/ 

004 767 
103411 



022/67 
001405 

012/6/ 
004 /6 7 

000207 



006504 
000210 



O00CO2 
012462 
000342 



010005 

OOC006 

000724 



004200 
172336 
000004 
012462 
000202 



001002 
0124e2 
000240 



060002 

000006 
000622 



1 72256 
172252 



004222 
172352 



0041/4 
1/21/6 
172172 



172154 

172150 



004120 

172250 



* + + + + + ***** + *.*** + + + *** + * + + + * + /■+ + * + + + + * + + + + + + + * + + + + + ++* + + + **** + + + * + * + :*-** 

00 READ DBN 



** + *************+*A********4t** + **4* + 4A* + 

REDDBN: 



2>: 



MOV ORDBN.RO 
CALL EXLCPG 
BCS 99$ 



10$: 
99$; 



MOV 
MOV 
CALL 
BCS 



CMP 
BEQ 
MOV 
CM I 
BR 

MOV 

MOV 

MOV 

MOV 

CALL 

BCS 



MOV 
MOV 
CALl 
BLS 



CMP 
MOV 

Crti i. 

RETURN 



02.BUCNT 

ORBUK.OATl. OC 

RCVDAT 

99$ 



*>BTT12*5,RBUF 

2$ 

♦6.ERRKLG 

DUPERR 
99$ 

(R4),RBUf 
DBN.RBUF.2 
04, Ui TCNT 
ORBUK.DATLOC 

SNOOAT 
99$ 



0514. .Bi TCNT 

/?RBUf .DATLOC 

RCVDAT 

99$ 



ftlU i 14*HITl5*2 ( RfcH>' 

10$ 

.7*,,UWLG 

DUPERR 



J 



>********+++***********»**+**** 



SETUP - READ DBN 

CALL EXCUTF LOACAL. PROGRAM 

If ERROR 

: THEN -> EXIT BLOCK 

ENDir 

SET BlTE .COUNT - 2 

SET DATA LOCATION 

CALL RECIEVE OATA 

IF FRROR 

; THEN -> EXIT BLOCK 

fcNDIF 

IF RESPONSE NOT - OK 

: THEN 

: SET ERROR 

CALL DIP ERROR 
: EXIT BLOCK 
ENDIF 

SET UNIT NO 
SfcT DBN 

SET BlrTE COUNT ■: 4 
SET DATA LOCATION 
CALL SEND DATA 
IF ERROR 

! THEN • > EXIT BLOCK 
ENOU 

SET B'. TE COUNT -■ 514. 
SET DATA LOCATION 
CALL RECIEVE DATA 
IK ERROR 

tXIT BLOCK 



NOT - VALID 



: THEN - 
E NDIf 
IK R RUf 
THEN 

St T t RRUR 
CALL DUP„ERROR 
END IF 



ROAD 
NO" 



DUl 



FS0& 1 
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SF.Q 58 



538^ 

53 V V 
53*"*! 

53"V 
53^*3 
5394 

55**r» 

53^o 
53^ 7 

5398 
5399 

5400 

5401 

5403 
5404 
5405 
540t> 

f "!4o: 

5408 

5410 
5411 

5415 

54 1 3 
5414 
5415 
5416 
54 1 7 
54 18 
5419 
5450 
5451 
5455 
5453 
5454 
54 55 
5*456 

t >45' 

5458 
54 59 



006360 
006360 
006364 
006375 
006400 
006406 
006414 



006416 
0064 16 
006455 
0064 30 
006436 
006444 
006455 
006456 
006465 
006466 
006474 

0064 7b 
OOhSOl 

00b 504 
006507 



004 76 7 
015767 
01576 7 
015767 
0i5"67 
000516 



004 76 / 
015767 
015767 
015767 
015767 
01506 7 
01506 7 
01106 7 
015767 
000466 

15/ 
104 
155 
104 



1 / 7035 
000014 
000056 
000001 
000501 



1767 74 
000055 
000050 
000003 
000001 
171734 
171735 
171730 
000503 



155 

105 
105 
105 



175000 
17 16. '5 
1 75000 



i < 



171745 
171654 
171745 
171736 



172004 



154 
116 
104 
116 



GET DUST STATUS 
GTOUST; 



JSR PC.Cl.RPAK 

M0\ <>15, ,CNPi EN 

MOV 55.. RSP'. EN 

MOV #OP.GDS,P.Or» r O»CMPACK 

MOV OOP . GDS ! OP , tIND , ENOCOD 

ftR SNDDUP 



j GO CLEAR THF. COMMAND PACKK T 

SET UP COMMAND PACKET LENGTH 

SET UP RESPONCE PACKET LENGTH 

SET THE OPCODE 

SET END CODf roR CHECK 

SEND THF PACKET 



EXECUTE" I OCAL PROGRAM 

INPUT; 

RO - POINTER TO ASCII STRING NAME OF PROGRAM W) EXECUTE. 

EKLCPG: 



UDBN: 
RDBN; 



JSR PC.CL.RPAK 

MOV (>1H,,CMPLEN 

MOV #16.,RSPLEN 

MOV #OP.ELP,P.OPCD»CMPACK 

MOV #1 ,CMPACI<»15 

MOV CR0)* # CMPACK»14 

MOV (R0)»,CMPACl<»16 

MOV CR0),CMPACK. f .»O 

MOV OOP . ELP • OP . END , ENDCOD 

BR SNDDUP 

.ASCII /WRTDBN/ 

.ASCII /RtDDBN/ 



s GO CLEAR THE COMMAND PACKET 

j SET UP COMMAND PACKET LENGTH 

j SET UP RESPONCE PACKET LENGTH 

i SET THE OPCODE 

j SET MODIFIERS 

j SET ADDRESS Of" ASCII NAME PRG TO RUN 

S SET ADDRESS OF ASCIT NAME PRG TO R- 'N 

; SET ADDRESS OF ASCII NAME PRG TO RUN 

; SET END CODE * OR CHECK 

j SEND THE PACKET 



u f 



UQt\D 
MO 



DUl 



P'Sitt 
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SE-.Q 59 



/4 34 
»M 35 
*?4 36 
.M3 ' 
.?4 5dl 
iM jo 

.'440 

/441 
.'44^ 

;:44? 

;?444 
,'?445 
i?44b 

,M48 
iM4$ 
J 1 4 50 
^451 
^45^ 
^453 
*M54 
t '455 
^456 

.:4 s.- 

^4^8 
?4V> 
i?460 
i-'46l 

4 M6 3 
,?464 
,>46S 
i)4bo 
.?46/ 

2468 
24 6 i * 

^4 f 

;m / i 
..'4 ,v 
24 m 

24 , ? 4 

24/5 

t '4 /'■ 

.■a;; 
,'4:« 

,'4 ■■* 
^4b0 



006512 
006512 
006516 
006524 
0065 32 
U 06540 
0^546 
006554 
00656:? 



00b 5 72 
0065 7<? 

0065 76 
006604 

0066 K* 
006620 
006626 
0066 34 
00664»> 



004 767 
016 76 7 
012767 
012767 
012767 
016 76 7 
016 767 
01276/ 



006570 0004 30 



004/6 7 
016 76 7 
012/6/ 
01276/ 
012/6/ 
016/6 7 
016/6/ 
012/6/ 



00665Q 000400 



176 700 
171750 
000C34 
000020 
000004 
1/1 722 
171716 
000204 



1 /6620 
1716/0 

0000 34 
0C0020 
000005 

1 /164 t ' 
1/16 V.» 
QG02G5 



17165? 
171640 
17153? 

1/1640 
1716 36 
1/1634 
171710 



1715 7.' 
171560 
1/145,: 
171560 
1/1556 
1/1S54 
171630 



SEND DATA 

INPUT: 

OPCODE • 
HYTE COUNT - 
LOCATION = 



SNDUAT; 



JSR PC.CLRPAK 

HOV CMDREF ,P . CRF ►CMPACK 

MOV fr.C.SND.CMPL.EN 

MOV O.R.SND.RSPLEN 

MOV aOP . SNU » P . OPCI) ♦ CMPACK 

MOV DlTCNf, CMPACK. 14 

MOV DATL 0C t CMPACK *20 

MOV OOP . SND ! OP . END , F.NDCOO 

RR SNDOUP 



go clear the COMMAND PACKET 

SET COMMAND REFERENCE * 

SET UP COMMAND PACKET LENGTH 

SET UP RE5P0NCE PACKET LENGTH ????V? 

SET THE OPCODE 

SET BYTE COUNT 

SET DATA LOCATION 

SET END CODE FOR CHECK 

SEND THE PACKET 



RECEIVE DATA 



INPUT; 



OPCODE • 
HUE COUNT 
LOCATION * 



»***** + *«**** + *****4****** + *******»* + * + t*******************»***t*******. 



RCVOAT; 



,'SR PC.CLRPAK 

MOV CMDRH ,P CR> * CMPACK 

MOV o.C.RCD.CMPEfN 

MOV tf .R.RCD.RSPLEN 

MOv »0P . RCD , P . OP CD • CMPACK 

MOV hi ICNT .CMPACK • 14 

MOv DA 1 1 OC .CMPACK *S0 

MOV wOP . HCD J OP t \ NO , ENDCOD 

BR SNUOUP 



GO CHAR THE COMMAND PACKET 

SEf COMMAND REFERENCE 

SET UP COMMAND PACKET LENGTH 

SET UP RESPONCE. PACKET LENGTH 

SET THE OPCODE 

SET HUE COUNT 

SET DATA I OCA HON 

SET END COPE FOR CHECK 

SEND THE PACKE T 



1 ) 



ROAD DEC \11 
MODULE a .OF 
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SE.Q 60 



5485 

5483 

54 84 
5485 
548b 

.My.' 

5488 

54 *V 
54^1 
54<V 
54\»5 
54 r ?4 

549s 

54*»b 
54*' ' 
5498 

5500 
5501 
5505 
5503 
5504 
5505 
5506 
5507 
5508 
5509 
5510 
5511 
5515 
5513 
5514 
551') 
5516 
55 1' 
5518 
5519 
5550 
5551 



006655 
006b 5b 
006660 
OO0666 
00b675 
00b /OO 
006V Ob 
00b 7 14 
006755 
006/50 
006 7*1 

006/40 
006 74 4 

006 750 

006 754 

006 756 
006/65 



005567 
001775 
016767 
011467 
045767 
055 76/ 
045767 
055/6/ 
015767 
004 76/ 
005 / 7 7 

004 /b / 

004 76 7 
004 76 / 

103005 



004 



;*. 



171614 

17160b 
171510 
C40000 
100000 
040000 
100000 
001001 
000514 
171046 

000050 

000516 
0000 76 



000516 



SNDDUP 5t.N0 A OOP PACKET 

Sf T UP THE COMMAND REFERENCE NUMBER AND WNITN'J IN THE PACKET 

SET OWN, CLEAR FLAG IN THE COMMAND RING (TOR RQDX ) 

SET OWN i FLAG TN MESSAGE RING 

AFTER DONE, MAKE SURE THE PACKET WAS PROCESSED (NO HARD 

OR SOFT ERRORS") THEN RFTURN. 

INPUT: CMPACK IS FILlED EXCEPT FOR CMDREF £ UNI TNG 

INTERRUPT VECTOR AND BR t EVEl ARE ESTABLISHED 

OUTPUT: MSPACK IS FILLED 

CLEAR CARRY TK COMMAND PACKET WAS OK 
ELSE GO DO A HARD/SOFT ERROR 

*********** *********4***fe A***.**********************.********* *********** 



SNDDUP: 



171510 

171366 
1/1360 
171346 
1 71340 
171444 



000207 



99*: 



INC CMDREF 

BEQ SNDDUP 

MOV CMDREF, P. CRf- * CMPACK 

MOV ( R4 ) , P . UNI T » CMPACK 

BIC #RG.FLG.C0MHND»5 

BIS 0RG.0WN,C0MMND*5 

BIC *RG.FLG,RSP0NC»5 

BIS *RG.0UN,RSPiWC»5 

MOV fllOOl.CMPVIR 

JSR PC.OUTPKT 

T~,T 53ADDR 

CALL POL; 

JSR PC.TNPKT 

CAl L RSPCHK 

BCC 99$ 

CAl I UUPERR 

RETURN 



} NEW COMMAND REFERENCE NUMBER 

j COMMAND REF A CANNOT « 

5 SET COMMAND REf NUMBER 

i SET UNIT NUMBER 

; CLEAR FLAG 

; SET OWN FOR COMMAND RING 

: CLEAR FLAG 

i SET OWN FOR RESPONSE RING 

j SET DUP COMMMAND 

;PRINT PACKET (DIAGNOSTICS) 

$ FORCE POLLING TO PACKET 

; CALL POLL * OR OONfc. t J 

jPRIMT PACKET (DIAGNOSTICS) 

5 CALL RtSPOSE CHECK 

; IF ERROR 

j : THf N 

j : CALL DUP ERROR 

{ END I»' 



RQAD DEC Ml SYSTEM EXERCISER M 
MODULI COOt 

.?S.*S 

?t>^. : 



>, 



'O 



.:s3o 

i-?S5l 

;:s33 

^34 

? r >3S 
j l ;>3t> 
^37 



^ r >38 

*?r»39 

.?S40 
?541 
? f J4? 
; j 543 

, lt )44 
L !S4S 

2546 
?S4 7 
i:M8 
2M9 
?550 
PSSl 
?5S? 

;?ss3 
?SS4 
;?S5S 

*V./)6 



006764 

006 764 
006 766 
006770 
0067 7,' 
006776 
006776 
00700c? 
00700? 
00 7006 
007012 
007014 
007016 

0070»?0 
00/026 
00 7030 

007036 
00 .'040 

0070V 

00 7044 
00/044 
00 .'04 6 
007050 



010446 
010546 
0O0P41 
0l?704 

01?70S 

104407 
104407 
00530S 
00137? 

OOS3C4 

03? 76/ 

001406 

3?/ 7 7 
00100? 
00b 704 
0013S r > 

0l?60T. 

01 »604 
000207 
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POLL WAIT FOR DONE 

AFTER DONE MAKE SURF THE PACKET WAS PROCESSED (NO HARD 
OR SOFT ERRORS) THEN RETURN, 

INPUT : 

OUTPUT: 

POLL: 



SEU 61 



000100 

000010 

000000' 
000000' 



100000 
100000 



1$ 

2) 



171<?34 
l7l fo U4 



99* 



MOV 
MOV 
Ci c 

MOV 

MOV 



R4. -CR6) 

R l . . - ( R6 ) 

#100. R4 

no. rs 



BREAKS, BEGIN 
BREAKS .BEGIN 

DEC R r > 

BNE ;?$ 

DEC P4 

B I T ORG . OWN , RSPONC • ? 

HEU 99$ 

BIT ^SA,ERR.o)RUDXSA 

BNE 99$ 

1ST R4 

BNE 1 $ 

MOV U<6 ;♦,«*> 

MOV tR6)*.R4 
RETURN 



5 CLEAR ERROR FLAG 
i SET TIME OUT - 100 

I BGNOO 

: SET DOWN COUNTER ■ 10 
: BGNDO 
TEMPORARY RETURN TO MONITOR..., 
THEN CONTINUE AT NEXT INS 1 RUCTION. 
: DECREMENT DOWN COUNTER 
DOUNTIl DOWN COUNTER ■ 
DECREMENT TIME. .OUT 

DOUNTIl RESPONSE = DONE (WE OWN) 

OR 

S4 - ERROR 

OR 

TIME OUT =0 



i. i . 



y [ 



HUA'.i OJ-r mi 
MODUS. I CuOt 



25t^0 

25*1 

t '5*2 
25^5 

25*4 
25t*s 

25or« 

25K' 

25t»e 

25t^» 

25 ;o 

25/1 

25*2 

25 75 

25 /4 
25 M . 
25 /6 
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:>*> 



SF.Q 62 



25/8 
2579 
25tW 
2581 

2582 

2585 

2584 
2585 

2586 
258? 

2588 

25BW 

2590 

2591 

2592 

2595 
2594 

?596 

2597 

2599 



00/052 
00 /052 
007054 

oo /060 

007064 
00 70 7? 
CO/0/4 
00 7076 
00/104 
007106 
007 114 
007116 
007120 
00/126 
00/150 
007154 
00/140 

00/142 

00/144 
00/152 
00/154 
00/162 
00/1M 
00/16*. 
0\) / 1 /4 
007176 



00024 1 
00506 / 
005067 
026767 
00140S 
000261 
012/67 
0004 34 
026/67 
00140S 
00C261 
012/67 
000425 
Olb/OO 
042 /OO 
001405 

000261 
012/6/ 

0004 11 
052 7/7 
00140S 
000261 
012 /t / 
000400 
000207 



171026 
1/1556 

171216 



000001 
171164 



0OOO03 

100000 



*********************************************************************** 

CHECK RESPONSE AND COMMAND PACKETS 
INPUT: 



END. CODE 



OUTPUT; 



ERROR 
**************************************** 

RSPCHKj 



17140b 

171516 
171556 



000002 1/14 74 

1/1154 

177 740 



1$ 



2$ 



171450 
1710 70 



000004 171426 



5$ 



99$ 



CLC 




CI R 


ERR HP 


Cl.R 


ERRH.G 


CMP 


REPACK *P.OPCD,ENDCOD 


beq 


H 


ShC 




MOV 


Ol.ERRFLG 


BR 


99$ 


CMP 


RSPACK.CMOREF 


BEQ 


2$ 


SK 




MGV 


*2,LRRFLG 


BR 


99$ 


MOV 


p. stlwrspack.ro 


B1C 


©1/7740, RO 


BEQ 


3$ 


51. C 




MOV 


©5.EHRFI.G 


BR 


99* 


BIT 


©SA,ERR,o)RQDXSA 


BtU 


99$ 


'.K 




MOV 


*4,tRRFLG 


BR 


99$ 


return 





******************************* 



CLEAR tRROR 
ERROR TiPE « 
F.RROR H AGS - 
F RESPONSE. CODE NOT -- END CODE 
THEN 
St T F.RROR 

FND CODE OOPS NOT MATCit 
NDIF 

IF CMD REE NUMBER NOT •- RE> NUMBf H 
THEN 
SET ERROR 

COMMAND REE NO NOT MATCH RESPOSE 
NDU 

GET STATUS SUCCESS 

CLEAR UPPER 11 BITS OF SUB-STATUS 
IF STATUS NOT - 
THEN 
SET ERROR 
COMMAND NO 
ENDU 

I»-" SA ' FRROR 
THEN 
St T ERROR 
.A = ERRUR 
NDIE 



SUCCESSFUL 



ROAD DEC Ml S^SU'H EXERCISER M 
MODULfc CODE 



2b0i 

2b02 

2b04 
2n05 

;^0b 

2b 0* 
2608 
2609 
2b 10 

^611 

2613 
2614 
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t****************.--***,**********************************************^** 

DUP HARD ERROR CARRY WILL BE 5E T 

********************** **********./ ************************************** 



SEQ 63 



007200 
007200 
00 7206 
00/210 
007 J 14 
00 /.'lb 
00721b 



032767 
001403 
00526/ 
000465 

004 ?r> 7 



007222 104405 



2615 
2616 

2b 17 
2618 
,2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
.76.': 7 
2628 
2629 
2630 
2631 
26 32 
2633 
2634 
2635 
2636 
263 7 
26 38 
2639 
2640 
2641 
264? 
2643 
2644 
2645 
.'646 
2b4 ' 
2648 



007234 
00/240 
00/242 
00/250 
007252 
007256 
00/260 
00/266 
007270 
0072 74 
007276 
00 / 504 
007306 
007312 
007314 
00 7322 
007324 
00/330 
007332 
007340 
00/342 
00734b 
007350 
00 /35b 
007360 
00/360 
00/366 

00/3/0 
00/3/0 
007372 



C04767 

005367 

001004 
104402 
00044 7 
005367 
001004 
104402 
000440 
005367 
001004 
104402 
000431 
005367 
001004 
104402 
000422 
005367 
001004 
104402 
000413 
005367 
001004 
104 402 
000404 

104402 
000400 



0002b 1 
000207 



000004 
170630 

1/6314 

000000' 

000140 

171362 

000000' 

171344 

000000' 

171326 

000000' 

171310 

000000' 

1712 72 

000000 

171254 

000000' 

oooooo* 



170610 



000000 



010126' 

010140' 

010152' 

010162' 

010172' 

010204' 
010216' 



DUPERR: 



/$ 



10$ 



12$ 



14$ 



16$ 



18$ 



50$ 



99* 



IF" RFPORT ERROR * NO 
THEN 
INCREMENT THE HARD ERROR 



BIT #SR.REP,SR1 

BLQ 7$ 

INC HRLCNT 

BR 99$ 

ELSE 

CALL SET TAB ; : SET UP TABLE 

j*************************************************************** 

HRDERi. BEGIN, NULL 

;*************************************************************** 

CALL DERRPT j : CALL DUP ERROR REP01T 

SELECT ERROR FLAGS 
: CASE END CODE ERROR; 



DEC ERRFLG 
BNE 10$ 
MSGS$. BEGIN, DUPMS1 
BR 99 $ 

DEC errfi.g 

BNE 12$ 

MSGS$» BEGIN, DUPMS2 
BR 99$ 

DEC ERRFLG 

BNE 14$ 

MSGS$, BEGIN, DUPMS3 
BR 99$ 

DEC ERRFLG 

BNL 16$ 

MSGS$, BEGIN, DUPMS4 
BR 99$ 

DEC ERRH G 

BNE 18$ 

MSGS$,BEGIN,DUPMS5 
BR 99$ 

DEC ERR* 1 G 

BNE 50$ 

MSGS$,HEGIN,DUPMS6 
BR 99$ 

MSGM.BEGTN.DUPMSF 
BR -*<»* 



st C 
RTS 



PC 



ASCII MESSAGE CALL WITH NO HEADER 
: : CASE COMMAND RF.F ERROR; 
ASCII MESSAGE CALI UITH NO HEADER 

': CASE NO SUCCESS: 
ASCII MESSAGE CALL WITH NO HEADER 

': CASE SA ERROR: 
ASCil MESSAGf CAl I U11H NO HEADER 

• : CASE SEND ERROR: 

ASCil MESSAGE CAl l. WITH NO HEADER 

J i CASE RE C LEVI ERROR: 

ASCil MESSAGE CAl t WITH NO HEADER 

': : DE-AUL! : UUP t RROR 

ASCir MESSAGE CALI WITH NO HEADER 

• f'NnSrlFCr 

ENOU 

SET \ RROR 1X11 

RE TURN TO ClCl U) 



M r 



RQAl) DEC Ml SYSTEM EXERCISER M 
MODULE CODh 

2650 
2651 
2b52 

2654 

2655 

2o5b 

265 * 

2*^58 

265^ 

26t>C 

2661 

26o2 007374 

2bo 3 



00/3/4 

007402 



104420 

000530' 



000000* 000310 



2664 



00/404 104420 000000' 000306' 

007412 000537' 

2665 007414 011467 171074 
2666 



00 7420 104420 000000' 000514' 
007426 000546' 



2667 



00 7430 1044 20 000000' 
0074 56 000555' 



2668 00/440 104403 
2M.v# 007446 000207 
2670 
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*****.*-:************ + ****+******* + +* + ***** + *+**. + * + + + * + + + +. + +*+* + + + *. + + + + +A 

DUP ERROR REPORT 
INPUT; 
OUTPUT: REPORT ERROR 

PRINT STATUS, OPCODE, UNIT NUMBER, D8N ) 

* * * i * , M * M. * * * * * M. M t i M. M^ + * M M t * * * i * * * M * * * ./ * * * M * * * + * t * * * * ft M * * * t M * 

DERRPT; ; 

{CONVERT P.STS^RSPACK TO ASCII AND 
{STORE AT ADR1 
OTOA$,BF.GTN ( P.STSfRSPACK,ADRl 

;+* + *** + ** + + ****** + •*****+* + + *** + * + * + + * + + *+ + *+* + * + **. + ***♦♦.+ **♦* 
.* + *.** + *****. + **** + ***** + *********** + *** + *******+*******+******,** 

{CONVERT P.OPCO*RSPACK TO ASCII AND 
{STORE AT ADR2 
OTOA $ .BEGIN . P . OPCD ♦RSPACK . ADR2 

MOV (R4),NUM j GE1 UNI! # 

{CONVERT NUM TO ASCII AND 
{STORE AT ADR3 

OTOAS, BEGIN, NUM. ADR3 

jCONVi R: DBN iO ASCII AND 
{STORE AT ADR4 
OTOAS, BEGIN, DBN, ADR4 

MStiN$ ( BEGIN,BANER2 {ASCII Ml S SAGE CALL WITH COMMON HEADER 
RETURN : 



SEQ 64 



000624' 
000000* 01027 ' 



\j ) 



N r 



ROAD DEC All SYSTEM EXERCISER M 
MODULE CODE 



^673 
.2674 

26 /5 

2b 76 
26 7 7 
26 78 
2679 
2680 
2681 
t >682 
2683 
2684 
2685 
2686 
268 ,' 

2688 

2689 
2690 
. ;> 691 
.'692 



MACRO M120C 09- APR -84 16:31 PAGE 56 

INPKT AND OUTPKT - PRINT RESPONSE AND COMMAND PACKETS 



SEQ 65 



007450 
007452 
007456 
007464 
007466 
0074 70 
007474 

00/502 

007510 

00O12 

007514 

007520 
007526 



010246 
012702 
012767 

000406 
010246 

012/02 

012767 

032767 

001460 
010046 
012700 

10440? 
012267 



000576 
05251/ 



0002 /t» 
0471U 

000001 



000004 

000000' 
1 70762 



00/532 104420 000000 

00 7540 000546 

2693 007542 012267 170746 

2694 



00/546 104420 000000 

007554 000555' 

269 r > 007556 012267 170732 
,\>96 



00/562 104420 000000 

00/5/0 000564' 

269.' 007572 012267 170/16 

,'698 



00/5/6 104420 000000 

00/604 0005/3' 

2>.'^ 007606 01226/ 170702 

2/00 



00/61,? 104420 000000 

00/<>20 000602' 

'Oi 007622 012267 X /0666 
'702 



001074 

001056 
170306 

010102 

000514 



44**4 *4****4**-4 + A*44, \4*4444444444444444444444i4444444444444444444+444+* 

OUTPKT; MOV ^2, ( 5P ) 

#CMPACK,R2 

<>"0 , J I RY1 

COM 

R2.-CSP) 

GRSPACK.R? 

ft"IN,RYl 



MOV 
MOV 
BR 
INPKT j MOV 
MOV 



COM: 



000514' 



000514' 



000514 



0001*14 



\%i 



MOv/ 

BIT 

DEQ 

MOV 
MOV 



ftSR.PAK.SRl 

10$ 

RO , -- ( SP ) 

#4 ,R0 



} PRINT PACKET INFORMATION? 



; ASCII MESSAGE CALL WITH COMMON HEWT R 



MSGN$, BEGIN, PAKHED 

MOV tR2)*,NUM 

;44l44*+- + ****4 + *44*4444444***4**4*4444444 + 444 + *44*44444444444444 + 

{CONVERT NUM TO ASCII AND 

{STORE AT ADR 3 
OTOAJ, BEGIN, NUM ,ADR3 

; 444444*4444444444444444444444444*44444**444444*44<**4*444 + + 444* 
MOV (R2)*.N0M 

• 4*44** + 4++44**44 + 4*4*4*44*44*** + 4 + 4 + v + *+ + * 4 + 4*** 444*44444444444 

{CONVERT NUM \0 ASCII AND 
{STORE AT ADR4 
0K)A*,HEGIN,NUM,ADR4 

MOV CR2)*.NUM 

I CONVERT NUM 10 ASCII AND 
{STORE AT ADR5 
OTOA$ .BEGIN. NUM. ADR5 

;4*44444444444*44*4444444444444444444444 + 4444*< 1 4444*44***44* + ** 

MOV (R2*)*,N0M 

; 444444444444444444*4 4 4**4*4*4**44**444444*444*44 ^444*4444444444 

{CONVERT NUM TO ASCII AND 
{STORE AT ADR6 
OTOA*. BEGIN, NUM, ADK6 

• * * 4 4 <' »4+*4444+444 t*4*44H»*ti<M4*****tMtfMi4i44M«f«*H tMU 

MOV O^M* ,NUM 

. 444444***4+44*444*444*44****4+44*4**4**4 4 + • + *** + 44444444444 4 4U 

{CONVlRl NUM 10 ASCII AND 
{STORE. AT ADR/ 
i OA $ , HI GIN , NUM , ADR / 

;*44*4444+*44*i- 4 + 4444444**4*4444444444444444*444+44*44444**4 4 •* 

MOV (R«- *.NHM 

[■4. + A + *4>* + *+h*.** + 'fa4.* + + + +.*+ 44 * t*U*t 44 44* 4>++4 4 4 4. + * • 4.^444444 4 <i 4 t 444 

iCONVLRI NUM TO ASCII AND 



!•'.'. 



RijAP OK Ml SVillM (rXt-RCtSlR N MACHO M1,»00 04 APR 8*1 H>:M PAtif Mi 1 
MODU.t Ci'PI 



SF.Q 6'* 



OOi'tVti 1044*V 000000' 0O0S14 ' 
00.'t>54 0OOM1' 



.'.*o5 oo/«^ 

.* V4 

/ 'OS 00 >>>44 

00/64t> OOl-V.* 

^ Vt- OO.'bSO OUVOO 

/ '0 * K\^'t^u' OK'tikV 

.'■V.** 00/6S4 00C\?07 



10440,? 000000* 010u>40' 
00S500 



105 



UTOAJ.Ht (.IN.NUM.AnRH 



I S TORI- AT A[)PM 



• **»*****i*##.,w#. ******************** ******»******************,* 

MSUSl.Bt.CilN.PACKtT j ASCII MfcSSAGh CALL WITH NO HLAUt^ 



m c 


RO 


HNI 


1$ 


MOV 


(SP)» ,M0 


MOV 


r»F)»,R*? 


RTS 


PC 



RQAD DEC AL1 SVSTEM 


EXERCISER M 


MACRO M1200 


09-APR 84 


16:31 PAGE 


61-3 








S1MROI 


TARl E 


















OP.Avt ' 


ooooio 


PRH5 - 


000240 


QM0N22- 


000010 


SA . CME • 


■ 000360 


ST. ABO* 


000002 


CP.CCD-- 


0000?! 


PR 11 6 ■ 


000300 


RANACC 


004050R 


SA.CTP' 


« 003400 


ST.ALO- 


000006 


OP.CMP* 


000040 


P«T> 7 - 


000340 


RANDS - 


1044 1.7 


5A.DIA- 


■ 000400 


ST.AVL- 


000004 


UP.DAP= 


000013 


PS 


177776 


RANNUM 


000054R 


SA.ERC- 


■ 003777 


ST.CMD- 


000001 


QP.f-LP' 


00000? 


PSW 


177776 


RBUP 


012462R 


SA.ERR' 


« 100000 


ST. CMP* 


000007 


OP. END * 


000200 


PUSH « 


005 746 


RBUF'EA 


000130R 


5A.G0 ■ 


• 000001 


ST.CNT* 


000012 


OP.ERL- 


000101 


PUSH2 « 


024646 


RBUFPA 


000126R 


SA.INE 


- 000200 


ST. DAT. 


000010 


OP.ERS- 


000022 


PWRFLG* 


000002 


RBUFSZ 


O0O132R 


SA.INT- 


■ 000200 


5T.DIA- 


000037 


OP.hSP- 


00000*? 


P.ADEA- 


000022 


RBUFVA 


000124R 


SA.LFC 


* 040000 


ST. DRV - 


000013 


OP.FLA'* 


000023 


P.ADPA- 


000020 


RCVDAT 


006572R 


SA.PRG' 


• 000001 


ST.FAL- 


000005 


UP.GCS= 


000002 


P.BCNT* 


000011 


RDBN 


006504R 


SA.QB ' 


■ 001000 


ST.H5T- 


000011 


OP.bOS- 


000001 


P. BUFF- 


000020 


RDONl.Y 


010062R 


SA.RSE" 


■ 000017 


ST ,MFE» 


000005 


OP.GU3* 


00000? 


P.CMST» 


000020 


ROWRT 


010050R 


SA.RSP- 


• 007400 


sr ,Msi<- 


000037 


OP.MRD^ 


000050 


P.CNCL* 


000022 


READ 


004466R 


SA.S1 ' 


■ 004000 


ST.NON- 


000004 


OP . MUR •-- 


0C0051 


P.CNT - 


000006 


READA 


004520R 


SA.S2 • 


• 010000 


5T.NRA- 


000002 


OP. ONI. 


000011 


P.CNTF- 


000016 


REDDBN 


0061 76R 


SA.S3 


020000 


ST.NRS* 


000003 


OP.RCD* 


000005 


P.CNTI= 


000024 


RF.STRT 


001124R 


SA.S4 


- 040000 


ST.OFL- 


000003 


OP.RD = 


00004 i 


p.cpsp • 


000042 


RESTR1 


001260R 


SA.VCE 


- 000177 


ST. SUB* 


000040 


OP . RPt. 


000024 


P.CRP * 


000000 


RE5TR2 


001234R 


SA.VEC 


• 000177 


ST.SUC" 


OOOOOO 


op, sec = 


000004 


P.CTMO- 


000020 


RtSl 


000056R 


SBADR 


000102R 


ST.WPR» 


000006 


OP.SHC 3 


00010.? 


P.CYL ' 


000050 


RES2 


000060R 


sec 


0046 14R 


SVRO 


000062R 


OP . SND = 


000004 


P.DEV - 


000034 


RG.Fl.G- 


040000 


SC.DIS 


« 000400 


SVR1 


000064R 


op. sue = 


0000 IP 


P.ELGr- 


000034 


RG.OWN- 


100000 


SC . DUP 


• 000200 


SVR2 


000066R 


OP.WR = 


0000*2 


P.F'BBK- 


000034 


RH70 » 


001000 


SC.l'NV 


= 000100 


SVR5 


0000 7CR 


OTOA* = 


104420 


p.n gs* 


000011 


RINTR 


000256R 


SCI OP 


■ 000100 


SVR4 


0000 72R 


OUTPKT 


00 74SOR 


P.GRP '■ 


000046 


RLIM « 


000004 


SC.NVi. 


- 000040 


SVR5 


0000 74R 


PA 


000504R 


P.HSTI* 


000020 


RQDXSA 


000252R 


SC.STO 


* 000040 


SVR6 


0000 76R 


PACKET 


010240R 


P.HTMO" 


000020 


RSECH 


0006 36R 


SEND 


004 7 04 R 


StSCNT 


000052R 


PAKHED 


010102R 


P. LBN - 


000034 


RSECL 


0006 34 R 


SEQACC 


004010R 


S . E X T - 


000014 


PARPRE= 


002000 


P.LGOT- 


000014 


RSPACK 


0002 7 6R 


SET TAB 


005536R 


S.FLAG- 


000017 


PASCNT 


00O054R 


P.MF.OI* 


000034 


RSPCHK 


00 /052R 


SETUP 


O03032R 


S . PROS - 


000020 


PDPF'll* 


000002 


P.MLUN- 


000014 


RSPLEN 


0002 72R 


Sf. .ACT 


« 000010 


S. TEXT- 


OOOOOO 


PDPL.S1 = 


020000 


P. MOD - 


000012 


RSPONC 


000260R 


SE.DIS 


- 000001 


S. TOUT- 


000024 


P0P44 - 


1.00000 


P.OPCD* 


000010 


RSPVIR 


0002 74R 


SE.IDl. 


' 000000 


TABLEW 


000656R 


POP60 := 


004000 


P.OTRF- 


000014 


RSTRT 


0001 12R 


sr a.oc 


-■ 000002 


TEMP 


000530R 


PDP70 = 


010000 


P.OVRL- 


000034 


RVA 


O0O756R 


SE . SUP 


• 000004 


TEND 


000756R 


PH.Al.O- 


00000 \ 


P.RBN - 


000014 


RyO 


010550R 


SFIH.G 


000626R 


TIMER - 


02 '340 


PH.ni.li- 


OOOOIO 


P.RBNS- 


000056 


RyI 


010560R 


SNDDAT 


006512R 


TIMOUT« 


0056/0 


PH.CVP-- 


000002 


P.RCTC- 


00005 7 


Ry3 


010564R 


5NDDUP 


006652R 


TRPDF"D» 


000023 


Ph.Ru ■■■■ 


000004 


P.RCTS- 


000054 


Ry4 


0105 /4R 


SNOSTP 


0025 54 R 


TRi 


0006 4 hH 


PICKBK 


004000R 


P.RGID* 


000034 


Ry5 


010612R 


SOFCNT 


000042R 


TSTOK. 


003 5 30 W 


P1RUS : 


000 004 


P.RGOF- 


000040 


Ry6 


010642R 


SOFER$ 


- 104406 


E'F . CMR - 


0^000 1 


p*rsi/» 


000060 


P.RS^D- 


000011 


Ry/ 


01 06 7 OR 


SOf PAS 


000046R 


UF .CMW- 


000002 


POi 1. 


006764R 


P.SFTU* 


000040 


RYfl 


010/14R 


SP01NT 


0000 32R 


U . TNA* 


040000 


P0P5P * 


005 726 


P.SHST* 


000042 


R.Mt.Sli- 


000000 


SPSIZ 


- 000040 


L* .RMV- 


000200 


POPUP.' ^ 


022626 


P . SHUN - 


000040 


R. TFXT •• 


000002 


SR . CMP 


- 004000 


U .RPE- 


010000 


PHHM5** 


0000C2 


P.STS = 


000012 


R. MPF -' 


U00001 


SR . PAK 


- 0C0001 


K if . SCH » 


004000 


PR IN IF 


00556 2R 


P.S/OF'« 


000012 


RlrtFA 


U00 762R 


SR . RF P 


• 000004 


UF . SCI • 


002 OCO 


PHNMSG 


O00S26R 


P. TIME •■ 


000024 


R18PA 


000 .'60R 


SR . RON 


-■ 000002 


U* .UBN* 


OOOiMO 


PRTNUM 


0000 1 / 


P.TRCK- 


00004 4 


R22EA 


000 766H 


SR . SF 


- 002000 


UF .UPK* 


020000 


PRTST5 


001 /42R 


P.UNR - 


000016 


R22PA 


000 7 64R 


SR . SUM 


- 000010 


UF .WPS ' 


010000 


PRTi 


000000 


P. UNIT - 


000004 


R6 


■iiOOO' )06 


SRI 


0000 U.R 


U> .5 *b = 


000004 


PRTfO ' 


000000 


P.UNS/" 


000044 


R/ 


#00000 / 


SR2 


000020R 


UN10J K 


100 14^ 


PR I i 1 •; 


000 on 


P.UNTI - 


000024 


5 A NO 10 


01 0004 R 


\R< 


O000c\>l\ 


UNITFi 


000^2. )0R 


pwr !«■ =- 


000100 


P.USH ■- 


00002,' 


SAvFA 


000524 R 


SR4 


OOOO. '4R 


i'NS/H 


000«i42»« 


pr: i ' ' 


000140 


P, VRSN- 


OOOO 14 


5AVPA 


000-22R 


iIAHT 


001002R 


t 'N'./t 


\'0vV,4^rt 


PRTi4 * 


000200 


P.VC>E«^ 


000050 


5A.CM0 3 


1 70000 


MAI 


00002t^R 


UPPER * 


000002 



SEQ 74 



< > . 



\<i 



RQAD 1H : C Ml SlSTt.M 


tXtRClSKR M 


MACRO Ml 200 


09 


-APR vH4 


lb: 31 PAGE 61 


-4 






SlNHOi 


T ari t: 






















US T ACK ; - 


OOOOOl 






WBUKRQ 


000140R 




Wlflt'.A 


0007 74 R 


.c. 


,ABO-~ 


000014 


VA 


OOOSOi?R 






uhupsz 


0001 4. ?R 




W18PA 


0007 7 2R 


.c, 


,DUS- 


000014 


UCTOR 


00001 OR 






WDHN 


0064 76R 




W2i-*A 


001000R 


.c, 


,LOC- 


00002c? 


WAI! 


004 764R 






WDKR 


000116R 




U??.Pl\ 


0007 lki\ 


-C. 


,RCO* 


000054 


UARN1 


01 0034 R 






WDTO 


000U4R 




XFL.AG 


000005R 


.c, 


.SND- 


000034 


WARN.? 


010030R 






WORK 


0006b?R 




XSECH 


0Q0632R 


X, 


, SUP- 


0000 r >0 


WARN. 1 . 


010034R 






WRITE 


0044 16R 




XSh'Cl. 


000630R 


.R 


.ABO- 


000014 


WA;'AOR 


0001 04 R 






WRITt.A 


004 4 ?0R 




/LRO 


01 0044 R 


,R, 


. DUS = 


r-00026 


WRUI t A 


000136R 






WRTDBN 


00 S 7 (OR 




$$ 


- 000000 


.R. 


.LOO 


000020 


WBUt-'PA 


0001 34R 






WVA 


0007 ?0R 














. AFiS. 


000000 
01'54 : ^ 


( 
( 


300 
X>1 


















t RRORS 


Dt Tt-C TKD: 























VlR'uAt. 


MCMORi I -'SID 


: 


13 1*93 WORDS C S4 PAGES) 












DYNAMIC 


' MEMORY ; 


19 


M8 


WORDS ( 


7S PAGES) 















RCD = 
SNO - 
SUP •■= 
DF f * 
FAT- 
INK-' 
QUE •-• 
SPt -- 
TER = 



0000 ?0 

OOOOc'O 
000014 
000040 
000120 
0000^0 
0000.'' 
000140 
000100 



SFU /b 



EL APSf [) T IMF : 00:03: 14 
\RQADO,XRQADO'XR- / -SP-DDXC0M, XRQADO 



DEC/X11 


SYSTEM 


EXERS. 


. . .Bl 


DEC/X11 


SYSTEM 


EXERS. 


...CI 


DEC/X11 


SYSTEM 


EXERS, 


. . .01 


DEC/X11 


SYSTEM 


EXERS. 


. . .El 


UEC/X11 


SYSTEM 


EXERS. 


...Fl 


DEC/X11 


SYSTEM 


EXERS . 


. . .Gl 


DEC/X11 


SYSTEM 


EXERS, 


. . ,H1 


DEC/X11 


SYSTEM 


EXERS. 


..,11 


DEC/X11 


SYSTEM 


EXEK3. 


...Jl 


DEC/X11 


SYSTEM 


EXE,1S, 


. . .Kl 


MODULE 


HEADER BLOCK . 


. .LI 


HOOULE 


HEADER BLOCK . 


. . .iJl 


HOOULE 


STORAGE 


AREA . 


. ..Nl 


MORE MOOULE STORAGE . 


. , .B2 


HOOULE 


PRIVATE 


DATA . 


, . ,C2 


EQUATES 






. ..D2 


RQDX BIT DEFINITIONS, 


. . .F2 


COMMAND/MESSAGE DESC. 


. . .F? 


COMMAND 


MODIFIERS 


. . .G2 


CONTROLLER FLAGS 


. . ,H2 


ENO PACKET OFFSETS . 


. . .12 


ERROR LOG FLAGS 


, . ,J2 


DUP DEFINITIONS 


. ..K2 


OFFSET 


AND FLAG DEFI. 


. . .L2 


OFFSET 


AND FLAG DEFI. 


. ,.M2 


OFFSET 


AND FLAG DEFI. 


. . .N2 


MOOULE 


COOE 




. . .J3 


HOOULE 


COOE 




. . ,C3 


MODULE 


COOE 




. . .03 


MOOULE 


COOE 




. . .E3 


MODULE 


COOE 




. ,.F3 


MODULE 


COOE 




. . .G3 


MOOULE 


COOE 




. . .H3 


MODULE 


COOE 




. . .13 


MOOULE 


COOE 




J3 


MOOULE 


COOE 




. . .ks 


MOOULE 


COOE 




. . .1 < 


MODULE 


COOE 




. . .M3 


MODULE 


COOE 




. ..N3 


MOOULE 


COOE 




. . ,B4 


MOOULE 


COOE 




. . .C4 


MOOULE 


COOE 




. . .D4 


MOOULE 


COOE 




. . ,E4 


MODULE 


COOE 




. . .F4 


MOOULE 


CODE 




. . .G4 


MOOULE 


COOE 




. . .H4 


MOOULE 


CODE 




. . .14 


MOOULE 


COOE 




. . ,J4 


MOOULE 


COOE 




. . .K4 


MOOULE 


COOE 




. . .1.4 


MOOULE 


CODE 




. . .M4 


MODULE 


CODE 




...N4 



MOOULE 


CODE 


. . ,B5 


MOOULE 


CODE 


...C5 


MOOULE 


CODE 


. . .05 


MOOULE 


COOE 


. ..E5 


MODULE 


CODE 


...F5 


MODULE 


COOE 


. ,.G5 


HOOULE 


COOE 


...H5 


MOOULE 


COOE 


...15 


HOOULE 


CODE 


...J5 


HOOULE 


COOE 


. ,.K5 


HOOULE 


CODE 


, . .L5 


M KDULE 


COOE 


. , ,M5 


MODULE 


COOE 


...N5 


N00U.E 


CODE 


...B6 


MODULE 


HESSAGES 


...C6 


HOOULE 


HESSAGES 


. . .D6 


HGOULE 


HESSAGES 


...E6 


HOOULE 


HE3SAGES 


. . .F6 


MORE HOOULE HESSAGES. 


. ..G6 


MORE HOOULE HESSAGES. 


. , .H6 


SYMBOL 


TABLE 


. ..16 


SYMBOL 


TABLE 


... J6 


SYMBOL 


TABLE 


...K6 



w\ 



rRUAMl 



coot 

0002 
OOO? 
0004 
0005 
OOOti 
000 ' 
OOOf 
000** 

oo to 
00 u 
0012 

0015 
0014 

00 is 
00 io 

ooi ; 

0018 
001^ 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
002" 
0028 
00 2 ^ 
0030 
0051 
0052 
005 5 
0054 
005'j 
00 So 

oo*: 

0058 

0059 
004Q 
004 1 
0042 
004 5 
0044 
004 S 
0046 

004 : 

0048 
004'* 

00 so 
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module 7RGAM1 ( 

• title ' RD/RX EXbPCrrif'.R' 

Ident • ' V01 ,6' , 

address 1 ng mode ( absolute I 1 , 

environment ( noe • s ) 



begin 



*^ 



> 



PRODUCT COD^ 
PRODUCT NAM* 
PRODUCT OATT 
MAINTAINOR; 
AUTHOR: 



IDENTIFICATION 

AC M9MU-MC 

C/RQADO RUDXl/RUXSO tXt'RClSt.R 

11 APR 84 

DIAGNOSTIC rNi.INHRINC, 

R^VINOI M k , KARWAN 
BOB POWERS 



C OObl 1 



Copyright (C) 1983, 1984 

Digital E-Qutpment Corporation, Maynard, Massac huset t* 01*54 

This software 19 furnished under a license 'or use onl> on a single 
computer system and may be copied only with the Inclusion of the 
above copyright notice. This software, or any other cop ; es thereof, 
may not be provided or otherwise made available to an y other person 
except for use on such system and to one *no agrees to these license 
terms. Title to and ownership of the software «jhall at all t '< mes 
remain In DtC, 

th; information In th's coc^nent ; s subiect to change without not'ee 
and should not be construed an a comm'tment b> D>g'tal tctjlpment 
Corporat Ion, 

DfcC assumes no responsibility *or the use or rel*ab'l<ty of J tt» 
software on equipment whicn Is not *iuppl : ed by Dr C , 

Tne following are trademark^ of t>'g ; tal tquipmen* Corporation: 

MAUSUUb 



UIIjITAL 



POP 



UtCIAHt 



/ROAM I 


UM.t* 


; c oo5 % : 1 


j c 0053 i 


; C 0054 1 


; c 0055 1 


; C 005t> 1 


; C 005/ I 


; C 0058 1 


; C 0059 1 


; C 0060 1 


; C OOM I 


; C 00t>2 1 


; C 0065 1 


; C 00*4 1 


; C 0065 1 


; C 006b 1 


; C OCW I 


: C OOt.8 1 


; C 0069 1 


; C 00 70 1 


; C 0071 1 


; C 00 'V 1 


; C 0075 1 


; C OOM 1 


; C 0075 1 


; C 00^6 1 


; c oo r: i 


; C 0076 1 


; C 00 79 1 


; C 0C80 1 


; C 0081 1 


; C 0082 1 


; C 0083 1 


: C 0084 1 


; C 0085 1 


; C 008b 1 


; C 008 7 1 


; C 008H 1 


; C 0089 1 


; C 0090 1 


5 C 0091 1 


J C 009 J 1 


; C 0095 1 


J C 0094 1 
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M 



Apr 
Apr 



19H4 
19H4 



11:56:01 
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SEQ 0002 
Pag« 2 
(2) 



1.0 

l.i 
1.2 

1.2.1 

1.2.2 

1.3 

1.4 

1.5 
1.6 

2.0 
2.1 
2.2 

5.0 
3.1 
3.2 
3. 3 
3.4 
3.5 
3.6 



TABLf. OF CONTENTS 



GENERAL INFORMATION 

PROGRAM ABSTRACT 

SYSTEM REQUIREMENTS 

HARDUARE REQUIREMENTS 

SOFTWARE REQUIREMENTS 

RELATED DOCUMENTS AND STANDARDS 

DIAGNOSTIC HIERARCHY PREREQUISITES 

ASSUMPTIONS 

ME 1-iOTi V MAP 

OPERATING INSTRUCTIONS 
HARDUARE QUcSTIONS 
SOFTWARE QUESTIONS 

ERROR TYPES 

ERROR INFORMATION 

INITIALIZATION ERRORS 

EXERCISER ERRORS 

ERROR LOG MESSAGES 

MSG> ERRORS 

SAMPLE ERROR STATEMENT 



4.0 PERFORMANCE AND PROGRESS REPORTS 

5.0 TEST SUMMARY 

5.1 INITIAl I/ATiON SUBTEST 

5.2 EXERCISfcR 

5.3 DtfOP UNIT SUMMARi 

6.0 ERROR I 1ST 

7,0 DATA PATTERNS. 



IV 



;roami 


VOl. 6 


; C 0<W 1 


{ C 00*^ 1 


; C 00* ; 1 


; C OOW 1 


; C 0099 1 


; C 0100 \ 


I C OlOi 1 


; C OKV 1 


; C 0105 1 


; C 0104 1 


j C 010S I 


; C 010b 1 


; C 010T 1 


5 C 0108 1 


; C 010* J 


: C 0110 1 


: C 0111 1 


; C 01 12 X 


l c on? 1 


; C 0114 1 


; C 0115 1 


: C 0116 1 


; C on: 1 


i C 0118 1 


J C 0119 1 


; C 0120 1 


; C 0121 1 


i C 0122 1 


; C 0125 1 


; C 0124 1 


; C 0125 1 


; C 0126 1 


; C 012.* 1 


; C 0128 1 


; C 1 J"J 1 


; C 0150 1 


; C 0151 l 


; C 0152 1 


; C 015? 1 


; C 015* 1 


; C 015S 1 


; C 0156 1 


; C 0157 1 


; C 0158 1 


; C 015'* l 


; C 0140 1 


; C 0141 :. 


; C 014.' 1 


: C 0145 i 


; C 0144 1 


} C 0145 1 
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SEU 0005 
Pag* 



(5) 



1,0 Gt.Nt.RAl. INFORMATION 



1,1 PROGRAM ABSTRACT 



This program will Functionally verify and e\erc»se RQDX1 
or RUX50 Control ler/O I sW Drive subsystems. It Is designed 
to verify that the subsystem \& functioning correctly and 
operating within design specifications, 



1.2 SYSTEM REQUIREMENTS 



1.2,1 HARDWARE REQUIREMENTS 



LSI - 11/23 processor with 28K o^ More of memory, console 
device (eg. VT100) and RQD v «l r RUX50 controller board and 
attached RD51 or RDV WINCHESTER drive(s) and RX -50 ROPPi 
dr I veCs 1 ) 

1.2,2 SOFTWARE REQUIREMENTS 



This diagnost'c is designed to run with the Diagnostic 
Supervisor as described in paragraph 2,0, 



1.5 RELATED DOCUMENTS AND STANDARDS 



XXPP* SUPERVISOR/USERS MANUAL CHQu\ 
UQSSP UNIBUS/Q BU^ STORAGt SiS-TfM', PORT 
MSCP MASS STORAGE SYSTEM PROTOCOL 

1,4 DIAGNOSTIC HIERARCHY PREREQUISITES 



NONE 



1.5 ASSUMPTIONS 



The hardware, other than the subsystem being tested, is 
assumed to work properly. fal«e errors may be reported if 
the proceut»or, memory, etc, 4 do not function properly* 



/RdAMl 


VOL* 


; C 0146 1 


j C oia : ? 


; C 0148 1 


; C 0149 1 


; C 01S0 1 


i C 01M 1 


; C Oli.O 1 


; C 0155 1 


; C 0154 1 


: C 01SS i 


; C 015b 1 


; C 01b: i 


; C 0ll>8 1 


. C 015 1 * 1 


I C 01t>0 1 


; C 0161 1 


; C 016J? 1 


; C 01b5 1 


; C 0164 1 


; C 0165 1 


; C 0166 1 


: C 016' 1 


: C 0166 1 


j C 0169 l 


i C 0170 1 


; C 0171 i 


; C 01 72 1 


; C 0W3 1 


; C 01/4 1 


; C 017S i 


; C 01 ^ 1 


! C 01/7 1 


; C 0178 1 


; C 01 "9 1 


; C 0180 1 


; C 0161 1 


J C 018,' 1 


; C 0185 l 


; C 0184 1 


j C 016b 1 
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MtMORi MAP 



Memory layout on 2SU. machine - XXDP environment 



ADDRF 55 

160000 



XXDP* MONITOR 



XXDP* TTy I/O ARK A 



DPS 



F.X&RCISER 



151000 



c ?000 



STACK' 



VECTOR ARi;A 



400 







In a machine *!th more memory, *>££ tipSCC W»li OCCur 

between the exerciser and the URii, 



/RUAM1 


voi 


b 


; C 


Ol'te 1 


; C 


Oif. ' 1 


; C 


OY&& 1 


; C 


018* 1 


; C 


0190 1 


; C 


0W1 1 


; C 


01*V 1 


; C 


OW 1 


; C 


0194 1 


; C 


Ol^S 1 


; C 


019b 1 


; C 


019; i 


i c 


0198 1 


; C 


019^ 1 


: C 


OAV 1 


; C 


0^01 1 


; C 


OAV 1 


; C 


tV05 1 


; C 


0V04 1 


; C 


o?.or-> i 


; C 


0c-06 1 


; C 


Oc j o : l 


; C 


0. % 08 1 


; C 


0?09 1 


; C 


0210 1 


; C 


0211 1 


; C 


0212 1 


; C 


0*?1S 1 


: C 


OP 14 1 


t C 


02 1 b 1 


; C 


CMl* 1 


; C 


0217 1 


; C 


021» 1 


; C 


02 19 1 


; C 


0220 1 


; C 


0221 1 


; C 


0222 1 


; c 


022 J 1 


; C 


0224 1 


t •»* 


022 S 1 


; C 


02 2 6 1 


J l_ 


022 * 1 


; C 


022^ 1 


, r 


0224 i 


; C 


0250 1 


; C 


0.:51 1 


« r 


02 V 1 


; C 


0.-.'.*. 1 


i c 


02*4 1 
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2.0 OPERATING INSTRUCTIONS 



This is a R€v C Supervisor Diagnostic: for operating 
instructions, please see chapter 5 of XXDP* operator's 
manual, y h *y ar « ?o longer included in the diagnostic 
because it »s desired tnat a change In those Instruc- 
tions not require a re-assembly of oil Supervisor D I og - 
nost ics. 



2.1 HARDWARE QUESTIONS 

The following series of questions collect the para 
meters necessary to identify each disk subsystem. 



Hardware Configuration Questions 



The program will 
response to b START 

I. CHANGE HW CD y ? 



ask the following 
command C npn -script ) , 



questions in 



Answer NO to use the pre built answers for all hardware 
questions. This program will be released pre built to 
test three units with default answers shown below. The 
pre built answers may be changed at any time with tn« 
setup utility. Answer 
questions to be asked. 



T&S If you want all the hardware 



NUMBER Of UNITS (0) ? 



«*k dr i ve units 

will determine 

i nrc asked. A 

A un i t number 

the Diagnostic 
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No default. Answer with the number of d 
to be exercised or tested. This answer 
ho** many times the following question* 
range of 1 to 4 units may be specified, 
will be assigned sequentially from by 
supervisor for each unit. 

IP ADDRESS (0) 1/2 150 > 

Enter the address of the U' register of one HQDXl or WUViO 
as addressed by the processor wtn memory management turned 
off. r he program expects an e^en lb bit address : n the 
range of IfcGGOO to 17 7.' .'4. 1 \-l*>0 i*. the default. 



i,l 



;rqami 


voi 


b 


; C 


OJ35 1 


; C 


CV36 1 


; C 


0?$? 1 


: C 


*>V3fl 1 


; l 


(\\v> i 


; C 


OV40 1 


; C 


o.:4 1 i 


; C 


tv<v I 


; C 


OJ4 5 1 


; C 


CM 4 1 


; C 


004', 1 


; L 


0J4^ 1 


: C 


0?.4 "* 1 


; C 


0J4H 1 


; C 


QS4* 1 


; C 


CV50 1 


. r 

• *- 


0.?51 1 


; C 


O.^S.' 1 


; C 


0<?53 1 


; C 


0.754 1 


; C 


<\?55 1 


; l 


0J?5t» 1 


5 C 


o^s: i 


; L 


0^58 1 


; C 


t )5M 1 


; C 


0«">b0 1 


; C 


02b 1 1 


; C 


0262 ! 


; C 


0?b3 1 


: C 


0264 1 


: C 


O.S5 i 


: C 


026 o J 


; C 


02r, ; i 


; C 


026* 1 


; C 


026'-* 1 


; C 


02 70 1 


i C 


02 7 1. 1 


; C 


02/2 1 


. r 


02 1 3 1 


• »- 


02 /4 1 


; C 


02 75 1 


; l 


02 76 1 


; C 


02 7 / 1 


; C 


02/8 1 


; C 


02/4 1 


; C 


0280 1 


; C 


0281 1 


j C 


0282 1 


; C 


028 *, 1 


; C 


Or84 : 


, r 


02 4 5 1 


; C 


'■ •■*.:- \ 


J C 


0287 1 
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4, VECTOR ADORrSS (0) 154 ? 



Answer with the Interrupt vector of the some RQ0X1 or RUX50 
controlle- described In the atove question, A vector address 
In the range of 4 to 774 may be specified. 154 is the default 



5, BR LEVEL (D) 4 ? 

Answer with the bus request Interrupt level used by 
above controller. Levels 4 through 7 are acceptable, 
default. 



the 
4 is 



the 



6. DRIVE NUMBER (0) ? 

Enter the logical unit number for one drive associated 
with the IP address above. Drive numbers are In the 
range of through 15. lhe number 1 entered here must 
match the unit plug on the front panel of the drive, and 
must be within the range Implied by the jumper (L.JNU 7) 
on the RQDX1 or RUX50 controller board. is the default 
answer. 

7. TEST ENTIRE CUSTOMER DATA AREA OF THIS DISK CD Y? 

This question Is asked to give the opportunity of limiting trie 
addressing range over which the testing will be performed. 
An affirmative answer will cause no limits to be imposed for 
the unit In Question, A negative answer will cause limits 
to he Imposed, as defined by the following fou^ questions. 

8. LOWER OCTAL UORD OF BEGINNING LBN ADDRESS CO) 7 

Enter in octal the less significant 16 bit *»jrd of the lowest 
LBN address in the test range. The value may be from 000000 
to 177777. 

l K HIGHER OCTAL WORD OF BEGINNING 1 BN ADDRESS (0) 07 

tnter in octal the more significant 16 -bit word of the 
lowest LBN address In tne test range. 

10. LOWER OCTAL WORD OE ENDING I BN ADDRESS CO) 1504 77 > 

Inter In octal the less significant lt»-b>t word O* the 
highlit LBN address In the test nange. 4 15047V Iti thfi 
highest LEJN addrctiii for an ROW. 



fRQANl 


V01 


b 


; C 


0*?88 1 


} c 


C\?8^ 1 


i c 


UiNO 1 


; C 


(V91 1 


: t 


O^V: 1 


; C 


0^93 1 


: t 


0.294 1 


; L 


OuNS 1 


; C 


0?^ 1 


; L 


029 : l 


; L 


0^96" 1 


: l 


0,?99 1 


: C 


0500 1 


: C 


0501 1 


; c 


OW 1 


; C 


0<0< 1 


J c 


0504 1 
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11. H1GHLR OCTAL WORD OK INUINli I BN ADDRESS (0) 0? 

fcnter in octal the more significant 16-bit word of the 
highest LBN address in the teat range, 



Note: 



The four previous questions are usually software 
Parameter questions, but since three different disW 
drives exist on the subsystem, this becomes a unit 
by unit question. It is possible to specify an t BN 
which is too large since we are dealing with different 
drives. The program will check for block number bounds 
and, if they ore exceeded* will assign the maximum 
bounds for that drive, 



-J i 



/RtfrtMi 


V01 


.t* 


; C 


050S 1 


; C 


0*06 1 


; C 


o$o: i 


j C 


050 H 1 


; C 


05C» 1 


; C 


0510 1 


; C 


051 1 1 


; C 


05 h 1 1 


; C 


0515 1 


; C 


0514 i 


J c 


051'. 1 


; C 


05 \<y 1 
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lc\ EXt-RClSt- ON CUS1UMER DATA AREA ON THIS DISK UNIT (I.) / 

Answering i \ S will destroy any customer data that is on 
the disk; therefore, the following warning messaoe will 
appear, followed by n confirmation protnpt : 



** WARNING - CUSTOMER DATA ARbA WI 
CONF IRM (I ) ? 



BE OVERWRITTEN* 



This question will default to NO If the operator has de 
cided to bypas-i the hardware Questions. Otherwise, 
there is no default. 



Jl 



JRQAM1 


V01 b 


; C 03}. 7 1 


; C 0518 1 


; C 051*5 1 


; C 05.70 1 


; C O.Vl 1 


; C 0?cV 1 


; C 03^5 1 


; C 03?4 1 


; C 0325 1 


i C 052b 1 


; C 032 ; 1 


j C 0528 1 


; C 0320 1 


; C 0330 1 


; C 0331 1 


; C 0532 1 


: C 0333 1 


; C 0334 1 


: C 0355 1 


; C 0556 1 


; C 053/ 1 


; C 0338 1 


; C 033^ 1 


; C 0340 1 


; C 0341 1 


; C 0342 1 


; C 0343 1 


; C 0344 1 


; C 034S 1 


; C 0346 1 


! C 034 7 1 


: C 0348 1 


; C 034-* 1 


; C 0350 1 


; C 035 1 l 


; C 0302 1 


; C 03S5 1 


; C 0354 1 


; C 555 1 


; C 035t> 1 


; c oj^; 1 


: C 055* 1 


; C 55'* i 


; C 05',0 1 


: C OV, 1 1 


J C 03o<? 1 
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SOFTWARE QUESTIONS 



Software Parameter Questions 



The program will ask the following quest Ions in 
to the START, RESTART, and CONTINUE commands. 

1. CHANGE SW CD Y ? 



respond e 



Answer NO to bypass the following questions In this 
tion. This question should normally be answered NO 
the Exerciser Is first run. A NO answer will cause 
Exerciser to select the default parameters shown 
each question below. Then, depending on the errors 
tected, it may be desirable to change this answer to 



to alter the test parameters 
problem. 



sec 

when 
the 

w i th 
de 
US 



and further isolate the 



2. ENTER TIMF AS HHMM C EXAMPLE: 1305) CD) ? 

Enter the time of day (in 24 hour format). DRS does not 
like to see leading zeros in numeric values entered, 
► or e\ample, for 14 minutes past midnight, you *ould 
enter 14, and for 30 minutes past 3 In the afternoon, 
enter 1530. 

3. ERROR LIMIT CD) 32 ? 

Enter the number of hard errors allowed before n unit is 
dropped from test ; ng, A number in the range of 1 to 
65535 will be accepted. 

4. TRANSFER LIMIT IN MEGABYTES (0 EUR QUICK PASS) lO) .' 

Uhen the specified number of bytes have been transferred 
to/ from a unit, the unit will be dropped from testing. 
Uhen all units are dropped, an end -of pass *ill be ind< 
cated. This is the method used to determine how long 
the Exerciser is to run. 

The only other v<*y the t*erciser will declare end ot 
pass is if all unit*; are dropped because the error lim't 
on each is, e»ceeq>cJ« However, the operator cur, always 
abort the program tit any time by typing CONTROL C. 
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1/ 



3 AM 1 


vol 


6 


', L 


o;v>3 i 


; C 


03r»4 1 


: C 


03t>S 1 


; C 


03(>t» 1 


; C 


036 ' 1 


; C 


0At»tf 1 


; C 


03 •„»*'» 1 


; C 


03 :o i 


; i- 


03". 1 


; C 


03".\: i 


J c 


C3'.*3 1 


; C 


0374 1 


; C 


03 ; r > 1 


; C 


03'.V 1 


; C 


037.' 1 


; C 


03 78 1 


; C 


03 >* 1 


; C 


0380 1 


; C 


0381 1 


i C 


038c* 1 


j c 


0383 1 


; c 


0584 1 


{ c 


0385 1 


; C 


0386 1 


; C 


038 7 1 


; C 


0388 1 


; C 


0389 1 


<- 


0390 1 


i C 


0391 1 


; C 


039/ 1 


; C 


0393 1 


i C 


0394 1 


: C 


039S 1 


: C 


039* 1 


5 C 


039 7 1 


; C 


398 1 


; C 


0399 i 


j c 


0400 1 


; C 


0401 1 


; C 


040? 1 


: C 


0403 1 


; C 


04 04 1 


; L* 


0405 1 


; C 


04 06 1 


; C 


040 7 1 


; C 


0408 1 


; C 


04 09 1 


; C 


0410 1 


; r 


04 1 1 : 


j C 


04 1 ;■■ : 


i c 


04X3 1 
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5. PERCENTAGE OK 'FIXED DISK' OPERATIONS OUT OF TOTAL OPERATIONS (0) 99 ? 

In ord«r to maintain typical usage For the devices of 
this exercise, a certain percentage of operations must 
be directed to the RD5l/52s (the rest go to the RX50s). 
It turns our that this percentage is very hi oh (as indi 
cated by the 99* figure given as the default). It may be 
desirable in some coses to direct more activity to the 
RXSOs. This »s easily done by directing a smaller per 
centage of the operations to the RD51/5< ) s. The numbers 
associated with usage are adjusted internally by the 
program according to drive type and percentage. 

6. CI. FAR STATISTICAL TABLES AFTER PRINTING (I.) N ? 

Answering YES causes the statistical fields to be clear 
ed to :ero after the report is printed (either at end of 
pass, or at operator request/. Otherwise, cumulative 
totals are maintained. 

7. REWRITE BLOCKS WHEN "FORCED FRR0R" DETECTED ON Rl ADS ( I. ) v y 

On encountering a bad block on the RDSl or RD52 disk 
(during either a read or a write operation), the RQDX1 
or RUXbO controller will revcctor the logical block to 
another physical loc«t'on on the disk. This operation is 
transparent to the us^, However, if the rejector ing was 
<ior\e subsequent to i write operation ( i .e the write 
operation detected tne bad block), th» data is flagged 
with a "Forced Error" code, signifying that the data at 
the revectored location is suspect. The controller re 
turns an error code whenever th« block is re read. f\n 
swer 'Yes' to the question to force a WRITE opera t r on on 
the same block whenever a "forced Error" flag in Oetec*. 
ed on a read This is to avoid the same error code i the 
"forced Error") being reported for the same bloc- 
repeatedly. The re write will, however, take place only 
if writes are enabled for the particular disk unit, 

8. HALT ON RAD BLOCK HARD ERRORS (#s 55, JH) ;l ) j '/ 

When the Exerciser is run with th^ DRS 'Halt on f rror 
switch set (eg. STMRT/F I ACS :H0M , the Exerciser halts on 
on encountering ANY error. If it is desired that the 
testing continue on a bad block error, even with the HOE. 
switch set, answer No to the question. 

9. HAI T ON OTHER HARD ERRORS ( 0*. 41 44 , 3h 4,\ 4^ 45 ) v l > » ,' 

this question Is similar to question tf» but rctferti to 
non-bad hiocL type of Hard trrgpu, 
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10. HALT ON SOri ERRORS ( <>o 50-54) (L) N ? 



This quest I on 
Soft Errors. 



is similar to question 8, but refers to 



11. COUNT EACH RETRY AS P SEPARATE SOFT bRROR (L) N ? 

On encountering any e^ror on a read/write. the control 
ler retries the operation a number of times. If the 
operation is eventual! -ccessful, this is reported as 
a Soft Error. The error i^., packet contains the number 
of retries performed before the operation was success 
ful. Normally, the uhole sequence of retries is class! 
fled as one Soft Errc*. Answer ies to the question if it 
is desired to count each internal retry attempt as a 
separate Soft Error. 

lc?. RANDOM SEEK MODE (L) Y V 

Answer YES to cause block numbers to be chosen randomly. 
Answer NO to cause block numbers to be selected sequen- 
tially, 

13. UNITS TO BE SELECTED AT RANDOM (NO, IMPLIES SEQUENTIAL) (I.) N ? 



This question is optionally asked if the answer to the 
previous question is NTol. The selection of units for 
sequential operations is affected by the answer to this 
question. If the default answer is chosen (N[o}), then 
units shall be selected in a predetermined manner In 
accordance with the typical seek time margins for each 
drive. If the alternate answer Is chosen (Y[esl), then 
the units will be chosen at random in accordance with 
*..^e percentages specified in Software question 4. 



14. READ COMPARES PERFORMED AT THE CONTROLLER CD * > 

Answering YES causes all read commands to include the 
"compare" modifier. This er^eni. I ally forces the con 
troller to perform two read operations on the same disk 
address, and to compare the results. 

The fallowing message will appear after the operator has 

answerer this question: 

THE REMAINING QUESTIONS ONl - APPl i TO UNPROTECTED DISK UNITS. 

15. WRITE -COMPARES PERFORMED AT THt CONTROLLER (1 ^ N I 

Answering TES causes all write 1/0 requests to be 
changed to write compare Afve,p eac* write, the con 
t roller will read the dai« : and compare It to data 
r*« -Obtained f>om the host* 
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16. CHECK ALL WRITES AT HOST BY READING CD Y ? 



This question will only be asked if the previous ques- 
tion ws' answered NO. Answering Y:S causes oil writes 
to be checked by the host by reading the data i,i.med late- 
ly after the w .* i te operation. This option consumes 
extra CPU time, and doubles the amount of storage re 
quired for writes. Therefore, it Is 
when drive wr I te -compare operations are 



only recommended 
suspect. 



17. USER-DEFINED DATA PATTERN (L) N ? 



An answer of YES allows the operator to define his/her 
own data pattern to be used in all write operations. A 
NO answer will allow the operator to select a 
pre-defined data pattern in the next question. 

18. SELECT PRE-DEFINED DATA PATTERN CO FOR SEQUENTIAL SELEC- 
TION) CD) ? 

There are ?l pre defined data patterns available, 
selected a«; 1 to 21 Csee section 4.9). A zero answer 
will cause patterns 1 to 21 to be sequentially selected 
for each write. (Note that pattern 1 consists entirely 
of random numbers). 



19, NUMBER OF WORDS IN DATA PATTERN C 16 MAXIMUM) 
PATTERN VALUES (0) ? 



CD) 16 ? 



These quest ions w i 1 1 only be asked if the operator has 
decided to define his/her own data pattern. The actual 
bit patterns will be entered as octal (PDP-11). 
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3.0 ERROR TYPES 



This program has four types of error class! flcat ionsj 
system fatal, drive fatal, hard and soft, 

SYSTEM FATAL fcRRORS 



System fatal errors arc used to Indicate that an error 
was detected by the Diagnostic supervisor in relation 
to loading/controlling the di agnostic process, 

T he content of each error is such that it should be 
self explanatory. However, the messages utilize some 
terms that are specific to the disk subsystem, and may 
require some getting use to. 



DRIVE FATAL ERRORS 



Drive fatal errors are a result of; 

an error that is considered fatal to the drive, hut 
testing will continue. 



HARD ERRORS 

Hard errors are a result of: 

1. retries of a soft error or * 

2. e. non - recoverable error 

3. a soft error if retries are not »iet . 

* Note: Retries are executed in the controller 

SOFT ERRORS 



Soft errors are media related errors. All soft errors 
will be retried by the controller, 

Note: Soft e» .^ors are retrieved f . om the controller via 
the error log capabilities of MbCP. 
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ERROR INrORMATION 



All general trror messages will Include the type of *rror 
(system fatal, drive-fatal, hard, soft) and a unit number. 
If the error applies to a controller, then only the first 
unit number of the controller will be given. (The user 
will know the other unit numbers when subsequent "drop 
unit" messages are printed). 

Basic error messages provide more details about the 
error. The Exerciser will print all basie error message*, 
along with the disk address. If applicable. In some 
cases where a drive -fatal error applies to a controller, 
the controller's IP address will be printed. 

Extended error messages will be used to print the 
relevant fields of commc»nd and 9n<i message packets, status 
codes, SA register contents, and error log messages. All 
values will be In octal (PDP-11). 

The error messages In this section do not include 
errors detected and printed by the Diagnostic Supervisor, 



3,^ INITIALIZATION ERRORS 
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Two k Inds of errors will be reported to the operator 
during the In 1 1 1 al I jat Ion Test. The System fatal error I «, 
too ma.->y units specified, A system-fatnl error will cause 
the Exerciser to abort. 

Drive fatal errors only affect the unites) Involved. 
Testing will continue on all other un^ts, This class o* 
errors Includes, but Is not limited to, the following; 



Reg' iter Existence Test failure C no drive present ) 

Vector Test fa? lure 

BR Level Test fa! lure 

I n 1 1 I a 1 J .* at I on sequence f ft I lure 

Onl Ine fa! led 

A«eu*4 failed 



c, 
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3.5 EXERCISER r.RRORS 



Most errors reported during th i «j test will originate 
from MSCP end message packets. The status code field will 
b* converted to text and printed as part of a basic error 
message Any subcode value will follow if extended error 
messages are enabled. 

The following list represents some of the error conditions 
reported via MSCP; 

1, Disk^ unit went offline (a sub -code may follow 
detailing the reason) 

2. Compare error 

5. Data error (a sub-code may follow) 

4. Drive error (a sub code may follow) 

5. Host buffer access error 

6. Media formot error (a sub-code may follow) 



3.4 ERROR LOG MESSAGES 



The contents of the error -log messages received from the 
controller are printed as received, and should be deciphered 
using the MSCP specs. 



3.5 MSCP ERRORS 



an Invalid 
such cases, the ho*»t 
ommand followed by the 



An MSCP error occurs when the host receives 

Command End Message from the controller. In 

will print out the erroneous command follow*^ v « ,.,.« , 5a , w ,, 

for the error, If extended printouts are enabled, then the 

entire contents of the end message »» i 1 1 be, &ift2&lay.ed in 

octal without interpretation of the data. 



reason 
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3.6 SAMPLE ERROR STATEMENT 



The errors listed by the exerciser are usually very des 
criptive and are self explanatory. The following is an example 
error statement. This error statement Js the extended error 
message. 



(example) 

DISK XX); 

INVALID COMMAND 

SUB -CODE XXXX 

COMMAND: READ 

LBN* XXXXX 

BYTE COUNT IN COMMAND XXXXX 



( comments) 

•DISK UNIT NUMBER 

.•MAJOR STATUS CODE RECEIVED BACK 

•sue -code or given command 

.•COMMAND GIVEN TO DRIVE 
•LOGICAL BLOCK NUMBER GIVEN 
•NUMBER OF BYTES WANTED TO READ 



ACTUAL * OF BYTES TRANSFERRED XXXXX JNUMBER OF BYTES ACTUALLY READ 



The status code in an 
pieces. The first 5 bits 
by the "invalid command" 
the sub-code, which tel 
troller. The LBN is the 
was trying to read. The 
the controller was going 
bytes transferred refers 
error. 



end messages Is broken into two 
represent the major status which is given 
message. The 11 remaining bits represent 
Is in greater detail the error in th« con 
logical block on the disk the controller 
byte count refers to the number of bytes 
to read o rf the LBN. The actual number of 
to the number of bytes read b^^^r^ the 
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4.0 PERFORMANCE AND PROGRESS REPORTS 



UNT 




A summary report Is printed at the end of each pass of 
the Exerciser or upon demand by the operator, The fields may 
be cleared to zero after the report is printed depending on 
the operator's response to this option in the software ques 
tlons. Any units added to the test cycle will also begin with 
cleared statistics. 

Errors are grouped into two bas'c categories: hard and 
soft, Each is sub divided into four more categories, depend- 
ing on the most probable classification for that error. 

The sub categories are: 

1. disk related errors 

2. seek (or format) related errors 

3. controller or drive related errors 

4. host (the CPU) related errors. 

All numeric values are in decimal radix, 

* Or BYTS OF BY US -- HRD ERS Sf T ERS 

TYPE READS READ WRITES WRITTEN DAT SEK DRV HST DAT SCK DRV HST 



X XXXX xxxx XXXX XXXXX XXXXXX X X 
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5.0 TEST SUMMARY 



This exerciser consists of two parts: the initialization subtest, 
and the performance exerciser. The operator is not able to select 
which of these two parts he/she wishes to runj they both must be 
executed. 



5,1 INITIALIZATION SUBTEST 



The purpose of this subtest 



is to verify the hardware 

and to bring each 
ill always precede 



• • -^5 ^vi' k*-»=« vi wma -Vutv leal is ig vrnry 

configuration as specified by the operator , 
unit online. The Initialization Subtest w 
the execution of any other test. 

First, the presence of each drive register will be veri- 
fied, along with a check on the BR level specified by the 
operator. Then, an initialization will be issued to each 
controller configured for testing. When the initialization 




Any drive-fatal or hard errors encountered during this 
test will cause the appropriate unit(s) to be dropped. If 
basic error messages are enabled- then the program will print 
out the specific reason for drorping the unit(s). Henceforth, 
the failed unit(s) will not t>e tested unless the operator 
intervenes (adds unit(s) or restarts Exerciser). 



Upon successful completion of the Initialization Sub- 
test, the program will begin executing the Exerciser. 

5,2 EXERCISER 



The purpose of this subtest is to exercise the disk drives 
In a manner similar to the typical usage under standard oper- 
ating systems. Execution of this test should give an Indies 
tion of the operating performance of the disk drive subunlts. 
This test will utilize random disk addresses, random word 
counts, and data patterns, all subject to the 1 iuit ts and 
specifications made by the operator. All protected disks will 
be subject to readonly operations, while unprotected dis^s 
may be read or written, depending on the answers given to the 
software parameter questions. End -of pass will be declared 

w V ef \.. th * ?P ecif Ied rtumtjer of btftss have fefifin transf£rre.g: for 
all the diskti take,n a» a whole. 
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11:45:0? DISK $UStR2 ; [ POWFRS J/RQADO . E3L 1 ; 6 



SE.Q 0019 
Page 19 
(id) 



If a read/write error occurs during this 
controller will initiate an appropriate 
tries. If oil retries fail, then a hard 
ted to the host, an error message will 
console terminal and the error will be 
mary report. The unit will be dropped if 
has exceeded the specified limit. 



5.3 DROP UNIT SUMMARY 



test, then the 

number of re 

error will be repor 

be displayed on the 
tallied for the sum 
the hard error count 



During the Initialization Subtest, individual units will 
be dropped from the test sequence if they o~e unable to be 
brought online or the operator specified drive does not match 
the hardware. 

During the Exercise, the program will drop a unit for 
one of three reasons. The normal path is for each unit to 
complete the transfer of N megabytes, where N is specified by 
the oper6tor durino, SW questioning and be soft -dropped. 
Otherwise, a unit will be hard -dropped if the number of hard 
errors encountered exceeds the operator -spec i f ied limit, n* 
if a fatal error is detected. Units hard -dropped may later be 
added to the test cycle. However, statistics for the hard 
added unit will be cleared to /eroj if a transfer limit 
was specified, in which case the unit was soft dropped, the 
statistics may or may not be cleared depending on the oper- 
ators answer to Software question 12. 



H2 



/ROAM I 


VOl, 6 


; C 786 1 


; C 78 7 1 


; C 788 1 


; C 0739 1 


; C 0790 1 


; C 0*91 1 


s C 792 1 


; C 793 1 


i C 0794 1 


; C 795 1 


; C 079o 1 


; C 079 7 1 


; C 0798 1 


; C 799 1 


; C 0800 1 


; C 0801 1 


; C 080*? 1 


; C 030* 1 


; C 0804 1 


: C 0805 1 


; C 0806 1 


; C 0807 1 


; C 0808 1 


; C 0809 1 


; C 0810 1 


; C 0811 1 


; C 081*? 1 


; C 0313 1 


; C 0814 1 


; C 0815 1 


; C 0816 1 


; C 081 ' 1 


; C 0818 1 


; C 0819 1 


: C 0820 1 


; C 08.11 1 


; C 0822 1 


; C 0823 1 


; C 0824 1 


; C 0825 1 


; C 0826 1 


; C 082 7 1 


; C 0828 l 


; C 0824 1 


; C 0830 1 


; C 0831 1 


; C 0832 1 


; C OHM 1 


j C 0834 1 



RD/RX EXbRCIStR 



11 -Apr -1984 11, -56; 01 
11 Apr 1984 Ilj45s02 



SEQ 0020 
VAX-11 Bliss Ih V4, 0-579 Page 20 

DISK*USER2:[P0WERS]/RQAD0.BLlj6 (19) 



6.0 ERROR CODES GENERATED B> THIS EXERCISER 



SYSTEM FATAL ERRORS 



I More than 4 units specified 



DRIV; IATAL ERRORS 



10 Controller couldn' t be addressed 
at the address given, 

11 Controller didn't interrupt at 
the interrupt vector given. 

12 Controller didn't interrupt at 
the BR level given. 

13 In it sequence failed. 



14 Fatal Controller error. 



lb Failed to bring unit on-line. 



16 Write protect conflict. 



17 Access to either the inner or 
the outer track failed. 



18 Unit went off line. 

19 Drive type not known. 



Wrong IP address selected 



Wrong vector address sel 
ected. 

Wrong BR level selected. 



Either one of the four 
initialisation steps did 
not receive the correct 
response from the Con 
troller, or one of the 
steps timed -out. 

The error bit (bit 15) in 
the SA register was set. 

On line response had an 
error code. (see also 
«s 22 and 23. ) 

The unit was hardware 
write protected and write 
operations were requested 
on the un i t . 

Innermost or outermost 
track's header may be cor 
repeated. 



The version of the i v«r 
ciser being run does not 
support this disk type. 



T2 



JRQAMl 


VOL 6 


{ C 0835 1 


; C 0836 1 


; C 083? 1 


; C 0858 1 


; C 083^ 1 


; C 0840 1 


; C 084 1 1 


; C 0842 1 


; C 084 3 1 


i C 0844 1 


; C 0845 1 


; C 084b 1 


; C 084- 1 


{ C 0848 1 


: C 084^ 1 


; C 0850 1 


; C 0851 1 


; C 0852 1 


; C 0853 1 


5 C 0854 1 


; C 0855 1 


; C 0856 1 


; C 0857 1 


; C 0858 1 


; C 0859 1 


; C 0860 1 


; C 0861 1 


; C C862 l 


; C 0863 1 


; C 0864 1 


; C 0865 1 


; C 086»> 1 


; C 0867 


; C 086*: 1 


; C 0869 \ 


I C 08/0 1 


; C 08/1 1 


: C 08/2 1 


; C 08/3 1 


; C 08/4 1 


: C 08/5 1 


; C 08/6 1 


; C 08// \ 


: C 08/8 1 


; C 08 /* 1 


; C 0880 1 


; C 0881 1 


; C 0882 1 


; C 088*. 1 


; C 0H84 1 


; C: 0H8«. I 


i C 08^». 1 


i C 0887 1 



RD/RX EXERCISER 



11 -Apr -1984 11:56:01 
11 -Apr -1984 11:45:02 



VAX-11 Bliss-16 V4.0 -579 

DISK IUSER2 : [ POWERS J/RQADO .BL 1 ;6 



SEQ 00;.'l 
Page 21 
(20) 



20 Failed to send 'Set Controller Either the unit is off 
Characteristics" command. line or the Diagnostic is 

corrupted because of any 
problems with its RAM. 

21 Controller returned wrong 'end Problem with the Control 
code' for the 'Set Controller ler microcode or the port/ 
Characteristics' command. DMA interface. 

22 Failed to send 'On-line' command Either the unit is off 

line or the diagnostic is 
corrupted because of any 
problems with Its RAM. 

23 Controller returned wrong 'end Problem with the Control 
code' for the 'On-line' command. le^'s microcode or the 

port/DMA interface, 

24 Dr've went to the 'Available' -•- 
state. 

HARD tRRORS 



31 Controller received an invalid 

command . 



32 Command aborted by the Control 
ler. 

35 Media format error. 

Sh Drive write protected. 

37 Controller read or write com 
pare error. 

38 Data error. 

^9 Host bur *■ r access error 
40 Controller error* 



The diagnostic is corrup 
ted because of any prob 
lems with its RAM, or 
there is o problem with 
the Controller microcode 
(RAM or ROM) or there is 
problem with the port/DMA 
interface . 

Command timed -out in the 
Controller. 



CRC error In the data 
field of a disk block. 



Difficult to categorize 

without looking at the 
error subcode or any 

■issoc I a ted error log mes 
sage . 



JRQAM1 


VOL 6 


; C 0888 1 


; C 0889 1 


; C 0890 1 


5 C 0891 1 


; C 08W 1 


; C 089? 1 


j C 0804 1 


; C 0895 1 


5 C 0896 1 


; C 0897 1 


; C 0898 1 


; C 0899 l 


; C 0900 1 


; C 0901 1 


; C 090," 1 


; C 090? 1 


; C 0904 1 


; C 0905 1 


; C 090r 1 


; C 090^ 1 


; C 0908 1 


: C 0909 l 


; C 0910 1 


; C 09U l 


; C 091? 1 


; C 091? 1 


; C 0914 1 


; C 0915 1 


; C 0916 1 


; C 091,' i 


5 C 091H 1 


; C ( U o 1 


; C 0920 1 



RD/RX EXERCISER 



41 Drive error, 

42 Host write compare error. 



11 -Apr -1984 11:56:01 
ll-Apr-1984 11:45:02 

See #40. 



VAX -11 Bliss -16 V4. 0-579 

DISK JUSER2 : [ POWERS URQADO , 8L 1 ; 



SEQ 002? 
Page ??. 
(21) 



Error detected when Host 
CPU compared the dotn 
written and read back ♦ May- 
be a problem with the Host 
or Controller RAM. 



43 Message from internal di agnost i cs See #40, 



44 Duplicate unit number detected 
by the Controller, 

45 Unknown end code received. 



S0F"T ERRORS 

50 Controller error, 

51 Host memory access error. 

52 Disk transfer error. 

53 Standard Disk Interconnect' 
error . 

54 'Small D»sk* error. 



Problem with the Control 
ler microcode or the port/ 
DMA interface, 



See error -log packet for 
details as the e^act cause 
may not be evident, 

See #50. 

See #50. 

See #50, 

See #50. 



K. : ' 



rRQAMl 


V01. 6 


; C 0921 1 


; c 0922 1 


; C 0923 1 


; C 0924 1 


; C 0925 1 


; C 0926 1 


; C 0927 1 


j C 0928 1 


; C 0929 1 


; C 0950 1 


; C 0931 1 


; C 0^32 1 


; C O l »33 1 


; C 0934 1 


: c 09.;r> i 


; C 093b 1 


; C 093'/ 1 


; C 0938 1 


; C 0939 1 


; C 0940 1 


{ C 0941 1 


; C 094 2 1 


; C 0943 1 


; C 0944 1 


; C 0945 1 


; C 0946 1 


; C 094 7 1 


; C 0948 1 


; C 0949 1 


; C 0950 1 


; C 0951 i 


; C 09V 1 


; C 0953 1 


; C 0^54 1 


; C 09 r »', 1 


; C 0956 1 


; C 095/ 1 


; C 0958 1 


; C 0954 1 


; C 09*, 1 


; C 0961 1 


; C 096? 1 


; C 0963 1 


; C 0964 i 


; C 09b5 1 


; C 0966 1 


5 C 096/ 1 


; C 0968 1 


; C 0969 1 


; C 09/0 1 


; C 09/1 1 


j C 09 72 1 



RD/RX EXERCISER 



3.1 Apr 1984 
11 -Apr -1984 



11:56:01 
ll!45jO£ 



VAX -11 Bliss- 16 V4, 0-579 

DISK $UbER2 ? C POWERS 3ZRQAD0 . BL1 j 6 



SEQ 002*. 
Page ?!> 
(22) 



7,0 DATA PATTERNS 



Pattern 1 
Pattern 2 
Pattern j 
Pattern 4 
Pattern 5 
Pattern 6 
Pattern 7 



Pattern 8 



Hfr X 



OCTAL 



BINARY 



RANDOM NUMBERS 



0000 


000000 


FrTT 


1777/7 


8B8B 


105613 


3333 


031463 


3091 


030221 


0001 


000001 


0005 


000003 


0007 


00000 7 


OOOF 


00001/ 


001F" 


000037 


003F 


00007 7 


007F 


000177 


OOFT 


0003/7 


01 FT 


0007 7 7 


03FT 


001777 


07FF 


0037/7 


OF FT 


oo n n 


1FFT 


01777/ 


3FT V 


03777/ 


7FTT 


07777/ 


F FT F 


1/7777 


FTTT. 


177776 


FT T C 


177 7 74 


FFF8 


177 7/0 


FTF'O 


17/760 


FT EO 


177 740 


FFCO 


1/7/00 


FK80 


1 / 7600 


FFOO 


17 7400 


FE.00 


1 7 7000 


FCOO 


176000 


F800 


1/4000 


FOOO 


1 /oooo 


E00»> 


160000 


cooo 


140000 


8000 


100000 


0000 


000000 



000 000 000 000 000 

1 111 111 111 111 111 

1 000 101 110 001 Oil 
Oil 001 100 110 Oil 

o on ooo oio oio 001 



000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
001 

o on 







11 
11 

11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 

10 

.00 

>00 

000 



000 
000 
000 
000 
000 
000 
000 
000 
000 
001 

on 
111 
111 
111 
111 
111 

111 
111 

111 
111 
111 
111 
111 
111 
111 
no 

100 
000 
000 
000 
000 
000 



000 
000 

000 

000 

000 

000 

00 





000 

000 

000 

00 






00 
000 
000 
000 
000 
000 
000 
000 
000 



10 

00 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 



001 
Oil 

111 
111 
111 
111 
111 
111 
111 
111 
111 
111 
111 
: u 
111 
111 

110 

100 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 



7RQAM1 


RU/RX EXERCISER 








11 


-Apr 


-1984 11 


56:01 


V01 


fr 










11 


•Apr 


-1984 11 


45:02 


l c 


09 73 1 


Pattern 9 


0000 


000000 





000 


000 


000 


000 


000 


i c 


09 74 1 




0000 


000000 





000 


000 


000 


000 


000 


j c 


09/5 1 




0000 


000000 





000 


000 


000 


000 


000 


; C 


09 76 1 




FF>> 


177777 


1 


111 


111 


111 


111 


111 


; C 


09/: 1 




FFFF 


177777 


1 


111 


111 


111 


111 


111 


; C 


0^78 1 




FFFF 


177777 


1 


111 


111 


111 


111 


111 


; C 


09 *9 1 




0000 


000000 





000 


000 


000 


000 


000 


i C 


0980 1 




0000 


000000 





000 


000 


000 


000 


000 


; C 


0981 1 




FFFF 


177777 


1 


111 


111 


111 


111 


111 


; C 


0982 1 




FFFF 


177777 


1 


111 


HI 


111 


111 


111 




0985 1 




0000 


000000 





000 


000 


000 


000 


000 


; C 


0984 1 




FFFF 


177777 


1 


111 


HI 


111 


111 


111 


; C 


0985 1 




0000 


oocooo 





000 


000 


000 


000 


000 


j c 


098b 1 




FFFF 


1777 '7 


1 


HI 


111 


111 


111 


111 


; C 


098 " 1 




0000 


000000 





000 


000 


000 


000 


000 


; C 


0988 1 




FFFF 


177777 


1 


111 


111 


111 


111 


111 


i c 


0989 1 




















; C 


0990 1 


Pattern 10 


B6D9 


133331 


1 


Oil 


Oil 


Oil 


on 


001 


; C 


0991 1 




















; C 


0992 1 


Pattern 11 


5555 


052525 





101 


010 


101 


010 


101 


; C 


0995 1 




5555 


052525 





101 


010 


101 


010 


101 


» c 


0994 1 




5555 


052525 





101 


010 


101 


010 


101 


; C 


0995 1 




AAAA 


125252 


1 


010 


101 


010 


101 


010 


; C 


0996 1 




AAAA 


125252 


1 


010 


101 


010 


101 


010 


; C 


099 7 1 




AAAA 


125252 


1 


010 


101 


010 


101 


010 


; C 


0998 1 




5555 


052525 





101 


010 


101 


010 


101 


: C 


0999 1 




5555 


052525 





101 


010 


101 


010 


101 


; C 


1000 1 




AAAA 


125252 


1 


010 


101 


010 


101 


010 


; C 


1001 1 




AAAA 


12525? 


t 


010 


101 


010 


101 


010 


; C 


100? 1 




5555 


052525 





101 


010 


101 


010 


101 


; C 


1005 1 




AAAA 


125252 


1 


010 


101 


010 


101 


010 


; C 


1004 1 




5555 


052525 





101 


010 


101 


010 


101 


; C 


1005 1 




AAAA 


125252 


1 


010 


101 


010 


101 


010 


; C 


iOOr 1 




5555 


052525 





101 


010 


101 


oio 


101 


; C 


100 / 1 




AAAA 


125252 


i 


OiO 


ioi 


010 


101 


010 



VAX -U Bliss* 16 V4.0 579 

DISK $USER2s[ POWERS ]/RQAD0.bLl;6 



SEU 0024 
Page 24 
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M2 



/RQAMl 


RD/RX EXERCISER 








11 


-Apr 


-1984 11 


56 j 01 


V01. 6 










11 


-Apr 


1984 11 


45; 02 


j C 1008 ] 


L Pattern 12 


2D2D 


026455 





010 


no 


100 


101 


101 


; C 1009 3 




2D2D 


026455 





010 


no 


100 


101 


101 


i C 1010 3 




2D2D 


026455 





010 


110 


100 


101 


101 


I C 1011 3 




D2D2 


151322 


1 


101 


001 


Oil 


010 


010 


; C 1012 1 




D2D2 


151322 


1 


101 


001 


Oil 


010 


010 


; C 1013 1 




D2D2 


151322 


1 


101 


001 


on 


010 


010 


; C 1014 3 




2020 


026455 





010 


110 


100 


101 


101 


I C 1015 1 




2D2D 


026455 





010 


no 


100 


101 


101 


; C 101b 3 




D2D2 


151322 


1 


101 


001 


Oil 


010 


010 


; C 1017 3 




D2D2 


151322 


1 


101 


001 


on 


010 


010 


i C 1018 3 




2D2D 


026455 





010 


110 


100 


101 


101 


j C 1010 ] 




2D?D 


026455 





010 


110 


100 


101 


101 


; C 1020 ] 




D2D2 


151322 


1 


101 


001 


on 


010 


010 


; C 1021 3 




2D2D 


026455 





010 


110 


100 


101 


101 


; C 1022 3 




D2D2 


151322 


1 


101 


001 


on 


010 


010 


j C 1023 3 




2D2D 


026455 





010 


110 


100 


101 


101 


; C 1024 3 




D2D2 


151322 


1 


101 


001 


on 


010 


010 


; C 1025 3 




2D2D 


026455 





010 


110 


100 


101 


101 


; C 1026 3 




D2D2 


151322 


1 


101 


001 


on 


010 


010 


; C 1027 3 




2D2D 


026455 





010 


110 


100 


101 


101 


; C 1028 3 




















; C 1029 3 

; C 1C30 3 


L Pattern 1.3 


6DB6 


066666 





110 


110 


110 


110 


110 


; C 1031 3 


I Pattern 14 


0001 


000001 





000 


000 


000 


000 


001 


} C 1032 3 




0002 


000002 





000 


000 


000 


000 


010 


; C 1033 3 




0004 


000004 





000 


000 


000 


000 


100 


; C 1034 1 




0006 


000010 





000 


000 


000 


001 


000 


; C 1035 3 




0010 


000020 





000 


oco 


000 


010 


000 


; C 1036 3 




O020 


000C40 





000 


000 


000 


100 


000 


; C 1037 3 




0040 


000100 





000 


000 


001 


000 


000 


; C 10 38 ] 




0080 


000200 





000 


000 


010 


000 


000 


; C 10*^ 1 




01.00 


000400 





000 


000 


100 


000 


000 


5 C 1040 3 




0200 


001000 





000 


01 


000 


000 


000 


; C 1041 ] 




U400 


00^000 





000 


010 


000 


000 


000 


; C 1042 3 




0800 


004000 





ooo 


100 


000 


000 


000 


j C 1043 3 




1000 


010000 





001 


000 


000 


000 


000 


; C 1044 ] 




2000 


020000 





010 


000 


000 


000 


000 


; C 104S 3 




4000 


040000 





100 


000 


000 


000 


000 


j C 1046 3 




aooo 


100000 


1 


000 


000 


000 


000 


000 



VAX-11 Bltss-lft V4. 0-579 
D1SK$USER2*[POWERS]ZRQADO.BL1|6 



SfcQ 0025 
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NP 



ZRQAM1 


VOL 6 


: C 1047 1 


; C 1048 1 


; C 1049 1 


; C 1050 1 


j t 1051 1 


j C 1052 1 


; C 1055 1 


; C 1054 1 


; C 1055 1 


! C 1056 1 


; C 105; 1 


5 C 1058 1 


; C 1050 1 


; C 1060 1 


; C 1061 1 


; C 1062 1 


; C 1063 1 


; C 1064 1 


; C 1065 1 


5 C 1066 1 


l C 1067 1 


; C 1068 1 


; C 1069 1 


; C 10/0 1 


; C 10/1 1 


; C it)/; 1 i 


; C 1075 1 


s C 10 74 1 


j C 1075 1 


; C 1076 1 


; C 107 f 1 


; C 10 78 1 


; C 1079 1 



RD/RX EXERCISER 



Pottern 15 



11 Apr-198* 11:56:01 
ll-Apr-19H4 11:45; 02 



VAX -11 Bliss- 16 V4. 0-579 
DISI<*USER2:[P0WERS1ZRQAD0.BL1|6 



SE.Q 0026 
Page 26 
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Pattern 16 



FFFE 


177776 


FFFD 


177775 


FFFB 


177773 


FFF7 


177767 


FFEF 


177757 


FFDF 


177737 


FF8F 


177677 


FF7F 


177577 


FEFF 


177377 


FDFF 


176777 


FBFF 


175777 


F7FF 


173777 


EFFF 


167777 


DFFF 


157777 


BFFF 


137777 


7FFF 


077777 


B6D9 


133331 


B6D9 


133331 


B609 


133331 


DB6C 


155554 


DB6C 


155554 


DH6C 


155554 


B609 


133331 


B6D9 


133331 


DB6C 


155554 


DB6C 


155554 


B6D9 


133351 


DB6C 


155554 


B6D9 


133331 


DB6C 


155554 


B6D9 


133531 


0B6C 


155554 



1 


111 


111 


ill 


111 


110 


1 


111 


111 


111 


111 


101 


1 


111 


111 


111 


in. 


Oil 


1 


111 


111 


111 


110 


111 


1 


111 


111 


111 


101 


111 


1 


111 


111 


111 


on 


111 


1 


111 


111 


110 


111 


111 


1 


111 


111 


101 


111 


111 


1 


111 


111 


on 


111 


111 


1 


111 


110 


111 


111 


111 


1 


111 


101 


111 


111 


111 


i_ 


111 


Oil 


111 


111 


111 


i 


110 


111 


111 


111 


111 


i 


101 


111 


111 


111 


111 


i 


Oil 


111 


111 


111 


111 





111 


ill 


111 


ill 


111 


1 


Oil 


Oil 


on 


Oil 


001 


1 


on 


on 


on 


on 


001 


1 


on 


Oil 


on 


Oil 


001 


1 


101 


101 


101 


101 


100 


1 


101 


101 


101 


101 


100 


1 


101 


101 


101 


101 


100 


1 


Oil 


Oil 


on 


on 


001 


1 


Oil 


Oil 


Oil 


on 


001 


1 


101 


101 


101 


101 


100 


1 


101 


101 


101 


101 


100 


1 


on 


Oil 


on 


on 


001. 


1 


101 


101 


101 


101 


U;- 


1 


Oil 


on 


on 


on 


00 1 


1 


101 


101 


101 


101 


100 


1 


on 


Oil 


Oil 


on 


001 


i 


101 


101 


101 


101 


100 



JRiWU 
V01.6 



1 080 
1081 

ioa^ 

108? 

1084 
108S 

:0v^ 
108: 

1088 
108* 
10*0 
10*1 
10^V 
10*5 
10*4 
10*S 
10^ 
10* * 
1098 
10** 
1100 
1101 



C 1 

C 1 

C 1 



1 
1 
1 
1 
1 
1 
1 
1 
1 

C 1 

C 1 

C 1 

C 1 

C 1 

<"" 1 
v - * 

C 1 

C 1 

C 1 

C 1 

C 1 

C 1 

c : 

C 1 



KV 
103 
104 
10S 
106 
10? 
108 
109 
110 
111 

n; 
n? 

114 
US 
116 

11'.' 

118 

119 

U'i 

kv 

KM 

K'4 
W'5 

i;*fc 

lu'? 



RD'RX L.XfcRCISER 



Pattern 17 



UBNH 


(LBN) 


6056 


106466 


8036 


106466 


7J>C9 


071311 


7^C9 


071311 


/YC* 


071311 


8D36 


106466 


8036 


106466 


8DJ6 


106466 


8036 


106466 


7cK9 


0713U 


7JC9 


071311 


7?C9 


071311 


7^C9 


0713U 


7«?C9 


071311 


8036 


106466 


8D36 


1064t6 


80 36 


106466 


8D36 


106466 


8036 


106466 


8D36 


106466 



This Hortf position contains 
block to b? written. 



Pattern 18 



8036 


106466 


(LBN) 


(LBN) 


W» 


0713U 


8036 


106466 


ars6 


106466 


8D36 


106466 


7?C* 


071 31 J 


7?C* 


0/1311 


72C9 


0713U 


7,?C* 


071311 


8036 


106466 


8036 


106466 


8036 


106466 


8036 


106466 


8036 


106466 


7?C9 


071311 


7?C9 


0?13U 


72CS 


0713U 


VC<* 


0/1 311 


V.'C 1 * 


0/131 1 


72C9 


G713U 



th 





11 


Apr 


-1984 U 


56 j 01 




11 


Apr 


-19H4 11 


45 :02 






(LBN) 




1 


000 


110 


100 


uo 


uo 


1 


000 


UO 


ICO 


uo 


uo 





ill 


001 


Oil 


001 


001 





111 


001 


Oil 


001 


001 





111 


001 


Oil 


001 


001 


1 


000 


uo 


100 


uo 


uo 


1 


000 


uo 


100 


uo 


uo 


1 


000 


110 


100 


uo 


uo 


1 


000 


110 


100 


uo 


uo 





ill 


001 


on 


001 


001 





111 


001 


Oil 


001 


001 





ill 


001 


Oil 


001 


001 





111 


001 


ou 


001 


001 





ill 


001 


Oil 


001 


001 


1 


000 


uo 


100 


uo 


uo 


1 


000 


uo 


100 


uo 


11^ 


1 


000 


uo 


100 


uo 


uo 


1 


000 


uo 


100 


uo 


uo 


1 


000 


uo 


100 


uo 


uo 


1 


000 


uo 


100 


uo 


uo 


e 


number of the loC'Col 
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DISK $USER2s( POWERS ]ZRQAD0.BU|6 



SfcU 00^/ 
Page ? i 
(26) 



1 


000 


uo 


100 


uo 


uo 






>.LBN) 









111 


001 


ou 


001 


001 


1 


000 


uo 


100 


UO 


UO 


1 


000 


110 


100 


uo 


UO 


1 


000 


uo 


100 


uo 


MO 





111 


001 


ou 


00 1 


001 





ill 


001 


ou 


001 


001 





111 


001 


Oil 


001 


00] 





111 


001 


ou 


001 


001 


1 


000 


uo 


100 


uo 


uo 


1 


000 


uo 


100 


MO 


1 10 


1 


000 


uo 


100 


uo 


uo 


I 


000 


no 


100 


uo 


uo 


1 


000 


110 


100 


uo 


uo 





111 


001 


ou 


00 t 


001 





111 


001 


Oil 


001 


001 





111 


001 


OU 


001 


001 





111 


001 


ou 


001 


001 





1 u 


001 


ou 


001 


00 1 





Hi 


001 


on 


00 i 


001 



.'RiWtl 




VOL 


6 




; C 


11^8 




: C 


11^9 






1150 




j c 


1131 




; C 


ll.V 




; C 


1133 




; C 


1154 




• >- 


1155 




; C 


115t* 




; C 


11?; 




; C 


1158 




J c 


11?* 




; C 


U40 




; C 


1141 




; C 


11V 




; C 


1145 




{ c 


1144 




; C 


1145 




j C 


1146 




: C 


114? 




; C 


1148 




; C 


1 149 




• C 


1150 




: C 


1151 




; C 


115.? 




; C 


1155 


X 


; C 


1154 


1 

* 


{ c 


1155 


1 
i. 


; C 


1156 


1 


j C 


115 7 


1 


; C 


1158 


1 


; C 


115^ 


1 


; C 


1160 


1 




1161 


1 


; C 


116? 


1 


n 


1162 


* 


• fc- 


A, 


. r 


1164 


1 
* 


; C 


1165 


1 


; C 


1166 


1 




1 16 ; 


1 


; C 


1168 


1 


; C 


1167 


1 


; C 


1170 


1 


• L 


1171 


1 


; J 


ll.V 


5 


; C 


11. '3 


1 




1174 


4 



RO-RX t XLRCISI.R 



Pattern 19 



Pattern <?0 



U.BN) 

B999 
B999 
4666 
4666 
4666 
B999 
B999 
B999 
B999 
4666 
4666 
4666 
4666 
4666 
B999 
B999 
B999 
B999 
B999 
B999 

B999 

(LBN) 

4666 

B999 

B999 

B999 

4666 

4666 

4666 

4666 

B999 

B999 

B999 

B999 

B999 

4666 

4666 

4666 

4666 

4666 

4666 



( I BN ) 

154631 

134631 

043146 

043146 

043146 

134631 

134631 

134631 

134631 

043146 

043146 

043146 

043146 

043146 

134631 

134631 

134631 

134631 

134631 

134631 

134631 

(LBN) 

043146 

134631 

134631 

134631 

043146 

043146 

043146 

043146 

134631 

134631 

134631 

134631 

134631 

043146 

043146 

043146 

043146 

043146 

04*146 







-* • > 










1 1 


•Apr 


1984 11 


56:01 




11 


Apr 


1984 11 


45:0*? 






(LBN) 






1 


Oil 


100 


110 


on 


001 


1 


Oil 


100 


110 


on 


001 





100 


on 


001 


100 


no 





100 


01! 


001 


100 


no 





100 


Oil 


001 


100 


110 


1 


on 


100 


110 


on 


001 


1 


on 


100 


110 


on 


001 


I 


Oil 


100 


110 


on 


oo i 


1 


on 


100 


110 


on 


001 





100 


on 


001 


100 


no 





100 


on 


001 


100 


no 





100 


Oil 


001 


100 


110 





100 


on 


001 


100 


110 





100 


on 


001 


100 


110 


1 


on 


100 


no 


on 


001 


1 


on 


100 


no 


on 


001 


1 


Oil 


100 


no 


on 


001 


1 


Oil 


100 


no 


on 


001 


1 


on 


100 


no 


on 


001 


1 


on 


100 


no 


on 


001 


1 


on 


100 


no 


on 


001 






(LBN) 









100 


on 


001 


100 


110 


1 


on 


100 


110 


on 


001 


1 


on 


100 


110 


on 


001 


1 


on 


100 


110 


on 


001 





100 


on 


001 


100 


110 





100 


on 


001 


100 


no 





100 


on 


001 


100 


110 





100 


on 


001 


100 


110 


1 


on 


100 


no 


on 


001 


1 


on 


100 


no 


on 


001 


1 


on 


100 


no 


on 


001 


1 


on 


100 


no 


Oil 


001 


1 


on 


100 


no 


on 


001 





100 


on 


001 


100 


no 





100 


on 


001 


100 


no 





100 


Oil 


001 


100 


110 





100 


Oil 


001 


100 


no 





100 


Oil 


001 


100 


110 





100 


on 


001 


100 


no 
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UU 00,'H 
Pa^e 



<ei) 



Pattern 21 



CLUN) (LBN) 



(LBN) 



)« 



I) 



/ 



/RiJAMl 
VOl.t* 



1 1 ;s 

1 1 :* 

1 1 ■: ' 

UM 
.?n.'l 

i>*4 

;ws 

t > * ' 
.>> >» 



11 Apr-14«4 llir>6:01 
Il-Apr-19H4 11:45:02 



RO R\ EXERCISER 
PROGRAM HtADF.R 

•sbttl 'PROGRAM HEADER* 

library ' /RQAOO.t 16' { 

require ' PL .SMACRfcU' : 

literal 

D5*NBR OF .TESTS = 1; 

EOuAl S; 
POINTER (ALL); 



THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
THE DIAGNOSTIC PROGRAM AND THfc SUPERVISOR. 



HEADER C*osct!'/RQA , *09cJ»'0'. *ascii*0* , 5276/, 1, PRIOO); 



vax u m; 9s \f, V4.0-5/S stQ p2oe 9 & 

DISKIUSER2S I POWERS ]ZRQAD0.BL1|6 (26) 



I RDRX EXERCISER GLOBAL LIBRARY 
! DIAGNOSTIC SUPERVISOR I IBRARy 

J NUMBER OF TESTS IN THIS DIAGNOSTIC 



*l 



VOL 6 



*>84 

^68'.' 

J^S8 



PD/RX EXERCISER 
DISPATCH TABLE 

*sbttl 'DISPATCH TABLE 



11 -Apr- 1984 11:56:01 
li-Apr-1984 11:45:02 



VAX -11 Bliss- 16 V4.C--579 
DISK$USER2 5 [ POWERS 'JZRQMD0.BLli6 



SLQ 00 SO 

Page SO 
C29) 



THE DISPATCH TABLE CONTAINS THE START ING ADDRESS Of EACH TtST. 
IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 



DISPATCH CDS$NBR.OF. TESTS): 



"A 



/RUAMl 
VOL 6 



*?692 
J693 

<>b94 
l?69S 

2696 

269 7 
2698 
2699 
2. 'CO 
2701 
2 702 
2703 
2704 

*?/os 

2 706 

270 7 

2704 

2 \w 

2710 
2711 
2712 
271S 
2714 
2715 
2716 

271 ; 
2718 
2 719 

2720 
2721 
2 7LV 
?.?2~*> 
2 724 
2 725 
2 726 
2727 
2 728 
2729 
2 7 50 
2731 
2 75? 
2733 
2734 
273S 
2 7 36 
2737 
2 7 IH 
2 7 39 
2 740 
2 74 1 
2 74;-- 
."■74* 
2744 



rd/rx exerciser 
global data section 

*sbttl 'GLOBAL DATA SECTION 1 



11 Apr- 1984 11:56;01 
ll-Apr-1984 llt45;02 



VAX] 1 Bliss-16 V4.0 5/9 

1 SK * USER2 : [ POWERS ] ^RQADO . BL 1 ; 6 



SEQ COM 
Page '1 

C3o; 



THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
IN MORE THAN ONE TEST, 



psect 

global » $FFF$ (read, write, noenecute, global, concatenate)! 

global 

CST t blockvector [MAX.CTLR, CST_LEN. word) Field (CST FIELDS), 

• RUN-TIME CONTROLLER STATUS TABLES 
CST_ADDR : ref block [CST LEN, word) field (CST FIELDS), 

! CONTROLLER STATUS TABLE ADDRESS OF "CURRENT" CONTROLLER 
DCT ; blockvector [MAX_CTLR, DCT_LEN, word) field (OCT FIELDS), 

• DRIVER CONTROLLER TABLES 
DCT.ADDR j ret' block [DCT.LtN, word) field COCT FIELDS), 

• ADDRESS OF "CURRENT" DRIVER CONTROLLER TABLE 
RDRX..ADDR : ref rdrx field (RC REG), 

• DEVICE ADDRESS OF "CURRENT" CONTROLLER 
IRDRH^ADDR : ref rdrx field (RC REG), 

J DEVICE ADDRESS OF INTERRUPTING CONTROLLER 



Mil 
Mil 

Mil 



BST : BLOCKVECTOR [MAX, UNITS, 2, WORD). 

•CONTAINS L0» HI LBN FIELDS FOR SEQUENT 1A1 

♦I/O TRANSFER FOR EACH UNIT. 
TALLY : vector [MAX„UNITS ♦ TALLYMEN, word! field (T FIELDS), 

! STATISTICS TABLES 
T_ADDR : m* block [TALLI.LEN, word) field (T FIELDS). 

J ADDRESS OF STATISTICS TABLE (TALI.*) FOR CURRENT UNIT 

DUPPKT : BLOCK (257, UORD) FIELD (OP FIELDS). JBUFFER FOR UUP III 

•INFO FROM RECEIVE » SENO CMOS /// 

3K_SGN : VECTOR [MAX. UNITS, BYTE, SIGNED] INITIAL (BYTE I RIP Mil 

MAX. UNITS OF (1)>), 'CURRENT TRACK DIRECTION III 

RDM.CNT : UORD INITIAL (RDM LEN), !N0 OF RANOOM NOS WKFFP III 

RANDOM ; VECTOR [RDM. LEN, WORD), JRANDOM NO, TABLE '/ TOGF THf.R /// 

C ERR TBL : blockvector (MAX^CTLR. C .ERR LEN, word] field (C IRR FIELDS), 

• STATISTICS TABIF FOR CONTROLLER tRRORS 
MSCP. .PKT : blockvector [PKT_CNT, Pl< I LEN. word] field (PKT FIELDS). 

! MSCP PACKET POOL 
IPKT.ADDR : ref block (PKT LEN. word] field (PKT MfclOS). 

! ADDRESS OF AN MSCP PACKET UNTERUPT PROCESSING) 
PKT. USE ; vector [PKT..CNT, byte, signed], 

• MSCP PACKFT POOL ALLOCATION TABLE 
RETPKT • blockvector (RP CM, RP LfcN, word) field I RP FIELDS). 

! RETURN PACKET POOl 
RP USE : vector IRP.CN1, byte, signed], 

• Rt TURN PACKET POOL AllOOWTOh 1 MULL 
RP.INOx ; wore*. ! CURRENT Rl TURN PACKfc T IN()M 
RP.ADUR ; ref block IRP,LEN, word) field tRH.KltLQS}, 



Li'* 



/ROAMl 

VOi, 6 



*? Mb 
^ .'4 ; 
J 748 

^753 

^7b7 
«?758 
^7SS» 
?760 
LVbl 

J 76.: 

i?763 
2 764 
2765 

c 1 76b 
2767 
2 768 
2?69 
27 70 
2771 
27 72 
2 7 73 
2774 
27 7S 
2 / 76 
2 777 
2778 
27 7* 
2780 
2 781 
2 782 
2783 
? 784 
2 /8 C _> 
2/86 
2 78 7 
2 788 
,'/«»« 
2790 



RD/RX EXERCISER 
GLOBAL DATA SECTION 



11 -Apr -1984 11:56:01 
U-Apr-19b*4 11*45:02 



VAX 11 Bliss -16 V4.0 579 

D I Sl< *USER2 ; f POWERS URUADO « BL 1 : 6 



GEQ 0032 



Poq<s 32 
(30) 



! CURRENT RETURN PACKET ADDRESS 
ELOG..PKT : block vector [EP CNT - I . EP L.F.N, word] f 

! ERROR -LOG PACKET SAVE AREA 
BUFF_ADDR : vector [MAX BUF CNT], 
BL#T_OWN • vector [MAX.BUF ..CNT , byte, signed], 
IODQ : vector [ IODQ LEN, byte], 
IODQ.IN : word, 
IODQ OUT : word, 
ENTRY REASON : byte, 
LOP FLAG ; byte. 
DUP_FLAGS : WORD, 
CCTLR : word, 
CDISK : word. 
CUOFF : word, 
CTLR CNT : word, 
DUR : vector [MAX_UNITS, byte), 
UIO : vector [MAX CTLR, byte], 
FREE MEM AODR , 
B>TS_PER_QIO : word, 
ST. CODE : word. 
SB .CODE : word, 
STEP : word, 
OF_RC : signed word, 
SA_REG : word, 
CMD TIME : word, 
NEX : word, 
CRN. LOU : word, 
CRN HIGH : word. 
CREDIT BAL : word. 
NEXT.PKT.USE : byte, 
HOURS ; byte. 
MINUTES : byte, 
CLK_ TICKS : word. 
rL.K_PRESENT : byte, 
HOE.FLAG : byte, 



ield (EP_FIELDS) # 



TABLE OF I/O BUFFER DESCRIPTORS 
I/O BUTFER OWNERSHIP (CONTROLLER NUMBER) 
I/O DONE QUEUE - CIRCULAR QUEUE OF RETPKT 
I/O DONE QUEUE IN POINTER 
I/O DONE QUEUE OUT POINTER 
CURRENT OPERATOR COMMAND 
END -OF -PASS FLAG 
DUP FLAGS 111 
NUMBER OF "CURRENT" CONTROLLER 
CURRENT DISK ADDRESS (RD/RX DISK NUNBE'R) 
CURRENT UNIT CST OFFSET 

TOTAL NUMBER OF CONFIGURED CONTROLLERS 
DROP UNIT REASON 

NUMBER OF OUTSTANDING QIOs PER CONTROLLER 
START OF FREE MEMORY 
SIZE (BYTES) OF AN I/O BUFFER 
CURRENT STATUS CODE 
CURRENT Sue CODE 
CURRENT STEP IN HARD INIT 
OFFSET (0 OR 2) TO READ IP OR SA 
STORAGE FOR SA REGISTER READS AND WRITES 
COMMAND TIMEOUT VALUE (IN SECONDS) 
NON-EXISTENT MEMORY TRAP INDICATOR 
COMMAND REF NUMBER 0> LAST COMMAND SENT 
COMMANO REF NUMBER (HI ORDER) 
CREDIT BALANCE 
POINTER 
1 IMF OF 
TIME 
TIME 
FLAG 
FLAG 



INDECES 



IN PKT.USE TABLE 



TO NEXT ENTRY 

DAY (HOURS) 
OF DAY { MINUTES) 
OF DAY (LINE -CLOCK TICKS) 
INDICATES IF LINE DOCK PRE 
INDICATES IF "HALT ON ERROR 



.JEM 
" FLAG 



SET 



S_PATTERN : WORD, 

S DUPPKT ; WORD, 

P. INDEX : SIGNED WORD, 

FORCED. ERROR : byte, 

FER.LBN : word, 

PER BC : word, 

INIT. UCCURED : byte initial 

ADOR.VECT.QK j fcyU initial 



•PAT TERN FOR DUP WRITES 

!DBN BYTE COUNTER 

I CURRENT MESSAGE PACKET INDEX 

"FORCED ERROR" 



(byte 
(byte 



U Ai.'.iE )). 
lKALSE))i 



111 

111 

I'll 
DETECTED IN LAST READ 
LBN OF THE "FORCED ERROR" BLOCK 
BYTE COUNT OF THE "FORCED ERROR' BLOCK 
EXERCISER INITIALIZATION COMPLETE 
FLAG INDICATES IF AUURESS'VECIUR TEST PASStO 



fcRRTBLi 



H ^ 



7RQAM1 
V01, 6 



2791 
2 :*;? 
2T93 
0794 
2795 
2 "96 

C79: 

2/98 

2 :*s 

2800 

2801 
2802 

*?eod 

280 c 
2806 
280 ' 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
282S 
2826 
282/ 
2828 
2829 
2830 
2851 
2832 
28 3 3 
28 34 
28 3% 
28*6 
28 * .' 
28 38 
28 V* 
2840 
2841 
284.' 
284 3 



RD/RX EXERCISER 
GLOBAL. TEXT SECTION 

*sbttl 'GLOBAL TEXT SECTION 



11 -Apr- 1984 
ll-Apr-1984 



SEU OC3 3 
11:56:01 VAX 11 Bliss- 16 V4.0-579 Page 53 

11:45:02 DISKJUSER2: [ POWERS URQADO.BL 1 j6 (31) 



THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS 
MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
MORE THAN ONE TEST. 



global bind 

♦■HARDWARE DIALOG 



HWQ1 

HWQ2 ■■ 

HWQ3 ■ 

HWQ4 

HWQ5 

HUQ6A 

HWQ6B 

HWQ7A 

HWQ7U 

HWQ8 

HWQ9 

HWQ10 

HWU11 



upl i t 

up l i t 
upl it 

upl i t 

upl i t 
1 upl i t 

■ upl it 

1 upli t 
1 Upl i t 
upl it ( 
upl it ( 

1 up 1 i t 

1 up 1 i t 



*asc i 
*asc i 

*05Cl 

*asc i 
*asc i 
C*asc 
Crfase 

(*Q9C 

C*asc 
*asc i 
*asc i 
C*asc 
C*asc 



/' IP address' ), 

/'Vector' ), 

/'BR level* ), 

/' Drive number'), 

/' Test entire customer area of this disk' ), 

iz' Lower octal word of beginning LBN address' ), 

Iz'Higher octal word of beginning LBN address' ), 

iz' Lower octal word of ending LBN address* ), 

i/'Higher octal word of ending LBN address'), 

z ' Wr i te on customer data area on this disk* ), 

z'** WARNING - CUSTOMER DATA AREA MAY BE OVfcRWRIT 

i/'Also run DUP exerciser'), 

iz'Write on diagnostic area 1 ), 



Mil 
Mil 
Mil 
Mil 
Mil 
Mil 

TEN! 
Mil 
Mil 



. CONFIRM' ), 



SOFTWARE DIALOG 



SWQ1 

SWQ2 

5WQ4 

SWQ7 

SWQ9 

SWQ10 

SWQU 

SWQ12 

SWQ13 

SWQ14 

SWQ15 

SWQ17 

SWQ19 

SWQ20 

SWQ21 

SWQ22 

SWQ23 

SWQ24 

SWU25 

SUM I 

NULL 



upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 



(*asc 
(*asc 
(*asc 
(rfasc 
(*asc 
(rfasc 
(*asc 
(*asc 
(#asc 
(Kasc 
(tfasc 
(*asc 
(*asc 
(*asc 
(*asc 
(*asc 
(*asc 
( rfasc 
(*asc 
(*asc 
(*asc 



/'Hard Error limit' ) # 

/'Transfer limit in megabytes CO for "Quick pass")'), 

/' Random seek mode'), 

/' Read-compares performed at the Controller'), 

Z' Wr i te- compares performed at the Controller' ), 

/'Check all Writes at .-lest by reading'), 

/' User -defined data pattern'), 

/'Select pre-defined data pattern (0 for Sequential selection)), 

^'Number of words in data pattern (16 maximum)'), 

/'Pattern value (No leading zeros allowed)'), 

/'Clear statistical tables after printing'), 

/'Percentage of "Fixed Disk" operations out of total operations' ), 

/'Units to be selected at random (No. implies sequential)'), 

/'Want to rewrite blocks when "forced Error" detected on reads ), 

/'Do you want to halt on other Hard Errors ( $s .31-34, 36 37, 39-45)' 

/'Do you want to halt on Soft Errors ( Os 50 54)' 1, 

/'Do you want to halt on Bad -block Hard Errors ( 0s 55, 38)' 1, 

/'Enter time as HHMM CE*.ampl-}; 1 SOS No leading zeros nllowd^ ), 
Count each retry on a Read'Write error as a seperate 5oft Error 1 ), 
The remaining questions only apply to unprotected disks' \ 



). 



/ ' 



fHF \ 01 I owing 
RELEASING THE 



DBM* ARt 
PROGRAM. 



DthuU rttV,AGtS. AND SHOW I) Hfc REMIM M KOHt 
THEY TNCIU0E THE NAMES OF EACH ROUTINE, PLUS 



V 



/RUAMl 
V01.fr 



RO/RX EXERCISER 

GLOBAL TEXT SECTION 



11 -Apr- 1984 
11 -Apr- 1984 



11:56:01 
U:45i02 



VAX11 Hliss-T'. V4.0 5 79 

DISK $USER2 5 [ POWERS URQADO . BL 1 { 6 



St Q 0054 
Page 54 
'31) 



2844 

2H4 ! : . 

284 b 
J 34 7 
2848 
2849 

28S0 
2851 
2852 

2854 
2^55 
2856 

285 ; 
2858 
2859 
2860 
2861 
2862 
2865 
28b4 
2865 
2866 

286 7 
2868 
2869 
2870 
2871 
28/2 
2875 
28 74 
28 75 
2876 
28 77 
28/8 
28 79 
2880 
2881 
•2882 
2885 
2884 
2885 
2886 
288 7 
2888 
288'* 
2890 
2891 
2892 
2891 
c'894 
2*'*S 
2896 



FORMAT STATEMENTS FOR PRINTING OUT OTHER INFORMATION. 



DBMS 

DBM12 

DBM15 

DBM18 

DBM19 

DBM20 

0BM21 

DBM22 

DBM25 

DBM25 

DBM26 

DBM27 

DBM28A 

0BM28B 

D8M29 

DBM32 

DBM101 

DBM104 

DBM105 

DBM107 

DBM108 

DBM109 

DBMI10 

DBMlll 

DBM112 

DBM120 

0BM121 



upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 



(*asc 
(*asc 
(*asc 
(*asc 
(*asc 
(*asc 
C*asc 
(*asc 
C*asc 
(rfasc 
(*asc 
(*asc 
(*asc 
(*asc 
(*asc 
(*asc 
(*asc 
(*asc 
C*asc 
(*asc 
C*asc 
C*asc 
(*asc 
C*asc 
Ctfasc 
Oasc 
(*asc 



DROP UNIT MESSAGES 



DU MSG 
DU..RSN 



upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 



*N*A 
*N*A 
#N*A 
*N*A 
*N*A 
*N*A 
*N*A 
*N#A 
*N*A 
*N*A 
*N#A 
#N*A 
#N*A 
«N*A 
#N#A 
*N#A 
#N*A 
#N#A 
*N*A 
*N*JA 
#N*A 
*N*A 
#N#A 
*N*A 
#N*A 
*N*A 
*N*A 



i z 
i z 
i Z 
i Z 

! z 

i Z 

! r 



SYSTEM MESSAGES (PRINTF) 



Drop unit #D2' ), 

PROC^RETPKT: Conn ID *06*A received') 

Mult i -drive test' ), 

FATAL ERROR: RETPKT not available'), 

FSET„UPARt Can''t find disk #D3*A In 



CST *Dl 



) 



Bad conn ID *06*A received from *06 

Message type tf02*A received in MSCP pocket'), 

SEQUEN: RETPKT not available'), 

Error in SET..CTLR. CHAR' ) , 

Ctlr timeout • *D3*A. seconds'), 

Error in UNIT_INIT' ), 

UNIT..INIT: RF.TPKT has bad ENDCODE'), 

Unit size (Lo) - *D5*A,' ), 

Unit size CHi ) - #D5#A, ' ), 

ACCESS: RETPKT has bad ENDCODE*), 

QI0_UNIT ; CST *D1*A no unit selected*), 

Unit is: 406' ), 

Removable disk Is selected'). 

Fixed disk is selected' ), 

Illegal function: *06'), 

Command rtf *06*A/*06#A (Oct) not sent by Host*), 

Unknown Error Log format ^OMA received' ), 

Error-Log save area full' ), 

Op-code *03*A, End-code *05*A for ref * *06*A'*06*A (8)' ) 

Cmd-bc *06*A/*06*A Rsp-bc *06*A/*06*A for *06*A/*06#A (8) 

Response already received for cmd #06#A '*06*A (8)' ), 

Failure to send command after *06*A/*06*A CSV). 



(*asc iz' 

C 

(*asc i z' 

(*asc iz' 

( *asc i z ' 

(*asc i z ' 

(rfasc 

Oasc 

(*asc 

(*asc 

(*asc 

(*asc 

(*asc 



*Ni*AUNITrfD2*A DROPPED 



' ). 



•AUSER COMMANDS* ), 

^CONFIGURATION ERR0R*N' ). 

KAINIT ERR0R*N' ), 

*ATRANSFER LIMIT REACHED*N'), 

*AERR0R LIMIT REACHED*N' ). 

HAL'NRECOVERABLE DRIVE ERR0R*N" >, 

^UNRECOVERABLE CONTROLLER ERR0N*N*). 

*AFAILED TO COME 0NLINE#N'). 

*AFAILED TO ACCESS EITHER t- IRS! OR LAST TRACK DURING IN1T*N*) 

fiAOISK WRITE PROTECTED^' ). 

*AC0MMAND TIME UUT*N' )) : vector (. U ] , 



MSG.01 » upl it <*asciz'*N*APOUER DtlAr 

M5G..02 * upl it Hasc i/' *N* AFUNCTIONAL U 

MSG. 03 ' gpiit C^asciz'^N^NiAEXERCISER STARTED*^ ) 



WAITING' ) 
SI SIARIM) 



3 



7RQAM1 
VOL 6 



289/ 
2898 

2900 
2901 
2902 
290? 
2904 

29or» 

290b 
2907 
2908 
2909 
2910 
29U 
2912 
291? 
2914 
291^ 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
292S 
2926 
2927 
2928 
2929 
2950 
2951 
2932 
2935 
2934 
29 55 
2956 
2937 
2958 
2939 
2940 
294 1 
2942 
294 3 
2944 
294* j 
2946 
294 / 
294 H 
2949 



RO'RX EXERCISER 
GLOBAL. TEXT SECTION 

! REPORT MESSAGES (PRINT: 



RPT1 
RPT2 
RPT3 
RPT4 

RPT5 
RPT6 
RPT7 

RPT8 
RPT9 
RPT10 
RPT11 



upl i 

upl 

upl 

upl 

upl 

upl 

upl 

upl 

upl 

up) 

upl i 



(*asc I z 
( rfasc i z 
(*asc iz 
( *asc i z 
(*asc Iz 
(<asc Iz 
(*asc \z 



11 -Apr- 1964 11:5b :01 
ll-Apr-19b4 11:45:02 



*N*Ni<AUNT DSK*S8*A# OK o BYTES 4> Of 
*A --HARD ERRORS-- -SOFT ERRORS--'), 

*N*A * TYPE READS READ WRITES 



VAX li flliss- 1ft V4.C-579 

DISK $ USER2 : [ POWERS ] /RQADO . BL 1 ; 6 



SEU 00 55 
Page 5S 
'31) 



ft 



). 



*A SEK DAT DRV HST 5EK DAT DRV HST') 

*N*A - - - - 

*A - - - - - - - — - 

*N*D2#D4*S2*T' ), 
(*asc\z' *D4*Z5*03*l\ t *Z3*(K t */l' ), 
( rfasc i z ' *D4#D4*D4#D4*D4*D4#D4tf D4 
(Kasdz'^NrfA . . CN1R 

(*asctz'*A . ,*D4*A 



WRITTEN' ) 



). 



>D4*A 



GENERAL ERROR MESSAGES 



LG5 
EGS 



SYSTEM FATAL (ERRSF) 

.01 ■ upl it Oasciz' TOO 
.02 - upl it CKasciz'NOT 



MANY UNITS' ), 
ENOUGH FREE MEMORY 



FOR ALLOCATING READ/WRITE BUFFERS' ). 



ORlVt FATAL (ERRDF) 



EGD 10 
EGD.ll 
EGD _ 12 
EGD 13 
EGD 14 
EGD. 15 
EGD 16 
PGD.17 
EGD 18 
EGD_19 
EGD_19 
EGD 20 
EGD 21 
EGD 22 
EGD 23 
EGD 24 



upl 
upl 
upl 
upl 
uol 
upl 
upl 
upl 
v»pl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 



Crfasc 
(*asc 

(rfasc 
(*asc 
(*asc 
(*asc 

(#asc 

(«B9C 

C#asc 
(#asc 

(#asc 
(*o»c 
(*asc 
f^asc 
(*asc 
Crfasc 



/'REGISTER EXISTENCE TEST FAILED'), 

2' VECTOR TEST FAILED' ), 

z'BR LEVEL TEST FAILED'), 

2'INIT SEQUENCE FAILED' ), 

z 'FATAL CONTROLLER ERROR*), 

z'ONLINE FAILED' ). 

z'WRITE-PROTECT CONFLICT'), 

z' ACCESS FAILED' ), 

7'FATAL I/O ERROR' ). 

z'CONTROLLER TIMEOUT'), 

z'DISK TYPE UNKNOWN TO EXERCISER') 

z'FAILED TO SEND SET -CONTROLLER -CHARACTERISTICS COMMAND' \ 

z'SET-CONTROLLER-CHARACTERISTICS RESPONSE HAS BAD ENDCODE OR FLAGS IN ERROR"). 

2 'FAILED TO SEND ON LINE COMMAND'), 

2* ON-LINE RESPONSE HAS BAD ENDCODE' ). 

?' ON-LINE RESPONSE HAS UNKNOWN DEVICE ), 



HARD or SOFT (ERKHMI.) or ERRS0F1) 
EGH.30 - upl it Crfasciz' 1/0 REQUEST FAILED*), 
BASIC ERROR MESSAGES CPRINTB) 
SYSTEM TATAl ( F RRSf ) 

EBS_01 - uplit (*a<5c;.-'*AI10RE THAN *D2*A UNITS SPECIFIED'), 

DRIVE FATAL (ERRDF) 

EHU..10 - uplit (Hascij'Kfl* NO RESPONSE AT ADDRESS *06' >, 



\f< 



7RQAM1 
V01. 6 



2950 

2951 
2952 

2^53 

2*^54 

2955 
.7956 

2959 
2^60 
2961 

2962 

2963 

2964 
2965 
2966 
295 / 
2968 
2969 
29 70 
2971 
2972 
29/3 
29/4 
2975 
29 76 
29/7 
2978 
29/<* 
2980 
2981 
2982 
298 ? 
2984 
2985 
2986 

298 / 
2988 
2989 
2990 

299 1 
2992 
2995 
2994 
2995 
2996 
299 / 
2Q9fl 
29S9 
3000 

'■oo i 



RD/RX EXERCISER 
GLOBAL TEXT SECTION 



11 Apr 1984 

U-Apr-1984 



11:56:01 VAX-11 Bliss- 16 V4. 0-579 
11:45:02 DISK JUSER2: [POWERS ]ZRQAD0\BLlj6 



SEG 0036 
Page 56 
C 31 j 



EBD.12 - upltt (Kasciz'tfA* INCORRECT BR LEVEL FGn DRIVE *06'). 

EBD_13 ■ uplit (*asciz'*A* STEP #D1*A READ ERROR' ), 

EBD_14 =■ upltt (rfasciz'rfA* BAD SA CODE FROM DRIVE *06* ), 

EBD_18 - uplit (*asciz'*A+ DISKYD2*A WENT OFFLINE'), 

EBD.19 - uplit C*a9c)z'*A* DRIVE *06*A NOT PROCESSING COMMAND PACKET'.'. 

EBD..24 • uplit (*asciz'*A* DISK*D2*A WENT TO THE "AVAILABLE" STATE' ), 



HARD or SOFT (ERRHRD or ERRSOFT) 



EH 
EH 

H 

EH 
EH 
EH 
EH 
EH 

f:h 

EH 
EH 
EH 
EH 

i 





1 
. «- 

5 

4 

5 

6 

7 

8 

9 

10 
.12 
.13 



UPLIT 

UPLIT 

UPLIT 

UPLIT 

UPLIT 

UPLIT 

UPLIT 

UPLIT 

UPLIT 

UPLIT 

• UPLI 

' UPLI 

■■ UPLI 



CKASCIZ' - UNRECOGNIZED 

(KASCIZ' - UNRECOGNIZED 

(*ASCIZ' - UNRECOGNIZED 

(KASCIZ' - UK3EC0GNIZED 

(*ASCIZ' - UNRECOGNIZED 

C*ASCIZ' - UNRECOGNIZED 

(*ASCIZ' - MSCP STATUS CODE ERR'), 

(KASCIZ' - DUP STATUS CODE ERR'), 

CKASCIZ' - UNRECOGNIZED STATUS CODE 

(*ASCIZ» - LBN HOST COMPARE ERR'), 

T C*ASCIZ' - DBN HOST COMPARE ERR'), 

T (HASCI.7 1 - UNABLE TO LOAD DUP MEDIA'), 

T OASCIZ' ERR IN DUP PKT WHEN USING CTt.R LC PROG' 'j 



MFSSAGE TtPE' ), 
CONNECTION ID' ), 
RETURN MESSAGE' ) 
RETURN PACKET' ), 
CRN' ), 
OPCODE' ), 



). 



ERR 00 
ERR_COD 



upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 



t (*asc 
t ( 

t (*asc 
t (*asc 
t (*asc 
t (*esc 
t C*asc 
(*asc 
(*asc 
(«<asc 
C*ase 
( tfasc 
(#asc 
(*asc 
(»aac 
(liasc 



lz'*A* DISKKD2- ) 



z'*AINVALID 
z ' *ACOMMAND 



COMMAND' 
ABORTED' 



z'#AUNIT OFFLINE* ), 

z'*ATRANSITION TO AVAILABLE STATE* ), 

z'HAMEOIA FORMAT ERROR' ), 

z'#AWRITE-PROTECTED' ), 

z'*ADEVICE COMPARE ERROR' ), 

z'tfADATA ERROR' ), 

z'*AHOST B'JFFER ACCESS ERROR' ), 

z'*ACONTR0LLER ERROR), 

z'KADRIVE FRROR' ), 

z'*AMESSAGE FROM INTERNAL DIAGNOSTIC: 

z'*AHOST COMPARE ERROR ), 

z'rfACOMMAND TIMEOUT')) ; vector [14 1, 



ERROR LOG MESSAGE (ERRSOFT) 



I t G 
EL.U 



00 
FMT 



upl 
upl 
up 1 

upl 
upl 
upl 
upl 



I *asc iz 

( 

( *asc i 2 

(*asc i / 
(*asc iz 
(.*a«#c i 2 
I'tfsoc iz 



HAERROR LOG MESSAGE RECE IVED :*N* ) 



*A* 

*A* 
#A* 
*Ai 
*A* 



CONTROLLER ERROR*N' ). 

HOST MEMORY ACCESS ERRORrfN' 



DISKED.?* A 
DISK*D2«A 
PISKHD2KA 



DISK IRANSFER 
"MANDARD DI i; 
"SMALL DISK" 



ui 
in 
ill 
I'll 
til 
ill 
ill 

.7ZZ 

711 
III 
III 
III 
III 



FRROR*N* •), 
:ik INTf RCONNt CT ' \ RRORmN 
ERRORrfN' )) : vector [5] 



EXTENDED ERROR MESSAGES (PR1NTX) 



V 



ZRQAM1 
V0K6 



RO/RX EXERCISER 
GLOBAl TEXT SECTION 



11 -Apr- 1984 
11 -Apr -1964 



5005 
3004 
3005 
3006 
300 7 
3008 
3009 
^010 
3011 
30 12 
3013 
3014 
30 IS 
301h 
301? 
3018 
3019 
3020 

30.; i 

302c 1 
30,.? 3 
3024 
3025 

3026 

302/ 

3028 
3029 
3030 
3031 

3032 
3033 
303/1 
3035 
3036 

303 7 
3038 
3039 
3040 

304 1 

304 2 
3043 
3044 
3045 
5046 
304 ,' 
3048 

304 9 
3050 
305 1 
3052 

305 '■ 
3054 
3055 



11:56:01 VAX 11 Bliss-16 V4. 0-579 

1 1 : 45 : 02 DISK *USER2 ; [ POWERS ] ZRQADO . BL 1 j 6 



SEQ 00 3/ 



Page 3/ 
(31) 



EX SA 

EX .SC 

EX..SBO 

EX SB 

EX CMO 

EX.RD 

EX URT 

EX CMP 

EX.ONL 

EX ACC 

EX_OP 

EX BB 

EX..BB1 

EX^BBU 

EX LBN 

EX PBN 

EX„LBR 

EX.LBW 

EX.REN 

EX_CBC 

EX_CBR 

EX^CBW 

EX BC 

Ey .BD 

EX^BDR 

EX_BDW 

EX_RP 

EX.WRD 

EX TIM 



XX13 
XX23 
XX3^ 
XX33 
XX34 



upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 



UPLIT 
UPL IT 

UPLIT 
UPLIT 
UPLIT 



(#asc 
(#asc 
(#asc 
C#asc 
(#asc 
(#asc 
(#asc 
(#asc 
(#asc 
(#asc 
(#asc 
(#asc 
(#asc 
(#asc 
(*asc 
(#asc 
«asc 
CHasc 
(#asc 
(#asc 
(#asc 
C#a*c 
(*asc 
(#asc 
(#asc 
(#asc 
(*asc 
(#nsc 
C#asc 



SA: #06' ), 

STATUS CODE 



) 



#N#A* 

#N*A* 

i<04' ) ( 

#N#A* SUB CODE 

#N#A* COMMAND: 

*AREAD* ), 

#AWRITE' ), 

#A- COMPARE 

#AQNLINE' ) 

KAACCESS' ) 

#03' ), 

BAD 

1st 

BAD 

LBN 

PBN 

LBN 

LBN 



#02' ), 



' ) 
>. 



#N#A* 
#N#A* 
#N#A* 
#N#A* 
#N#A* 
#N#A* 
#N#A* 
#N#A* 
#N#A* 
#N#A* 
#N#A* 
#N#A* 
#N#A* 
#N#A* 
#N#A* 



BLOCK (Host replaceable): #D5#A. (OCT #06#A)'). 
BAD BLOCK (Host replaceable). #D5#A, (OCT #06#A)' ) 
BLOCK REPORTED (Replaced): #D#A. (OCT #06#AV), 
#D5#A. (OCT #06#A)< ), 
#D5#A, (OCT #06#A)' ), 
(READ) #D5#A. (OCT #06#A)'), 
(WRITE) #D5#A. (OCT #06#AV), 
REPLACEMENT BLOCK NO. #D5#A. (OCT #Ou#A)'), 
BYTE COUNT IN COMMANu: #D5#A.' ), 
BYTE COUNT IN READ COMMAND: #DS#A.'), 
BYTE COUNT IN WRITE COMMANO: #D5#A . • ) , 
ACTUAL OF BYTES TRANSFERRED: #D5#A.'), 



I/O 
I/O 
I/O 



BUFFER 
BUFFER 
BUFFER 



ADDRESS 
ADDRESS 
ADDRESS 



(32 bits): #06#A #06' ), 

FOR READ (3? bits): #06#A #06' 

FOR WRITE (32 bits): #Ob#A #06 



) 



#N#ACONTENTS OF COMMAND/RESPONSE PACKET SAVE AREA:#N* ) 

#A #06' ), 

#N#A* TIME: #Z2#A : #Z2#A HQURS#N'). 



#ASCIZ'#N#A * DISK ; #02'). 
#ASCIZ'*N#AD8N: #D5#A. (OCT #06#A)« ), 
#ASCIZ'#N#ABYTE NUMBER: #03'), 
#ASCIZ'#N#ARANDOM WRITTEN WORD :#B16* ), 
#ASCIZ'#N#ARANDOM READ WORD bin:#B16#A oct:*06') 



Mil 
Ull 
\2l? 
M2? 
VI 11 



CONFIGURATION ERROR MESSAGES (PRINfF) 

CER„01 * upl it (#asci/'#N#ADUPLICATE UNI1:#D2*A AT [P : #06' ) t 
CER_02 » uplit (#asciz'#N#AM0RE THAN #D1#A DIFFERENT IP ADDRESSES 

ERROR/EVENT SUB CODES (PRINTX) 



). 



5C_SDI 
SC CON 



upl 
upl 



SC..DUP * upl 



ONI 

5L SON 
SC UNK 

5C.V0L 
SC..IOP 



upl 
• upl 
5 upl 
» upl 
- upl 



t C#asciz'#ASPIN DOWN IGNORED*), 

t (#asciz'#ASTILi CONNECTED' ), 

t (#ascl2'#ADUPLICATE UNIT NUMBER'), 

t (#asci/*«AAl. READY ONLINE'), 

t (#asci*'#ASTILL ONtlNf), 

t (#asci;'#AUNIT UNKNOWN OR ONLINE TO ANOTHER CONTROlUR ) 

t (#asci.-'#ANO VOl UMb MOUNTED OR DRIVE DISABLE:) Hi SWITCH' 

t C#asci7'#AUNlT INOPERATIVE (RD51/52 write fault)'). 



m 3 



7RQAM1 
VOL 6 



3056 

305 / 

5058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
7.069 
30 70 
3071 
307;? 
3073 
3074 

30 75 
3076 
307 7 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
309 r > 
3096 
309 7 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 

3 1 O / 
3108 



RO/RX EXERCISER 
GLOBAL TEXT SECTION 



SC_DIS 
SC r ER 
SC_FE2 
SC..ISH 

sc :s2 

SC_DST 
SC„0S2 
SC..ECC 
SC_ECD 
SCJKT 
SC FUL 
SC 576 
SC_FCT 
SC_EC1 
SC EC2 
SC_EC3 
SC^EC4 
SC_EC5 
SC.EC6 
SC EC7 
SC_EC8 
SC.EC9 
SC_SWP 
SC^HWP 
SC.ODA 

SC^OOB 
SC NXM 
SC PAR 

SC..CTO 
SC SOS 
SC_EOC 
SC IDS 

SC .SRT 
SC SRI 
SC POE 
SC ROY 
SC_CLK 
SC RSP 
SCSUR 
SC PSP 



CONTROLLER GENERl 



ll-Apr-1984 
11 Ann. 1984 



11:56:01 VAX-11 Bliss-16 V4 . 0-579 

11 i 45:02 DISK IUSER2:[ POWERS }ZRQAD0.BL1;6 



SEQ 0038 
Page 38 
(31) 



- upl 


t (Kasci 


* upl 


t (*asci 


■upl 


t (*asci 


■ upl 


t (*asci 


"upl 


t Oasci 


* upl 


t (tfasci 


■ upl 


t C*asci 


* upl 


t f*asci 


- upl 


t (rfasci 


"upl 


t C*ascl 


* upl 


t (tfasc i 


■ upl 


t (rfascl 


* upl 


t (*ascl 


■ upl 


t (*asci 


* upl 


t C*asc 1 


■ upl 


t C*asci 


- upl 


t (*asci 


* upl 


t (tfasci 


■ upl 


t (*asci 


■ upl 


t C*asc! 


* upl 


t Crfasc i 


"Upl 


t (*ascf 


" upl 


t (*asci 


■ upl 


t (rfasci 


■ upl 


t (*asci 


=* upl 


t (tfasci 


* upl 


t (rfasci 


r upl 


t (*asci 


* upl 


t ( ¥asc i 


■ upl 


t (*ascl 


■ upl 


t (tfasci 


"Upl 


t C*asci 


■ upl 


t C*ascf 


* upl 


t (tfasci 


■upl 


t (rfasci 


" upl 


t (*ascj 


' upl 


t (*asc ! 


* upl 


t (*asc! 


" upl 


t C *asc i 


= upl 


t ( *asc i 



CNTR..ERR « 



upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 
upl 



z'KAUNIT DISABLED BY FIELD SERVICE OR INTERNAL DIAGNOSTICS 1 ), 
z'*A"F0RCED ERROR" DETECTED WHILE ACCESSING FCT OR RCT'), 
z'*ASECT0R HAD BEEN WRITTEN WITH "FORCED ERROR" MODIFIER'), 
z'*AFCT OR RCT UNREADABLE - INVALID SECTOR HEADER'), 
z'KAHEADER COMPARE ERROR (Valid header not found)'). 
z'*AFCT OR RCT UNREADABLE - DATA SYNC TIMEOUT' ), 
z'rfADATA SYNC NOT FOUND v'Data sync timeout)'), 
z'KAFCT OR RCT UNREADABLE - UNCORRECTABLE ECC ERROR' ) 4 
z' ^UNCORRECTABLE ECC ERROR'), 
z'*ARCT CORRUPTED 1 ), 
KANO REPLACEMENT BLOCK AVAILABLE (RCT full)'), 

*ADISK NOT FORMATTED WITH 512 BYTE SECTORS'), 

KADISK NOT FORMATTED OR FCT CORRUPTED'), 

*AONE SYMBOL ECC ERROR'), 



z 
z 
z 
z 
z 
z 
z 
z 
z 

z 

z 

z 

z 

z 

z 

z 

z 

z 

z'HASERIALIZER/DESERIALIZER OVERRUN OR UNDERRUN'), 

z'#A"ERROR DETECTION CODE" ERROR'), 

z'ltAINCONSISTENT INTERNAL DATA STRUCTURE'), 

Z'KADRIVE COMMAND TIMEOUT (No response or seek incomplete)'), 

z'KACONTROLLER DETECTED TRANSMISSION OR PROTOCOL ERROR'), 

z»*APOSITION ERROR (Mis-seek)'), 

z'*ALOST READ/WRITE READY DURING/BETWEEN TRANSFERS'). 

z'*ADRIVE CLOCK DROPOUT'). 

z'KALOST RECEIVER READY BETWEEN SECTORS'), 

z'*ADRIVE DETECTED ERROR'), 

z'*ACONTRQLLER DETECTED PULSE OR STATE PARITY ERROR'), 



*ATW0 SYMBOL ECC ERROR'), 

tfATHREE SYMBOL ECC ERROR'). 

*AFOUR SYMBOL ECC ERROR'), 

*AMVE SYMBOL ECC ERROR'), 

*ASIX SYMBOL ECC ERROR 1 ), 

KASEVEN SYMBOL ECC ERROR' ), 

tfAEIGHT SYMBOL ECC ERROR'). 

KACORRFCTABLE ERROR IN ECC FIELD' ), 

KAUNIT SOFTWARE WRITE PROTECTED'), 

rfAUNIT HARDWARE WRITE PROTECTED' ), 

#AODD TRANSFER ADDRESS'), 

*AODD BYTE COUNT' ). 

^ANON-EXISTENT HOST MEMORY'), 

*AHOST MEMORY PARITY ERROR'), 

#ACOMMAND TIMOUT OR RETRY LIMIT EXCEEDED' ) 



ERROR CODES 

( 

(rfasciz'KACONTROLLER TIMEOUT' ). 

(*asciz'*AENVELOPE/PACKET READ ERROR (Parity or timeout)' ) , 
(*asciz'*AENVELOPE/PACKET WRITE ERROR (Parity or timeout)'), 
(*asciz'*ACONTROLLER ROM AND RAM PARITY ERROR 
(*asciz'*ACONTROLLER RAM PARITY ERROR'), 
(*asciz'*ACONTROLLER ROM PARITY ERROR'), 
Crfasciz' FARING READ ERROR (Parity or timeout) 
(*asciz**ARING WRITE ERROR (Parity or timeout) 
C*asciz' INTERRUPT MASTER FAILURE'), 



) 



) 



) 



7RUAM1 
V01, 6 



3109 
5110 
3111 
31 lc? 

3113 
3114 

3115 
3110 
3117 
31 18 
3119 
3120 
3121 
3122 
3123 
3124 
3 IPS 
3126 
3127 
?128 
3129 
3130 
3131 
313" 
3135 
3130 
313S 
3i3<- 
313/ 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
314b 
3146 
3147 



10/RX EXERCISER 
GLOBAL TEXT SECTION 

upljt (Hasc 

Upl i t (HaSC 

Uplit (HaSC 

upl 1 t (Hasc 

upl 1 1 (Hasc 

upljt (Hasc 

upl i t (Hasc 

upl It (Hasc 

uplit (Hasc 

upl i t (Hasc 

uplit (Hasc 

uplit (Hasc 

uplit (Hasc 

uplit (Hasc 



11 
11 



N3 

Apr- 1984 
Apr-1984 



11:56:01 VAX-11 Bliss-16 V4. 0-579 
11:45:02 DISK $USER2: [POWERS )ZRQAD0,BL1 ; 6 



SEQ 0039 
Page 39 



ol) 



z'HAHOST ACCESS TIMEOUT (Higher level protocol dependent)'). 

z'HACREDIT LIMIT EXCELJED'',, 

z'HAQ-BUS MASTER ERROR'), 

z'HACONTROLLER FATAL ERROR'), 

z'HAINSTRUCTION LOOP TIMEOUT' ), 

z'HAILLEGAL VIRTUAL CIRCUIT ID'), 

z'HAINTERRUPT VECTOR ILLEGAL'), 

z'HAMAINTENANCE READ/WRITE INVALID REGION IDENTIFIER'), 

z'HAMAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER' ) , 

z'HACONTROLLER RAM ERROR CNon parity)'), 

z'HAINIT SEQUENCE ERROR'), 

z'HAHIGHER LEVEL PROTOCOL INCOMPATIBILITY ERROR'), 

z'HAPURGE/POLL HARDWARE FAILURE'), 

z'HAMAPPING REGISTER READ FAILURE (Parity or timeout)')) 



vector (23) 



RD/RX CONTROLLER DEPENDENT ERRORS CODE: 



RDRX ERR 



upl i 

upl i 

upl t 
upl i 

upl i 

Upl i 
Upl i 
Upl i 



( 

(Hasc iz 
(Hasc Iz 
(Hascjz 
(Hasc i z 
(Hasc i z 
(Hasc iz 
(Hasc Iz 



HATll CPU FAILURE' ), 
HANON-PARITY RAM ERROR' ) 
HASTATE MACHINE FAILURE 

MACHINE 

MACHINE 

MACHINE 

MACHINE 



HASTATE 
HASTATE 

HASTATE 
HASTATE 



FAILURE 
FAILURE 
FAILURE 
FAILURE 



Til ADDRESS REGISTER' ). 

Q-BUS ADDRESS REGISTER* ), 
CRC REGISTER' ). 

SERIAlIZER/DESERIALIZER \EGr : TER* ) 
WRONG HARDWARE VERSION' )) : vector 



7] 



PRINTOUTS THAT FAKE THE DRS ERROR MESSAGES 



Df- _MSG * uplit (HascIz'HNHAZRQA DEV FTL HZ5HA ON 

HRD..MSG - uplit CHasciz'tNHAZRQA HRD ERR HZ5HA ON 

SFT..MSG - uplit (Hasciz'HNHA/RQA SF T ERR H75HA ON 

HRD_SUB * uplit (HascIz'HNHAI/O REQUEST FAILEDHN' ) 



UNIT 
UNIT 
UNIT 



iZ2HA 
HZ2HA 
HZ2HA 



TST 
TST 

rsi 



001 
001 
001 



SUB 
SUB 
SUB 



000 
000 
000 



PC 
PC 
PC 



H06' ;, 

H06' ), 
H06HN* ), 



MISCELLANEOUS 



SPACE4 
CRLF 
DASH 
ASTERISK 



- upl i t 

- upl i t 
3 upl i t 
a Uplit 



( Hasc iz 

(Hose t z 
( Hose i z 
(Hasc iz 



HS4' ), 
HN' ) 

^t\ - 
*tU • )j 



v\ 



VOl.b 



3148 
3l4 l * 
3 1 SO 

3im 

31 V 

3ir»* 

31S4 



3iSh 
51S* 
31S8 
3lV-» 
3U-0 
MM 
31tV 
3lt^ 
3^4 
316^ 
M^ 
3li> • 
31*8 

3i?0 



31SS 1 



RD RX EXERCISER 

M't AW T HARDWARE P TAHl I 

*nbttl 'DEFAULT HARDWARE P-TABIE 



1 1 
il 



Apr VMM 

Apr-19H4 



11 {'**>: 01 VAX il Hli«i« 1». V4 

11 ! 4S . (V 1 SK I USE R,' ! 1 POWt RS 



l/RQADO.Bl 1 (0 



SI.Q 0040 

PaQe 40 

f 52 ) 



THf DEFAULT HARDWARE P TABLE CONTAINS DEFAULT VAlUfS 0* 
THf TEST DF VICE PARAMETERS. THE STRUCTURE Of THIS TAHl 
Is IDENTICAL TO THt STRUCTURE OF THE HARDWARE P TABUS, 
AND IS USED AS A "TEMPLATE" KOR BUILDING THE P TABLES. 



HGNHW (DEPTBl. )j 



global 

HWPT 
HWPT 
HWPT 
HWPT 



IP ADDR : Hord initial (INIT IP ADPH ) , 
VECTOR : word Initial (INIT INTR VECT), 
.BRJEVEL : word Initial (INIT BR LEVEL), 
DISK ; WORD INITIAl ( *o* 100340' ) . 



HWPT SO LBN : word Initial 

HWPTS1.LBN : word Initial 

HWPTEO LBN ; word Initial 

hwPTEI.LBN t word Initial 



(0), 

(OT, 

(*o 177777' 

(0)l 



IP ADDR* S*i 
VECTOR ADORtS'i 
BR IEVFI 
PROTECT, WHOl \ DISK, L'UP 
OiJP WT, DK /// 
START INCi TRACK 10 /// 
STARTING TRACK H\ /// 
ENDING TRAO< I III 
tNOINb TRACK HI Ul 



WT, RUN DUP III 



ENDMW; 



QA 



V01.fr 

5i n 

M-V 
5175 
51 J 4 
51. 'S 
51 V 

M v 
?ra 

51.^ 

5180 
5181 
518^ 
Mtt* 
5184 
518 r > 
TAT ION "> 
5l8r 
518* 
5188 
318* 
5190 
51*1 
5 TV 

51*4 
51*', 

51% 



RO R\ tXERClSER 
SO* 1WARE P TrtHt.l 

*sbttl 'SOf TWARE P TABLE 



11 
11 



Apr 1984 
Apr -1*84 



ll: r j*uOi 
Ui4Si02 



VAX 11 HI !•»» \t, V4.0 S/* 

DISK lUStR.*? J { POWERS }/RQADO,BL 1 |6 



seci oo4i 

Pag* 4 1 



THE SOFTWARE TABl F CONTAINS VARIOUS DATA USED BY THE 
PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
SET LP AT ASSEMBLE TIME ANO MA'r BE VARIED Bt THE OPERATOR 

AT RUN TIME, 



BGNSW I SEP TBI )j 



global 

5WP ERROR 
SWP XFFR 
SWP FLAGS 

SUP DPAT 
SWP RAT • 
SWP TIME 
DUPROUND 



: ..52£ d T.!.?i$i. al -i? c )% * HARD ERROR I IMIT FOR DROPPING UNIT 

WORD INITIAL lO\ JXEER LIMIT. DEFAU T - QUICK PASS • /<•/ 

word .n.t.ai (SWf RDM or SWF CRC or SWF ,HWC or SWF .ft R or SW HRO or SWF Bl.K ) , f K AGS* (SEE OUC'JMEN 



word initial (0) , 
word Jn!t!«l (,**). 
word initial (0 ), 
WORD INITIAL ( 11 ), 



•NO OF 1/Qq PER DUN TEST 



1 DATA PATTERN NUMBER 

1 RDSl/5c' OPERATION RATIO 

START TIME ( HHMM ) 
III 



THE NEXT TWO LOCATIONS SHOULD BF TOGETHER 



SWP UCNT 
SWP^UDPAT 



word initial (MAX UOP CNT), 
; vector IMAX.UQP^CNT/wordh 



! USEH DA I A PATTERN COUNT 
J USER OATA PATTERN 



LNDSWj 



y\ 



/ROAM i 
VOl, 6 


RD/RX EXERCISER 
PROTECTION TABU: 




11 Apr- 
il Apr • 


i 31^.' 1 

; 31^» : 
; 3?00 1 

3 An i 

; 3AV ] 
: 3A>5 ] 
; 3.:04 l 

V-Wi 1 


L «sbttl 'PROTECTION TABLE 

L ! * 

I ! THIS TABU. IS USED B> THE 

I ! TO PUOTECT THE LOAD MEDIA 


RUNTIME 


SERVICES 


BCiNPROT (0, 


•1. 6"»i 






; 3?0t> 1 

i 3?0 ■* 1 
j ??0t* 1 
; 3?0* ] 
; .VIO ] 
j 3? 1 i ! 


L J 1ST ARG « 

I !?ND ARG - 

•3RD ARG * 

::ndprotj 


OEf SET INTO 
OFFSET INTO 
OFFSET INTO 


P- TABLE 
P-TABU 
P- TABLE 


F'OR CSR ADDRESS 
FOR MASSBUS ADDRESS 
FOR DRIVE NUMBER 


; 5J13 ( 


) eludO'i> 









1984 
19H4 



llifi^iOl 
11i45i02 



VAX 1! BUas 16 V4.0 S ? l ) 

1 Sl< IU5ER2 i [ POWERS ] ZRQADO , BL 1 ; 6 



>EQ 004? 
Pog« 4? 
(34) 



ooooco 
oooooo 

00000 5 
01)0004 
000005 

000006 

oooco * 

0000 10 
000010 
000011 
0000 I? 
0OO014 
000016 
000020 
0000?? 
O00C?4 
OOCOPfe 
O00030 
00005c? 
000034 
000036 
000040 
00004? 
000044 
O 0004 6 
OOOOSO 
OOOOSO 
000 OM 
OOOOS? 



13? 
101 
000 
000 

ooo 

000 

104 
060 
OOOOOOG 

V 7 ." 
OOOOOOG 
OOOOOOG 
0?? 1 H> 
0????? 
OOOOOOG 
000000 
000000 

00000 1 
000000 
000 1?4" 
000000 
000000 
000000 

00 '. 
00 1 

OOOQOO 



1?? 



1?1 





.TITLE 


ZRQAMl RU/RX EXERCISER 




.IDENT 


/V01.6/ 




.ENABL 


AMA 




.PSECT 


ICOOEt. RO 


L*NAME; 


i .ASCII 


//RQ/ 




.ASCII 


/A/ 




.BiTF. 







.BYTE 







.BYTE 







.BYTE 





LlREV:: 








.ASCII 


/'D/ 




.ASCII 


/o/ 


L IUNIT: 


: . WORD 


T$PTHV 


LITIML: 


: .WORD 


mi i 


L.IHPCP: 


t .WORD 


l IHARD 


L $SPCP: 


: .WORD 


L<S(H T 


LIHPTPt 


: .WORD 


L $HU 


LISPTPj 


: . WORD 


LISW 


LILAOP: 


: .WORD 


L ll.AST 


L ISTA: : 


.WORO 





L$CO: : 


.WORD 





LIDTYP: 


: . WORD 


1 


t IAPT: : 


.WORD 





I iDTP; : 


.WORD 


I JD1SPATCM 


LtPRIO; 


: .WORD 


o 


L IENVI : 


: .WORD 





L.U.XP1: 


: .WORD 





I $MR1-.V; 








' .Bt Tt 


f 




.Br U 


% 


L*tKu 


• WUHU 






I f\ 



ZRUrtiii 

V01.6 

000054 
00005* 
OOOObO 
00006c} 
000064 
0000t>6 
000070 

00007,? 

0000 74 
00007b 
000100 

000102 
000104 
000106 
000110 

0001 It 1 
000114 
000116 
000120 
00012c 1 
000124 

000 126 
000130 

oooi?,: 

000134 

000136 
00014 1 
000144 
00014 7 
000 IV 
000155 
000160 
00016*? 
000165 
0001 /O 
0001 ih 
000174 

0001 /,' 
00020? 
000205 
000210 
000 212 
000? 15 
000? 20 
00022 3 
000? 26 

0002 31 
000? 34 
000? 3.* 
000?4? 
000.' 45 
000250 



RD'RX EXERCISER 
PROTbCTXON TABLE 



000000 
000000 

oooooog 

OOOOOOG 

OOOOOO 

OOOOOO 

OOOOOOG 

OOOOOOG 

OOOOOO 

OOOOOOG 

104035 

000126' 

OOOOOOG 

OOOOOOG. 

OOOOOOG 

022504' 

OOOOOO 

OOOOOO 

OOOOOO 

000001 

OOOOOOG 



111 

141 
162 
163 
126 
164 
OOO 
102 
154 
145 
000 
104 
166 
156 
14? 
000 
124 
164 
156 
162 
14 3 
164 
145 
141 
141 
14*-- 
liO 



120 
144 
145 
000 
145 
157 
000 
12? 
145 
154 

162 

145 
165 
145 
000 
145 
040 
164 
145 
165 
15/ 
162 
16? 
040 
040 
lUi 



040 
144 
163 
000 
143 
162 

040 
166 
000 

151 

040 
155 
162 

163 

145 
151 
040 
163 
155 
040 
145 
15/ 
1<>4 

163 







11 Apr 1SH4 U 


56:01 






11 Apr-19ti4 It 


.45:02 




. WORD 







I $SPC: 


. WORD 







L.iOtVP 


: .WORD 


LtDVTfP 




LIRtPP 


z .WORD 


LIRPT 




L.SEXP4 


: . WORD 







L$EXP5 


t . WORD 







L$AUT: 


.WORD 


L$AU 




LIOUT; 


.WORD 


LJDU 




I.ILUN: 


.WORD 







t $DESP 


t .WORD 


LiDFSC 




L ILOMO 


: .WORD 


73743 




LIETP: 


.WORD 


LIERRTBL 




LilCP; 


.WORD 


LUNIT 




LJCCP: 


.WORD 


LJClEAN 




LiACP: 


.WORD 


L.tAUTO 




LiPRT: 


.WORD 


I IPROT 




LITEST 


; . WORD 







LIOLt: 


.WORD 







LIHIME 


: .WORD 







DIPCNT 


: . WORD 


1 




LSDISPATCH: : 








.WORD 


Tl 




ERRTYP 


: .BLKW 


1 




ERRN8A 


: .BLKW 


1 




ERRMSG 


: .Bl.KW 


J 




F.RRBLK 


} .BLKW 


1 




P. AAA: 


.ASCII 


/IP / 






.ASCII 


/odd/ 






.ASCII 


/res/ 






.ASCII 


/s/<00><00> 




P . AAB : 


.ASCII 


/Vcc/ 






.ASCII 


/tor/ 






.ASCII 


<00><00> 




P.AAC: 


.ASCII 


/BR / 






.ASCII 


/lev/ 






.ASCII 


/el/<00> 






.ASCII 


<00> 




P.AAOj 


.ASCII 


/Or! / 






.ASCII 


/ve / 






.ASCII 


/n^jm/ 






.ASCII 


/ber/ 






.ASCII 


*00>«00> 




P.AAti 


.ASCII 


/Tes- 






.ASCI I 


/t e' 






.ASCII 


/'n t i / 






.ASCII 


/re / 






.ASCII 


'CUS/ 






..ASCII 


/tem ' 






.ASCII 


/er 






. ASC I 1 


/»re •' 






.ASCII 


/a o/ 






.ASCII 


/ f t / 






.ASiCIX 


/hi a/ 





VAX 11 Bl Is* 1', V4.0S/'J 

DISK *UbER2s[ POWERS URQAD0.6Lli6 



SEQ 004 3 
Page 4 3 
(34; 



4 



-TRQAMi 




RD/RX tXL.lCISkiR 


VOL 6 




PROTECTION 


TABLE' 


000253 


040 


144 


151 


00025h 


163 


153 


000 


0002b 1 


000 






COO.? 


114 


157 


16 7 


000265 


145 


162 


040 


000.? 70 


IS? 


143 


164 


0002 73 


141 


154 


040 


000? 7b 


lb? 


15? 


16? 


000301 


144 


04 


15? 


000304 


146 


040 


142 


ooo3o; 


145 


14 7 


151 


000312 


ISb 


156 


151 


0003 IS 


ISb 


14? 


040 


000320 


114 


102 


lib 


000323 


040 


141 


144 


00032b 


144 


16? 


145 


000331 


163 


163 


000 


000334 


110 


151 


14 7 


00033? 


150 


145 


162 


000342 


040 


15? 


143 


0C0345 


164 


141 


154 


000 3 SO 


040 


16? 


157 


QOOSb** 


lb2 


144 


040 


000356 


is? 


146 


040 


0003b 1 


142 


145 


14? 


00036a 


151 


156 


156 


00036? 


151 


156 


14? 


00037;' 


040 


114 


102 


0003 75 


lib 


040 


141 


000400 


144 


144 


162 


00040} 


145 


163 


163 


000406 


000 


000 




000410 


114 


15? 


16 7 


0004 1^ 


145 


162 


040 


0004]. b 


15? 


143 


164 


0004 £1 


141 


154 


040 


000424 


16? 


157 


16? 


000 V 


144 


040 


15? 


0004 32 


146 


040 


145 


0004 35 


:5b 


144 


151 


000440 


15b 


14 7 


040 


00044 5 


114 


102 


lib 


00044* 


040 


141 


144 


0004b 1 


144 


162 


145 


000454 


16 3 


163 


000 


0004 5? 


000 






000460 


110 


151 


14? 


00046 5 


150 


145 


162 


00046b 


040 


15? 


143 


0004 ? 1 


164 


141 


154 


0004 ?4 


040 


16 7 


I 5 ? 


0004 • ' 


162 


144 


04 


0001*02 


157 


146 


040 



11 -Apr- 1984 
ll-Apr-19H4 



11:56:01 VAX -11 HI i so • 16 V4 . -579 
11:45:02 DISK SUSER2* [POWERS kRQADO.BLlj 6 



SE.Q 0044 
Page 44 
(34) 



P.AAK 



P.AAG: 



P.AAH: 



P.AAli 



.ASCII 

.Ascir 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
. ASC 1 1 
.ASCII 
.ASCI I 
.ASCII 
.ASCII 
. ASC 1 1 
.ASCII 
. A*,C I I 
.ASCII 
.A_,Cli 
.ASCII 



/ dt/ 
/sk/<00> 
<00> 
/Low/ 

/er / 

/oct/ 
/al / 

/wor/ 
/d o/ 
/F b/ 
/eg;/ 
/nn ! / 
/no / 
/LBN/ 
/ ad/ 
/dre/ 
/ss/<00> 
/Hig/ 
/her/ 
/ oc/ 
/tal/ 
/ wo/ 
/rd / 
/of / 
/beg/ 
/inn/ 
/ 1 ng/ 
/ 1.8/ 
/N a/ 
/ddr/ 
/'ess/ 
<00>«00> 
/Low/ 
/er / 
/oct/ 
t al / 
/wor/ 
/d o 
/f e/ 
/ndi / 
/ng • 

/\ Sn/ 

/ t*0/ 

/dre' 



«00* 



*00* 
< h! g/ 
/her/ 
/ oc ' 
/ 1 a 1 
/ no' 
/rd / 
/gf / 



VA 



7R13AM1 
V01.6 

000505 

COOS 10 

000513 

0005,21 

000524 

ouov : 
000530 

OOC53? 
000S36 
00054 1 
000544 
00054 ; 
000552 
000555 
000560 
000565 
000566 
0005 71 
0005/4 

0005 7V 
00060 t ? 
000605 
000610 
000613 
000616 
0006c 1 1 
0006;? 4 

0006? / 

0006 32 
000635 
000640 
00064 3 
00064b 
000651 
U00654 
00065 7 
000662 
000665 
000670 
0006 7 5 
0006 76 
000/01 
00070.? 
000 705 
000/ 10 

i-lH) f\ '» 

000 71'. 
000 7 ?] 
000724 
000 I? 7 

ooo/3;' 

000 735 



RO/RX EXERCISER 
PROTECTION TABLE 



145 
151 
040 
116 
144 
145 
000 
12/ 
164 
157 
143 
164 
145 
144 
141 

16;? 

040 
040 
151 
144 
153 
05,' 
127 
116 
10 7 
040 
U>3 
115 
040 
124 
101 
101 
101 
102 
117 
122 
111 
105 
040 
056 
117 
111 
000 
101 
157 
165 
104 
040 
145 
151 
16? 
1/7 
164 



156 
156 
114 
040 
144 
163 

16? 

145 
156 

165 
157 
162 
141 
040 
145 
157 
164 
163 
151 
000 
052 
101 
HI 
040 
103 
124 
105 
104 
101 

122 

040 
131 
105 
126 
127 
124 
116 
056 
040 
116 
12? 

154 
04 
156 
125 
145 
162 
165 
000 
16? 
145 



144 
14 7 
102 
141 
162 
163 

1M 

040 
040 
163 
155 
040 
164 
141 
141 
156 
150 
040 
163 
000 
040 
122 
116 
055 
125 
117 
122 
101 
040 
105 
115 
040 
040 
105 
122 
124 
041 
056 
103 
106 
115 

163 
162 

040 
120 
1 70 
143 
145 
000 
151 
040 



P.AAJ: 



P.AAK: 



P . AAL 



P.AAMs 





11 Apr- 1984 11:56:01 




ll-Apr-19b4 11:45:02 


.ASCII 


/end/ 


.ASCII 


/ 1 ng/ 


.ASCII 


/ LB/ 


.ASCII 


/N a/ 


.ASCII 


/cJdr/ 


.ASCII 


/ess/ 


.ASCII 


<00> 


.ASCII 


/Urt/ 


.ASCII 


/te / 


.ASCII 


/on / 


.ASCII 


/<rus/ 


.ASCII 


/torn/ 


.ASCII 


/er / 


.ASCII 


/oat/ 


.ASCII 


/a a/ 


.ASCII 


/rea/ 


.ASCII 


/ on/ 


.ASCII 


/ th/ 


.ASCII 


/is / 


.ASCII 


/dis/ 


.ASCII 


/k/<00><00> 


.ASCII 


/*♦ / 


.ASCII 


/WAR/ 


.ASCII 


/NIN/ 


.ASCII 


/t; / 


.ASCII 


/ cu/ 


.ASCII 


/STO/ 


.ASCII 


/MF.R/ 


.ASCII 


/ DA/ 


.ASCII 


/TA / 


.ASCII 


/ARE/ 


.ASCII 


/A M/ 


.ASCII 


/AY / 


.ASCII 


/be / 


.ASCII 


/OVL/ 


.ASCII 


/RWR/ 


.ASCII 


/ITT/ 


.ASCII 


/EN!/ 


.ASCII 


/ . . / 


.ASCII 


/. c/ 


.ASCII 


/ON*-' / 


.ASCII 


/IRM/ 


.ASCII 


<00> 


. A5C 1 1 


/A is/ 


.ASCII 


/o r/ 


.ASCII 


/un / 


.ASCII 


/[")UP/ 


.ASCII 


/ cv/ 


.ASCII 


/ere/ 


.ASCII 


/ I *;e -" 


.ASCII 


/ r / • 00 >< 00 * 


.ASCII 


/Wr ; / 


.ASCII 


/te / 



VAX-11 Bliss 16 V4. 0-579 

DISK JUSER2? [POWERS ]2RQAD0.BLXj 6 



SEQ 0045 
Page 4 5 
C34) 



H4 



JRQAN1 




RD/RX tXfcRClSKH 


VOL 6 




PROTeCTION 


TABU 


000 740 


15 7 


156 


040 


000/45 


144 


151 


141 


00074b 


14/ 


156 


157 


OOO'Sl 


163 


164 


151 


000754 


14 3 


040 


141 


00075? 


16? 


145 


141 


00076? 


000 


000 




000764 


110 


141 


16? 


000767 


144 


040 


105 


0007 7? 


16? 


16? 


157 


000/75 


lb? 


040 


154 


001000 


151 


155 


151 


001003 


164 


000 


000 


00100b 


1?4 


16? 


141 


001011 


156 


163 


146 


001014 


145 


16? 


040 


001017 


154 


151 


155 


0010?? 


151 


164 


040 


0010?5 


151 


156 


040 


001030 


155 


145 


14 7 


001033 


141 


14? 


1/1 


001036 


164 


145 


163 


001041 


040 


050 


060 


U01044 


040 


14b 


15/ 


00104 7 


16? 


040 


04? 


00105? 


1?1 


165 


151 


001055 


14 3 


153 


040 


001060 


160 


141 


163 


001063 


163 


04? 


051 


001066 


000 


000 




0010 70 


1?? 


141 


156 


0010 73 


144 


157 


155 


0010 76 


040 


163 


145 


001101 


145 


153 


040 


001104 


155 


157 


144 


00110 7 


145 


000 


000 


00111? 


1?? 


145 


141 


001115 


144 


055 


14 3 


00U20 


15/ 


155 


160 


oon?s 


141 


16? 


145 


0011P6 


163 


040 


160 


oomi 


145 


16? 


146 


001134 


157 


16? 


155 


001137 


145 


144 


040 


00114? 


14 1 


lb4 


040 


001 14 S 


164 


150 


145 


001 150 


040 


103 


15/ 


001155 


156 


164 


16? 


00 1156 


15/ 


154 


154 


OOllbl 


145 


16? 


000 


flOU64 


I?/ 


16? 


I'll 


0011b.' 


U,4 


145 


055 


00117? 


143 


157 


155 



11 Apr 1984 11:56:01 
ll-Apr-19tt4 11;45:02 



VAX -11 Bliss- 16 V4.0 5/9 

DISK *U5ER2 : [ POWERS ] ZRQADO , BL 1 ; 6 



SLU 0046 
Page 46 
(34) 



P.AAN: 



P.AAO: 



P.AAPj 



P.AAQ: 



P.AARj 



.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.AbCl 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
»A^CI 



/qc\ / 

/die/ 

/qho/ 

/sti/ 

/c a/ 

/re«/ 

<00><00> 

/Hap/ 

/d EV 

/rro/ 

/p 1/ 

/ i mi / 

/t/<00><00> 

/Tra/ 

/nsf/ 

/er / 

/ 1 i m/ 

/; t / 

/in / 

/meg/ 

/oby/ 

/tcs/ 

/ (0/ 

/ Fo/ 

/r "/ 

/Qui/ 

/ck / 

/pas/ 

/*")/ 

<00><00> 

/Ran/ 

/dom/ 

/ se/ 

/ek / 

/mod/ 

/e/<00><00> 

/Rea/ 

/d c/ 

/'omp/ 

/are/ 

/s p/ 
/erf / 
/ormv 
/ed / 
/at / 
/the/ 
/ Co/ 
/ntr/ 
/'oil' 
/er/<00> 
/Wr! / 
/te / 
/com/ 



4 



/RUAM1 




RO/RX EXERCISER 


V01. 6 




PROTECTION 


TABl.F 


001 i:s 


160 


141 


162 


001200 


14S 


163 


040 


001203 


160 


145 


162 


001206 


146 


157 


162 


001211 


155 


145 


144 


001214 


040 


141 


164 


oo i, 7 : . ; 


040 


164 


150 


001222 


145 


040 


103 


001225 


is; 


156 


164 


001."? 30 


162 


157 


154 


001235 


154 


145 


162 


001236 


000 


000 




001240 


103 


150 


145 


00124 3 


143 


153 


040 


00124t> 


141 


154 


154 


001251 


040 


127 


162 


00134 


151 


164 


145 


00125 * 


163 


040 


141 


001262 


164 


040 


110 


001265 


157 


163 


164 


001270 


040 


142 


171 


001273 


040 


162 


145 


O012/6 


141 


144 


151 


001301 


156 


14/ 


000 


001304 


125 


163 


145 


001307 


162 


055 


144 


001312 


145 


146 


151 


oo 1 3 1 :> 


156 


145 


144 


'■01320 


04 


144 


141 


001323 


lo4 


141 


(>'.• 


001 3?f. 


160 


141 




001331 


164 


145 


i . '■ 


001334 


156 


000 




001336 


1^3 


145 


i 


00134 1 


145 


143 


J 64 


00134 4 


040 


160 


162 


00134 / 


J 45 


055 


144 


^01352 


145 


146 


151 


00l5 r > r » 


15^ 


145 


144 


OOI.VjO 


040 


144 


141 


00 1 36 ^ 


164 


141 


040 


001366 


160 


141 


164 


0013/1 


164 


145 


lb2 


'Ml 5/4 


156 


040 


050 


iiOl 3// 


060 


040 


146 


001402 


15/ 


162 


040 


O0140S 


123 


145 


161 


001410 


165 


145 


156 


• .'0141 3 


164 


151 


141 


00141*. 


154 


040 


16 3 


001421 


145 


154 


145 


0014.' 4 


14 3 


164 


151 


001427 


157 


156 


051 



11 Apr- 1984 
ll-Apr-1984 



11:56:01 VAX -11 Bliss 16 V4.0 5 79 

11:45:02 DISKUJSER2 : [POWERS ]ZRQAD0.BL1 ;6 



SEQ 004/ 
Page 4 7 
(34) 



P.AAS 



P.AAT 



P.AAU: 



.ASCII 
.ASCII 
.ASCII 
.ASCII 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 

.Asm 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
■ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 

.a :ir 
./ :n 
./ en 
.. :n 
j *n 
...s:ii 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
. A>CII 
.ASCII 



/par/ 
/es / 
/per/ 
/For/ 
/med/ 
/ at/ 
/ th/ 
/e C/ 
/on t / 
/rol/ 
/ler/ 
<00><00^ 
/Che/ 
/cU / 
/all/ 
/ Wr/ 
/I te/ 
/s a/ 
/t H/ 
/OvJt/ 
/ by/ 
/ r«/ 

/adi/ 
/ng/<00> 
/Uae/ 
/r d/ 
/«f ;/ 
/ned/ 
/ da/ 
/ta / 
/pat/ 
/ter/ 
/n/<00> 
/Sel/ 
/ect/ 
/ pr/ 
/e d/ 
/ef ; / 

/ned/ 
/ da/ 
/ta / 
/pat/ 
'ter/ 
/n ( / 
/O f/ 
/or / 
/Seq/ 
/uen- 

/tift' 
/l «j/ 

/ele/ 
/c t ; / 
/on)/ 



J4 



JRQAN1 




RD/RX f XE3CISCR 


VOL 6 




PROTECTION 


TABU 


OOI '»•.'•? 


000 


000 




0014 <4 


11* 


165 


155 


ivHi: 


u;? 


145 


16? 


00144.' 


04 C 


157 


146 


OO l*+45 


040 


167 


157 


'HU450 


it>;.' 


144 


163 


00 4 45 5 


040 


151 


156 


ooi'is;. 


040 


144 


141 


00 14 til 


164 


141 


040 


00 14 '.",4 


160 


141 


164 


"o;-if.; 


164 


145 


16.? 


oo;4 ;? 


156 


040 


050 


0014 75 


Obi 


066 


040 


001 ^00 


155 


141 


170 


00 ISO A 


iSl 


155 


165 


O01 v i0' 


♦55 


051 


000 


ouisn 


000 






v-Ci'Jl/ 


l.ro 


141 


164 


'ViVUS 


w v J 


145 


16? 


0015?0 


v.;. 


040 


166 


00 15? 5 


14 i 


154 


165 


ooivt. 


1*V» 


040 


050 


001.5.51 


I i f .' 


15/ 


040 


«NJ t5*4 


154 


115 


141 


00155/ 


144 


151 


156 


O0154? 


14/ 


040 


!./«? 


O0 1.545 


145 


16? 


15 7 


O.'l^SO 


165 


040 


141 


i''Oi':S;; 


L54 


154 


157 


i^oiyji, 


16/ 


145 


144 


U)!561 


05i 


000 


000 


00 i -ib 4 


105 


154 


145 


O.M56 7 


141 


16? 


040 


0015/? 


165 


164 


141 


00 15 '5 


164 


151 


165 


ooieoc 


164 


151 


14 5 


001 60S 


141 


154 


040 


00160^ 


164 


141 


14? 


00 Hill 


1S4 


14 5 


165 


001614 


040 


141 


146 


00161, ? 


164 


145 


16? 


00 16?? 


040 


160 


16? 


O016?5 


151 


156 


164 


001650 


151 


156 


147 


0016 5'. 


000 






001654 


1?0 


1*5 


16? 


0016 5/' 


145 


145 


156 


00164? 


164 


141 


147 


001645 


145 


040 


15/ 


001650 


146 


040 


04,' 


00165 5 


10*i 


151 


I/O 


001656 


145 


144 


040 


001661 


104 


151 


165 



11 -Apr 
11-Apr 



1984 11:56:01 VAX-11 Bliss-16 V4. 0-579 

19«4 11:45:02 DISK*USER2j [POWERSlZRQADO.BU j6 



SfcQ 0048 
Page 48 
(34) 



P. AAV; 



P.AAW: 



P.AAX 



P.AA^r 



.ASCII 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.fSCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 

.Ascri 

.ASCII 
.ASCII 

.ascit 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCI! 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.A-.CII 

.a*-;; 1 1 

.ASCII 

.ASCII 



<00><00> 
/Num/ 
/her/ 
/ of/ 
/ wo/ 
/rds/ 
/ in/ 
/ da/ 
/ta / 
/pat/ 
/ter/ 
/n (/ 
/16 / 
/max/ 
/ 1 mu/ 
/m)/<00> 
<00> 
/Pat/ 
/ter/ 
/n v/ 
/alu/ 
/« (/ 
/No / 
/lea/ 
/din/ 

/Q 1/ 

Zero/ 
/s a/ 
/llo/ 
/wed/ 

/)/<00><00"> 
/Cle/ 
/ar / 
/sta/ 
/t is/ 
/tic/ 
/al / 
/tnt>' 
/\es/ 
/ nf/ 
/ter ' 
pr/ 
/ i n t / 
/ i ny/ 
< 00 "» 
/Per/ 
/oen/ 
/tag' 
/e o/ 
/ f " / 

/f ; ,./ 

/ed / 
/Din/ 



1/ /l 



JHUAM1 




RD/RX fcXfcRCIStR 


VOL 6 




PROTECTION 


TABLE: 


00U>64 


15? 


042 


040 


001 bo: 


157 


160 


145 


0016 .V 


162 


141 


164 


0016 75 


151 


15 7 


156 


001 ''00 


lo5 


040 


15/ 


001705 


165 


164 


040 


OOKOb 


15." 


146 


040 


001 7 U 


Ih4 


157 


lb4 


001/14 


141 


154 


040 


001 '1' 


15.* 


160 


145 


001.22 


162 


141 


164 


001 ,V5 


151 


15/ 


156 


001750 


165 


000 




0017V 


125 


156 


151 


0017 33 


164 


165 


040 


001 .'40 


164 


\57 


040 


00174 5 


142 


145 


040 


ooi ;4t 


165 


145 


154 


001751 


145 


145 


164 


001754 


14b 


144 


040 


00175/' 


141 


164 


040 


0017*2 


162 


141 


156 


001 765 


144 


157 


155 


0017 70 


040 


050 


116 


OC17 73 


157 


054 


040 


0017 76 


151 


1 55 


160 


002001 


154 


151 


145 


002004 


165 


040 


165 


0020C7 


145 


161 


165 


002012 


145 


156 


164 


002015 


151 


141 


154 


002020 


051 


000 




002022 


12 7 


141 


156 


002025 


164 


040 


164 


002050 


15/ 


040 


162 


002035 


145 


16/ 


162 


0020 56 


151 


164 


145 


00204 1 


040 


142 


154 


002044 


15/ 


145 


155 


00204 / 


165 


040 


16/ 


002052 


150 


145 


156 


002055 


040 


042 


106 


002060 


15/ 


16? 


14 5 


002065 


145 


144 


040 


00«-'066 


105 


162 


162 


0020/1 


157 


162 


042 


0020 7 A 


040 


144 


145 


0020 ' / 


160 


145 


145 


002102 


164 


145 


144 


002105 


04 


15/ 


156 


002110 


04 


162 


14 » 


00.' 11 '. 


141 


144 


165 


002116 


000 


000 





l<4 

ll-Apr-1984 11:56:01 
U-Apr-I9tt4 lli4b:02 



P.AAZ; 



P. ABA; 



VAX-11 Bliss 16 V4.0 579 

DISK JUSER2 j [ POWERS ]ZRQA00.BLlj6 



SLU 0049 
Page 4 9 
(34 "J 



.ASCII 


/k" / 


.ASCII 


/ope/ 


.ASCII 


/rat/ 


.ASCII 


/ ! on/ 


.ASCII 


/s o/ 


.ASCII 


/ut / 


.ASCII 


/of / 


.ASCII 


/tot/ 


.ASCII 


/al / 


.ASCII 


/ope/ 


.ASCII 


/rot/ 


.ASCII 


/ i on / 


.ASCII 


/s'<00> 


.ASCII 


/U ti / 


.ASCII 


/t / 


.ASCII 


/t; / 


.ASCII 


/b< / 


.ASCII 


/sel/ 


.ASCII 


/ect/ 


.ASCII 


/«d / 


.ASCII 


/»t / 


.ASCII 


/ran/ 


.ASCII 


/dom/ 


.ASCII 


/ :n/ 


.ASCII 


/o, / 


.ASCII 


/ ! mp/ 


.ASCII 


/lie/ 


.ASCII 


/s s/ 


-ASCII 


/cqu/ 


.ASCII 


/ent/ 


.ASCII 


/ i n 1 / 


.ASCII 


/1/<00» 


.ASCII 


/War*/ 


.ASCII 


/t t/ 


.ASCII 


/O r/ 


.ASCII 


/ewr/ 


.ASCII 


/I te/ 


.ASCII 


/ bl/ 


.ASCII 


/OCk / 


.ASCII 


/s w/ 


.ASCII 


/h«n/ 


.ASCII 


/ "► / 


.ASCU 


/ore/ 


.ASCII 


/*d ' 


.ASCII 


/[ rr/ 


.ASCII 


/or"/ 


.ASCII 


/ de/ 


.ASCII 


/tec-' 


.ASCII 


/ted/ 


.ASCII 


/ on/ 


.ASCH 


/ re/ 


.ASCII 


/ad?;/ 


.ASCII 


<00><00> 



4 



/RQAM1 
VOL 6 

002120 
002123 
002126 
002131 
00.? 1 54 

00.:? 15 ' 

002142 

002145 
002150 
002155 
002156 
002161 
002164 
00216 7 
0021:2 
002175 
002200 
00220 5 
002206 
002211 
002214 
002217 
002222 
002225 
002230 
002253 
002236 
00224 i 
002244 
00224 7 
002252 
002255 
002260 
002265 
002266 
002271 
002274 
00227/ 
002300 
002303 
002306 
002311 
002514 
002317 
002322 
002325 
002330 
0023 33 
002336 
002 34 1 
002344 
002 54 / 
002352 



RO/RX KXtRCIlitR 

PROTECTION TABl.f- 



11 Apr-1984 11:56:01 
U-Apr-l9b4 11:45:02 



VAX -11 Blis«-16 V4.0 5 79 

DISK *USER2:[ POWERS URQAD0.BL1 16 



SEQ 0050 
Page 50 
(34) 



104 
171 
040 
156 
164 
150 
164 
156 
164 
162 
141 
040 
162 
163 
04 3 
063 
063 
040 
055 
054 
071 
065 
104 
171 
040 
156 
164 
150 
164 
156 
157 
040 
162 
163 
043 
065 
065 
000 
104 
171 
040 
156 
164 
150 
164 
156 
141 
14 2 
14 3 
110 
144 
162 
162 



15/ 
157 
167 
164 
157 
141 
040 
040 
150 
040 
162 
105 
15 7 
040 
163 
061 
064 
065 
065 
040 
055 
051 
157 
15/ 
167 
164 
157 
141 
040 
040 
146 
105 
157 
040 
163 
060 
064 

157 

15/ 
167 
164 
15/ 
141 
040 
040 
144 
154 
153 
141 
040 
162 
163 



040 
165 
141 
040 
040 
154 
157 
157 
145 
110 
144 
162 
162 
050 
040 
055 
054 
066 
06 7 
063 
064 
000 
040 
165 
141 
040 
040 
154 
157 
123 
164 
162 
162 
050 
040 
055 
051 

040 
165 

14 1 
040 
040 
154 

15 7 

10c 1 

055 
15/ 
040 
162 
105 
157 
040 



P. ABB j 



P.ABC: 



P.ABD: 



. asc r 1 


/Do / 


.ASCII 


/you/ 


.ASCII 


/ wo/ 


.ASCII 


/nt / 


.ASCII 


/to / 


.ASCII 


/hal/ 


.ASCII 


/t 0/ 


.ASCII 


/n 0/ 


.ASCII 


/the/ 


.ASCII 


/r H/ 


.ASCII 


/ard/ 


.ASCII 


/ Kr/ 


.ASCII 


/ror/ 


.ASCII 


/s (/ 


.ASCII 


/0S / 


.ASCII 


/31V 


.ASCII 


/34,/ 


.ASCII 


/ 36/ 


.ASCII 


/ -37/ 


.ASCII 


/, 3/ 


.ASCII 


/9-4/ 


.ASCII 


/5)/<00> 


.ASCII 


/Do / 


.ASCII 


/you/ 


.ASCII 


/ wa/ 


.ASCII 


/nt / 


.ASCII 


/to / 


.ASCII 


/hoi/ 


.ASCII 


/t 0/ 


.ASCII 


/n S/ 


.ASCII 


/oft/ 


.ASCII 


/ F.r/ 


.ASCII 


/ror/ 


.ASCII 


/s (/ 


.ASCII 


/6s / 


.ASCII 


/50 •■/ 


.ASCII 


/54 )/ 


.ASCII 


*00^ 


.ASCII 


/Do / 


.ASCII 


/you/ 


.ASCII 


/ wa/ 


.ASCII 


/nt / 


.ASCII 


/to / 


.ASCII 


/hal' 


.ASCII 


■' t / 


.ASCII 


/n B/ 


.ASCII 


/ad / 


.ASCII 


/bio-' 


.ASCII 


/c»- / 


.ASCII 


/Har/ 


.ASCII 


/d t / 


.ASCII 


/pro/ 


.ASCII 


/ro / 



M4 



ZRQAM1 




RD/RX EXERCISER 


VOL 6 




PROTECTION 


TABLE 


002355 


050 


043 


163 


002360 


040 


063 


065 


002563 


054 


040 


063 


002366 


070 


051 


000 


002371 


000 






002372 


105 


156 


164 


002375 


145 


162 


040 


002400 


164 


151 


155 


002403 


145 


040 


141 


002406 


163 


040 


110 


0024 1 1 


110 


115 


115 


002414 


040 


050 


105 


0024 1 7 


170 


141 


155 


002422 


160 


154 


145 


002425 


0/2 


040 


061 


0024 30 


063 


060 


065 


002433 


040 


055 


040 


0024 36 


040 


116 


157 


002441 


040 


154 


145 


002444 


141 


144 


151 


00244 7 


156 


147 


040 


002452 


172 


145 


162 


002455 


157 


163 


040 


002460 


141 


154 


154 


002463 


1.57 


167 


144 


002466 


051 


000 




0024 70 


103 


157 


165 


0024 73 


156 


164 


040 


002476 


145 


141 


143 


002501 


150 


040 


162 


002504 


145 


164 


162 


00250 7 


171 


040 


157 


002512 


156 


040 


141 


002515 


040 


122 


145 


002520 


141 


144 


057 


002523 


127 


162 


151 


002526 


164 


145 


040 


002531 


145 


162 


162 


002534 


15/ 


162 


040 


002537 


141 


163 


040 


002542 


141 


040 


163 


002545 


145 


160 


145 


002550 


162 


141 


164 


002553 


145 


040 


123 


002556 


157 


146 


164 


002561 


040 


105 


162 


002564 


162 


157 


162 


00256 7 


000 






0025 70 


124 


150 


145 


002573 


040 


162 


145 


002576 


155 


141 


151 


002601 


1 56 


151 


156 


002604 


147 


040 


161 



P.ABE: 



P . ABF ; 



P,ABG{ 



.ASCII 

, ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

ASCII 

ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

ASCII 

ASCII 

ASCII 

.ASCII 

.ASCII 

ASCII 

ASCII 

ASCII 

ASCII 

ASCII 

ASCII 

ASCII 

ASCII 

ASCII 

.ASCII 

ASCII 

ASCII 

ASCII 

ASCII 

ASCII 

ASCII 

ASCII 

ASCII 

ASCII 



11 -Apr -1984 
U-Apr-1984 



11:56:01 VAX-11 Bliss-10 V4.0 579 

11 : 45 : 02 DISK $USER2 : [ POWERS JZRQADO , BL 1 { 6 



SEU 0051 
Page 

(34) 



51 



/(#s/ 
/ 35/ 
/, 3/ 
/8)/<00> 
<00> 
/Ent/ 
/er / 
/tim/ 
/« a/ 
/s H/ 
/HMM/ 
/ CE/ 
/xom/ 
/pie/ 
/: 1/ 
/305/ 
/ - / 
/ No/ 
/ le/ 
/adi/ 
/ng / 
/2*r/ 

/OS / 

/oil/ 
/owd/ 
/V<00> 
/Cou/ 
/nt / 
/tac/ 
/h r/ 
/etr/ 
/y 0/ 
/n o/ 
/ Rf / 
/ad. <57> 
/Wrl/ 
/te / 
/err/ 
/or / 
/as / 
/a s/ 
/epe/ 
/rat/ 
/e 5/ 
/oft/ 
/ t. r / 
/ror/ 
<00> 
/The/ 
/ re/ 
/mo ! / 
/nin ' 
/g q/ 



N4 



ZRQAM1 




RD/RX EXERCISER 


V01. 6 




PROTECTION 


TABLE 


002607 


165 


145 


163 


002612 


164 


151 


157 


002615 


156 


163 


040 


002620 


15 7 


156 


154 


002625 


171 


040 


141 


002626 


160 


160 


154 


002631 


171 


040 


164 


002654 


157 


040 


165 


002637 


156 


160 


162 


002642 


157 


164 


145 


002645 


143 


164 


145 


002650 


144 


040 


144 


002653 


151 


163 


153 


002656 


165 


000 




002660 


000 


000 




002662 


045 


116 


045 


002665 


101 


052 


052 


0026 70 


040 


104 


162 


002673 


157 


160 


040 


002676 


165 


156 


151 


002701 


164 


040 


045 


002704 


104 


062 


000 


00270/ 


000 






002710 


045 


116 


04 5 


002713 


101 


052 


052 


002 716 


040 


120 


122 


002721 


117 


103 


137 


002724 


122 


105 


124 


002727 


120 


113 


124 


002732 


072 


040 


103 


102735 


157 


156 


156 


002/40 


040 


111 


104 


002743 


040 


045 


117 


002746 


066 


045 


101 


002751 


040 


162 


145 


002754 


143 


145 


151 


002 757 


166 


145 


144 


002762 


OOO 


000 




002764 


045 


116 


045 


002767 


101 


052 


052 


002 7 72 


040 


115 


165 


002/75 


154 


164 


151 


003000 


055 


144 


162 


005003 


151 


166 


145 


005006 


040 


164 


145 


003011 


165 


164 


000 


005014 


045 


116 


04 5 


00301/ 


101 


052 


052 


003022 


040 


106 


101 


005025 


124 


101 


114 


005030 


15/ 


105 


122 


O<^30 3 < 


122 


11/ 


122 


^03036 


072 


040 


122 



ll-Apr-1984 
11 Apr -1954 



11:56:01 VAX 1 1 Bliss-16 V4. 0-579 

11 ! 45 j 02 DISK JUSER2 j [ POWL-Ri ] 2RQAD0 . BL 1 ; 6 



SEQ 0052 
Page 



.2 



(34) 



P.AGH 
P.ABI 



P.ABJ 



P.ABK 



P.ABL 



.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.AbCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 
i\«:r ; i 

•ASCII 



/ues/ 

/tio/ 

/ns / 

/onl/ 

/y a/ 

/ppl/ 

/y t/ 

/o u/ 

/npr/ 

/ote/ 

/etc/ 

/d d/ 

/isk/ 

/s/<00> 

<00><00> 

/*N*/ 

/A**/ 

/ Or/ 

/op / 

/un i / 

/t */ 

/D2/<00> 

<00> 

/*N#/ 

/A**/ 

/ PR/ 

/OC / 

/RET/ 

/PKT/ 

/: C/ 

/onn/ 

/ ID/ 

/ *0/ 

/6*A/ 

/ r*/ 

/ce!/ 

/ved/ 

<00><00> 

/*N*/ 
/A**/ 
/ Mu/ 
/Iti/ 
/• dr/ 
/ive' 
/ te/ 
/st/<00> 
/*N*/ 
/A**/ 
/ FA/ 
/TAl / 
/ EH/ 
/KlJW/ 

/l R/ 



*RUAMi 




HO RX tXfcRCISER 


VOl^ 




PROTECTION 


TABU 


005041 


105 


124 


120 


005044 


113 


124 


040 


00504 : 


1 5b 


15; 


164 


003052 


040 


141 


166 


00 3055 


141 


151 


154 


00 30*0 


141 


142 


154 


005^5 


145 


000 


'00 


0050bb 


045 


lib 


045 


0050.'! 


101 


052 


05? 


0050*4 


040 


10b 


125 


00 3o.'.' 


105 


124 


13 7 


00310? 


125 


120 


101 


00 3 1 OS 


122 


0^2 


040 


0031 10 


103 


141 


156 


003115 


04,' 


164 


040 


00311b 


14b 


151 


1^6 


00 3121 


144 


040 


144 


005124 


151 


163 


153 


00312 7 


040 


045 


104 


003132 


063 


045 


101 


005135 


040 


151 


156 


003140 


040 


103 


123 


00314 3 


124 


040 


045 


00 514b 


104 


061 


000 


003151 


000 






00315? 


045 


116 


045 


003155 


101 


052 


05? 


003160 


040 


102 


141 


00316 5 


144 


040 


143 


003166 


15: 


156 


156 


003171 


040 


111 


104 


CO 31 '4 


040 


045 


117 


0031 V 


Ob 6 


045 


101 


00 3202 


04 


162 


145 


003205 


143 


145 


151 


003210 


166 


145 


144 


00 5.? 1 3 


040 


146 


16? 


00 3216 


15/ 


155 


040 


00 3221 


045 


117 


066 


003224 


000 


000 




00 3226 


045 


116 


045 


0032 31 


101 


05? 


052 


O0 3234 


040 


115 


145 


00 323? 


16 5 


163 


141 


00 3242 


14; 


145 


040 


00 3245 


164 


1 7 1 


160 


00 3250 


145 


040 


045 


00 325 3 


11/ 


062 


04 5 


00 3256 


101 


040 


162 


00 326 1 


145 


14^ 


145 


00V64 


151 


1M, 


145 


00 5.* ' 


144 


040 


151 


QQldlj 


1% 


040 


U r J 



M.ABM; 



P.ABN: 



P»ABUt 





P ' 




11 -Apr -1*104 Ui56:01 




11 Apr -1<*K4 Iij45s02 


. ASC 1 1 


/LIP/ 


.ASCII 


/KT / 


•ASCII 


/not/ 


.ASCII 


/ ttv/ 


.ASCII 


/«; i/ 


.ASCII 


/•bl/ 


.ASCII 


/e/<00»<00» 


.ASCII 


/*H#/ 


.ASCII 


/A**/ 


.ASCII 


/ f S/ 


.ASCII 


/tr / 


.ASCII 


/UPA' 


.ASCII 


/R: / 


.ASCII 


/Can/ 


.ASCII 


/' t / 


.ASCII 


/fin/ 


.ASCII 


/d d/ 


.ASCII 


/ ' »w/ 


.ASCII 


/ #0/ 


.ASCII 


/3*A/ 


.ASCII 


/ In/ 


.ASCII 


/ cs/ 


.ASCII 


/T */ 


.ASCII 


/Dl/<00> 


.ASCII 


<00> 


.ASCII 


/*N*/ 


.ASCII 


/ A ♦ ♦ / 


.ASCII 


/ n»/ 


.ASCII 


d c/ 


.ASCII 


/©nn/ 


.ASCII 


/ ID' 


.ASCII 


/ *o/ 


.ASCII 


/6*A' 


.ASCII 


/ re/ 


.ASCII 


Zee! ' 


.ASCII 


/v«d/ 


.ASCII 


/ f r / 


.ASCII 


/om ' 


.ASCII 


/*06/ 


.ASCII 


< 00 >< 00 * 


.ASCII 


/ tf M4 / 


.ASCII 


/ A ♦ •• / 


.ASCII 


/ Me' 


.ASCII 


/'iSJI' 


.ASCII 


/ge 


.ASCII 


typ' 


.ASCII 


' e *' 


.ASCII 


/'L»2«-' 


.ASCI 


/A r 


.ASCI I 


/'•ce- 


. A'.CI ! 


/.' ve ' 


.A *,C 1 I 


. d : 


.ASCII 


/n M/ 



VAX 11 Ri;«i« 16 V4.0 5/'* 

DISK JUSfcR? i [ P0WFR5 URQAQO . BL 1 j 6 



StU 005 3 

(34) 



/RU'XMl 




HO MX txmClfiLR 


\o\.* 




PROMOTION 


TABI t 


oo5,"» *s 


123 


105 


120 


005300 


040 


160 


141 


00 3505 


145 


155 


145 


003306 


1M 


000 




005310 


043 


116 


043 


003313 


UH 


052 


052 


00 5 5 lt> 


040 


125 


105 


00 5. VI 


121 


125 


105 


005524 


116 


72 


040 


0055." 


122 


105 


124 


005532 


120 


115 


124 


003333 


040 


156 


15 7 


003340 


164 


040 


141 


00334 3 


166 


141 


151 


00354b 


154 


141 


142 


003551 


154 


14 5 


000 


005 334 


045 


116 


045 


00533/ 


101 


052 


052 


003362 


04 


105 


162 


003365 


162 


15 7 


162 


003 3 70 


040 


151 


156 


00 33/5 


04 


125 


105 


0035 76 


124 


13 7 


103 


003401 


124 


114 


122 


003404 


13 7 


103 


110 


00340* 


101 


122 


COO 


003412 


045 


116 


045 


003413 


101 


052 


052 


003420 


040 


103 


164 


003423 


154 


162 


040 


003426 


164 


151 


155 


0034 31 


145 


157 


165 


0054 34 


164 


040 


75 


00 34 3;' 


040 


045 


104 


003442 


06 3 


04 5 


101 


00X4 4 3 


056 


040 


16 3 


00 34 50 


145 


143 


15 7 


00 5433 


156 


144 


163 


00 343h 


000 


000 




003460 


04 5 


116 


04 5 


00 34*3 


101 


052 


052 


003466 


040 


105 


162 


00 54 71 


162 


15/ 


162 


00 34 74 


040 


151 


156 


00 34 * / 


040 


125 


116 


00 5302 


111 


124 


137 


00 3303 


111 


116 


111 


00 5310 


124 


000 




003312 


043 


1 16 


043 


00 5313 


101 


052 


052 


00 5520 


040 


123 


116 


00 5!., '.. 


111 


124 


13/ 


003326 


111 


116 


III 



P . '^BP s 



P.ABQ 



P.ABR 



P.ABS; 



P.ABT; 





11 Apr 1W84 11 *56j01 




11 Apr -19H4 Ils45i02 


.ascii 


/SCP/ 


.ASCII 


/ pa/ 


.ASCII 


/cw«/ 


.ASCII 


/t/<oo* 


.ASCII 


/UH*/ 


.ASCII 


/A**/ 


.ASCII 


/ Sfc/ 


.ASCII 


/QUt./ 


.ASCII 


/N: / 


.ASCII 


/RET/ 


.ASCII 


/PKT/ 


.ASCII 


/ no/ 


.ASCII 


/t a/ 


.ASCII 


/vat / 


.ASCII 


/lab/ 


.ASCII 


/le/<00> 


.ASCII 


/#N#/ 


.ASCII 


/A**/ 


.ASCII 


/ Cr/ 


.ASCII 


/ror/ 


.ASCII 


/ In/ 


.ASCII 


/ St./ 


.ASCII 


/! C/ 


.ASCII 


/TLR/ 


.ASCII 


/ CH/ 


.ASCII 


/AR/<00> 


.ASCII 


/*N#/ 


.ASCII 


/A**/ 


.ASCII 


/ ct/ 


.ASCII 


/\r / 


.ASCII 


/t Im/ 


.ASCII 


/eou/ 


.ASCII 


/t •/ 


.ASCII 


/ 40/ 


.ASCII 


/3*A/ 


.ASCII 


/. 9-' 


.ASCII 


/«co/ 


.ASCII 


/ndti' 


.ASCII 


*00»*00> 


.ASCTI 


/#N#/ 


.ASCII 


/ A * ♦ / 


.ASCII 


/ fr/ 


.ASCII 


/ror/ 


.A'cn 


/ In' 


.ASCII 


/ uN / 


.ASCII 


/U / 


.ASCII 


> INI/ 


.ASCII 


/ T •' < 00 » 


.ASCI I 


/*N#-' 


.ASCII 


/A** • 


.ASCII 


/ UN/ 


.ASCII 


/IT / 


♦ASCII 


/INI/ 



VAX 11 HI ion Vft V4,0-S'/«i 

DISK *UStR2 { [ POWERS 1ZRQAD0 , BL I j 6 



SEQ 0054 

P«9€ 54 

(34) 



\y 



/RUAMl 




RO.RX EXERCISER 


V01.6 




protection 


TAHl t 


003531 


1?4 


0/? 


040 


003534 


1?? 


105 


1?4 


00353 .' 


1?0 


113 


1?4 


00354,? 


040 


'50 


141 


003545 


163 


040 


14? 


003550 


141 


144 


040 


003S53 


105 


116 


104 


003556 


105 


117 


104 


0055b 1 


105 


000 


000 


00 5564 


04 S 


116 


C45 


oo :■» 56: 


101 


05? 


05? 


0035. V 


040 


1?5 


156 


0035 75 


151 


164 


040 


003600 


165 


151 


17? 


003603 


145 


040 


050 


005606 


114 


15 7 


051 


003611 


040 


0/5 


040 


003b 14 


045 


104 


065 


003617 


045 


101 


056 


0036?? 


000 


000 




003624 


04 5 


116 


04 5 


0036?7 


101 


05? 


05? 


00363? 


040 


1?5 


156 


003635 


151 


16/4 


040 


003640 


16 5 


151 


17? 


003643 


145 


040 


050 


003646 


110 


151 


051 


003651 


040 


075 


040 


003654 


045 


104 


065 


003657 


045 


101 


056 


00366? 


000 


000 




003664 


045 


U6 


045 


00366 7 


10? 


05? 


05? 


003b/? 


040 


101 


10 3 


0036 75 


103 


105 


123 


003 700 


1?3 


07? 


040 


00 3 703 


1?? 


105 


1?4 


00 3 /06 


1?0 


113 


1?4 


001/11 


040 


150 


141 


00 3 714 


163 


040 


14? 


003/1 / 


141 


144 


040 


00:/?? 


105 


116 


104 


00 5 7 t ?5 


105 


11/ 


104 


00 3 7 30 


1.05 


000 




003/3? 


045 


116 


045 


005/55 


101 


05? 


05? 


003/40 


040 


1?1 


Ill 


003/4 3 


11/ 


13/ 


1.^ 


003 746 


1 1 ^ 


111 


1?4 


005/!.! 


7? 


040 


10 5 


00 3/54 


1?3 


1?4 


040 


00 3."- ' 


045 


104 


Oft 1 


00376? 


045 


ioi 


040 



11 Apr 19fl4 11:56:01 
li-Apr-1904 11:45:02 



VAX-11 fil Iss- 16 V4.0 5/9 
DISK5UbER2i[P0WERS]^RQAD0.BLli6 



SEQ 0055 
P«9« 55 
(34) 



P.ABU: 



P.ABV 



P.ABW 



P.ABX; 



.Ascri 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCil 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.AjCII 
.ASCII 
,A-.,CiI 
.ASCII 



/T : / 

/RET/ 

/PKT/ 

/ ha/ 

/s b/ 

/ad / 

/END/ 

/COD/ 

/E/<00><00> 

/*N*/ 

/A**/ 

/ IM/ 

/it / 

/si// 
/e (/ 
/EoV 
/ • / 

/*D5/ 
/*A./ 
<00><00> 
/*N#/ 
/A**/ 
/ Ur\/ 
/it / 
/si// 
/« (/ 
/Hi V 
/ - / 
/*D5/ 
/*A , / 

< 00><00* 
/*N#/ 

/A**/ 
/ AC/ 
/CFS/ 
/S: / 
/Rf-T/ 
/PKT / 
/ ha/ 
/s b/ 
/ad / 
/END/ 
/COO/ 

n /<oo> 

/*N»/ 
/A*'-/ 
* 'JI/ 

/I) IV 
/NIT 
/: C 

/ST .' 

/*D1/ 
/KA / 



.'RU4M1 
V01, 6 

CO? 7e>5 
00? 7 70 

oo?;;? 

oos : .v. 

004001 
004004 
004006 

004011 
004014 
00401V 
004022 
004025 
004030 
004055 
004054 
004057 
00404,"? 
00404!". 
004050 
004051* 
00405b 
004061 
004064 
00406? 
00407 c 1 
004075 

0040 ?t> 
00410: 
004104 
004 107 
004 Ui: 
004115 
004 120 
004 12 5 

0041 Tii 
004151 
004 154 
004157 
004142 
0041 45 
004150 
004155 
004 156 
004161 
004164 
004 16 / 
004 i ;.> 
0041 '5 
004200 
00420', 
004 206 
004;"' 11 
004214 



WO/RX f.XLRCIfjLR 

PROTECTION TABLfc 



156 
lo5 
164 
145 
14 5 
144 
045 
101 
040 
151 
04 5 
lb 5 
045 
000 
045 
101 
OAO 
155 
141 
145 
151 
04 
040 
154 
164 
GvO 
045 
101 
040 
I/O 
040 
165 
151 
165 
145 
145 
04 5 
101 
040 
154 
141 
146 
145 
15/ 
040 
066 
045 
101 
04 
155 
IV. 

16,' 

040 



15 7 
156 
040 
154 
164 
000 
116 
052 

125 

164 
040 
0'\? 
117 

116 
052 
122 
15 7 
142 
040 
165 
151 
165 
145 
145 

lib 
052 

106 
145 
144 
155 
165 
145 
145 
144 
116 
052 
111 
145 
154 
165 
164 
156 
045 
000 
116 
052 
105 
155 
144 
145 
04 5 



040 
151 
165 
145 
145 

045 
052 
156 
040 
151 
040 
066 

045 
052 
145 

166 
154 
144 

155 
165 
145 
145 
144 

045 
052 
151 
144 

151 
040 
040 
154 
164 
000 
045 
052 
154 
14? 
040 
156 
151 
072 
117 
000 
045 
052 
15/ 
141 
040 
146 
040 



P.ABY; 



P.ABZ: 



P.ACAj 



P ♦ ACB i 



P.ACCt 





11 Apr- 19ft4 


11:56:01 




11 -Apr -1964 


11:45:02 


.ASCII 


/no / 




.ASCII 


/uni / 




.ASCII 


/t s/ 




.ASCII 


/ele/ 




.ASCII 


/cte/ 




.ASCII 


/d/<00> 




.ASCII 


/#N*/ 




.ASCII 


/A**/ 




.ASCII 


/ Un/ 




.ASCII 


/it / 




.ASCII 


/a \ / 




.ASCII 


/g; / 




.ASCII 


/*06/ 




.ASCII 


<00> 




.ASCII 


/#N*/ 




.ASCII 


/A**/ 




.ASCII 


/ Re/ 




.ASCII 


/mov/ 




.ASCII 


/abl/ 




.ASCII 


/e d/ 




.ASCII 


/ i sk / 




.ASCII 


/ is/ 




.ASCII 


/ se/ 




.ASCII 


/lee/ 




.ASCII 


/ted/ 




.ASCII 


<0C> 




.ASCII 


/*K»»/ 




.ASCII 


/A**/ 




.ASCII 


/ f ;/ 




.ASCII 


/xed/ 




.ASCII 


/ d? / 




.ASCII 


/Sk / 




. A^PTT 






.ASCII 


/sel/ 




.ASCII 


/ect/ 




.ASCII 


/ed/<00^ 




.ASCII 


/#N#/ 




.ASCII 


/A**/ 




.ASCII 


/ 11/ 




.ASCII 


/lCQ/ 




.ASCII 


/al / 




.ASCII 


/' f un / 




.ASCII 


/ct; / 




.ASCII 


/'on : ' 




.ASCII 


' #0/ 




.ASCII 


/>>-' « -00* <QQ* 




.ASCII 


/•n*/ 




.ASCII 


/A**/ 




.ASCII 


/ Co' 




. ASC I I 


/mm a /' 




.ASCII 


/nd / 




. ASC 1 1 


/ref/ 




.ASCII 


y 4 / 





VAX 11 Bliss- 16 V4.0 579 
DISK*USER2{[P0WERS)ZRQADQ.BLli6 



SEQ 0056 
Page 56 
(34) 



.) 



/RUAMl 
VOL 6 

004 .M? 
004^.:^ 
004225 
0042^0 
004233 
00423C 
004241 
004 IV. 4 
00424 7 
004 252 

004255 

004260 

004262 
00^265 
0042 70 
0040"? 
004;? 7 b 
004 501 
004 304 
004 307 
004 310 
004 315 
004320 
004523 
004326 
004331 
004334 
004337 
004342 
O04 345 
004 350 
004355 
004 356 
004 3d 1 
004 364 
004 367 
004 3/2 
O04 3 ''5 
004400 
004403 
004406 
0044 1 1 
004414 
00441/ 
004422 
004425 
00.14 30 
004435 
0044V, 
004441 
004442 
0(j4445 
004450 



RO/RX EXERCISER 

PROTECTION TABLE 



ll-Apr-1984 11:56:01 
ll-Apr-19H4 11: 45 ; 02 



VAX-11 Bliss 16 V4, 0-579 
DISK$USER2: [ POWERS 1ZRQAD0, BE 1{6 



3EU 005/ 
Page 5 / 
(34) 



045 
04 5 
04 5 
045 
050 
164 
156 
040 
156 
142 
110 
164 
045 
101 
040 
153 
16/ 
105 
157 
114 
040 
162 
164 
117 
101 
145 
151 
144 
045 
101 
040 
055 
144 
04 5 
045 
040 
144 
15 7 
040 
06 3 
040 
162 
145 
04 5 
117 
101 
11/ 
101 
70 
000 
045 
101 
040 



11/ 

101 
117 
101 
117 
051 
157 
163 
164 
171 
15/ 
000 
116 
052 
125 
156 
156 
162 
162 
157 

146 
155 
040 
063 
040 
14 5 
166 
000 
116 
052 
117 
143 
145 
117 
101 
105 
055 
144 
045 
045 
146 
040 
146 
04 
066 
05/ 
066 
040 
051 

116 
052 

105 



066 

05 7 
066 
040 
143 
040 
164 
145 
040 
040 
163 

045 
052 

156 
15/ 
040 
162 
040 
147 
157 
141 
045 
045 
162 
14 5 
145 
000 
045 
052 
160 
157 
040 

06 3 
054 
156 
143 
145 
11'/ 
101 
157 
162 
040 
045 
045 
04 5 
04 r > 
050 
000 

045 
052 
155 



P.ACD: 



P. ACE: 



P.ACF ; 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.A, CI1 
.ASCII 



/*06/ 
/#AA57> 

/*06/ 

/#A / 

/(Oc/ 

/t) / 

/not/ 

/ oc/ 

/nt / 

/by / 

/Hos/ 

/t/<00> 

/*N*V 

/A**/ 

/ Un/ 

/kno/ 

/wn / 

/Err/ 

/or / 

/Log/ 

/ fo/ 

/rma/ 

/t */ 

/03*/ 

/A r/ 

/ece/ 

/ive/ 

/d/<00><00> 

/«N*/ 

/A**/ 

/ Op/ 

/-co/ 

/de / 

/*03/ 

/•A,/ 

/ En/ 

/d-c/ 

/ode/ 

/ »U/ 

/3*A/ 

/ fo/ 

/r r/ 

/ef / 

/<> */ 

/06m/ 

/A/<57-»/«V 

<06*/ 

/A (. .■ 

/ft )/ <00> 

*00> 

/•Km/ 

/A**/ 
f Cm/ 



G5 



•7RUAHI 
V01, 6 

004453 
004 4 56 
0044b 1 
004 4 M 
004467 
0044 7..' 
0044 75 
004500 
004 503 
00450b 
004511 
004514 
004517 

004522 

004525 

OO4S30 
004533 
004536 
004541 
004544 
00454 7 
00455*? 
004555 
004560 
004563 
004566 
004571 
004574 
00457 7 
00460c 1 
004605 
004610 
004613 
004616 
004^? 1 
004624 
004627 
00463? 
004635 
004636 
004 64 1 
004644 
004b4 7 
00465.? 
004 b5 5 
004660 
0O4bM 
004bbf, 
0046 / 1 
0046 74 
0046 '7 
00 4 70 2 
004 705 



RO'RX EXERCISER 

PROTECTION TABLE 



11 Apr 1984 11:56:01 
ll-Apr-1964 11>45:02 



VAX-11 Bliss 16 V4, 0-579 
DISK$USER2:[ POWERS ]ZRQAD0.BL1»6 



SEQ 0058 
Page 58 
(34) 



144 
1.4 3 
117 
101 
i 1 7 
101 
163 
142 
04 5 
045 
045 
045 
146 
040 
Obb 
057 
066 
040 
051 
045 
101 
040 
163 
156 
040 
16.? 
144 
162 
145 
145 
146 
040 
144 
11/ 
101 
11 7 
101 
70 
000 
045 
101 
040 
151 
162 
164 
163 
144 
15 7 
141 
04 
!♦, 4 
040 
045 



055 
040 
066 
057 
066 
040 
160 
143 
117 
101 
117 
101 
15 7 
045 
045 
045 
045 
050 
000 
Ho 
052 
12c 
160 
163 
141 
145 
171 
145 
151 
144 
157 
143 
040 
066 
057 
066 
040 
051 

116 

052 

106 
154 
145 
15/ 
145 
040 
155 
156 
141 
IV, 
04 3 
11/ 



142 
045 
045 
045 
045 
122 
055 
040 
066 
057 
06b 
040 
162 
117 
101 
117 
101 
070 
000 
045 
052 
145 
157 
,45 
154 
141 
040 
143 
166 
040 
162 
155 
045 
045 
045 
045 
050 
000 

045 
052 

141 
165 
040 
040 
15b 
141 
155 
144 
146 
162 
040 
066 



P.ACG: 



P.ACHj 



.ASCII 


/d b/ 


. ASC 1 1 


/c #/ 


.ASCII 


/06#/ 


.ASCII 


/A/<57->/*/ 


.ASCII 


/06#/ 


.ASCII 


/A R/ 


.ASCII 


/sp/ 


.ASCII 


/be / 


.ASCII 


/*06/ 


.ASCII 


/*A/<5?*> 


.ASCII 


/*06/ 


.ASCII 


/*A / 


.ASCII 


/for/ 


.ASCII 


/ *o/ 


.ASCII 


/6*A/ 


.ASCII 


<57>/*0/ 


.ASCII 


/6*A/ 


.ASCII 


/ (8/ 


.ASCII 


/)/<00><00> 


.ASCII 


/****/ 


.ASCII 


/A**/ 


.ASCII 


/ R«/ 


.ASCII 


/spo/ 


.ASCII 


/nse/ 


.ASCII 


/ ol/ 


.ASCII 


/rea/ 


.ASCII 


/dy / 


.ASCII 


/rec/ 


.ASCII 


/eiv/ 


.ASCII 


/ed / 


.ASCII 


/for/ 


.ASCII 


/ cm/ 


.ASCII 


/d #/ 


.ASCII 


/06*/ 


.ASCII 


/A/<57>/*/ 


.ASCII 


/06t</ 


.ASCII 


/A ( / 


.ASCII 


/8)/*00> 


.ASCII 


<00> 


.ASCII 


/*KW/ 


.ASCII 


/A» */ 


.ASCII 


/ y .1/ 


.ASCII 


/;iu/ 


.ASCII 


/re / 


.ASCII 


/to / 


.ASCII 


/sen/ 


. ASC 1 1 


/d c/ 


.ASCII 


/OiTim/ 


.ASCII 


/and/ 


.ASCII 


/ at- 


. asc i : 


/trr/ 


.ASCII 


/ t) / 


* ASC I I 


/*06/ 



) 



V01. 6 

004 710 

004 715 
004 7 lo 

004 .\n 

004 724 
004 726 

004; 51 
004/54 
004 757 
004 74.-? 
004 /4S 
004 /SO 
004 7 IS 5 
004 75r, 
004 7^0 
004 76 3 
004 ,'6h 
004 771 
004 7 74 

004 ; : 7 

005002 
00 '3005 
005010 
005015 
005016 
005021 
0050^4 
00502 7 
00503? 
005055 
005040 
00504 5 
00504b 
005051 
00505? 
005055 
005060 
0C5063 
005066 
00 ,: >0 71 

0050 74 
00507 7 
00510? 
005105 
005106 
005111 
005114 
00511/ 
005122 
005125 

0051 SO 
0051 »,' 

005136 



RD/RX EXhRClSER 

PROTECTION TABLE 



11 -Apr 1984 11:56:01 
11 -Apr- 1904 11:45:02 



VAX-11 HUsfs 16 V4.0-57V 
DISKSUSKR2:[ POWERS ]ZRQAD0.BL1*6 



StQ 0059 
Page 59 
(34) 



045 
045 
(45 
050 

000 
045 

101 

111 

104 

101 

i :\: 

120 
04 

oco 

04 5 
125 
04 
115 
116 
116 
045 
11 7 
ill 
1?? 
Ill 
040 
122 
045 
045 
116 
040 
122 
04 5 
000 
045 
12c? 
125 
122 
111 
124 
105 
110 
045 
000 
045 
12*? 
12? 
Ill 

i :>4 

105 

no 

04 5 
045 



101 
117 
101 
70 
000 
116 
125 
1?4 
06 2 
040 
117 
105 
055 
000 
101 
105 
105 
115 
104 
000 
101 
116 
10 7 

101 

117 
105 
117 
116 
101 
111 
105 
117 
116 

10 1 
101 
106 
040 
115 
040 
101 
105 
116 

101 
122 

040 
115 
040 
101 
105 
116 
101 



05 7 

066 
040 
051 

045 
116 
04 5 
045 
104 
120 
104 
040 

125 

122 
117 
101 
045 
000 
105 
106 
125 
124 
116 
122 
122 
000 

111 

124 
122 
1.2? 
000 

124 

116 
105 
114 
HI 
122 
105 
104 
000 

105 

11 7 
114 
111 
122 

10* 
10*5 
000 
125 



P.ACI: 



P.ACK: 



P . ACL : 



P. ACM: 



P.ACN: 



P.ACO: 



P.ACPj 



.ASCII 


/*A/<57> 


.ASCII 


/*06/ 


.ASCII 


/HA / 


.ASCII 


/(8)/ 


.ASCII 


<00><00> 


.ASCII 


/ilNrf/ 


.ASCII 


ZAUN/ 


.ASCII 


/ITU/ 


.ASCII 


/D2*/ 


.ASCII 


/A D/ 


.ASCII 


/ROP/ 


.ASCII 


/PFO/ 


.ASCII 


/ - / 


.ASCII 


<00><00> 


.ASCII 


/tfAUV 


.ASCII 


/SFR/ 


.ASCII 


/ CO/ 


.ASCII 


/MMA/ 


.ASCII 


/ND*/ 


.ASCII 


/N/'OOxOO"* 


.ASCII 


/*AC/ 


.ASCII 


/ONF / 


.ASCII 


/IGU/ 


.ASCII 


/RAT/ 


.ASCII 


/ION/ 


.ASCII 


/ ER/ 


.ASCII 


/ROR/ 


.ASCII 


/#N/<00> 


.ASCII 


/*AI/ 


.ASCII 


/NIT/ 


.ASCII 


/ ER/ 


.ASCII 


/ROR/ 


.ASCII 


/*N/<00> 


.ASCII 


<00> 


.AsCII 


/*AT/ 


.ASCII 


/RAN/ 


.ASCII 


/SF'E/ 


.ASCII 


/R L / 


.ASCII 


/IM1/ 


.ASCII 


/T R/ 


.ASCII 


/LAC/ 


.ASCII 


/HtO/ 


.ASCII 


/*N/<00> 


.ASCII 


<00> 


.ASCII 


/*A| / 


.ASCII 


/RHO/ 


.ASCII 


/R 1 / 


.ASCII 


/IMI/ 


.ASCII 


/T R/ 


.ASCII 


/F.AC/ 


. ASC T I 


/HtO/ 


.ASCII 


/*N *00> 


.ASCII 


/*i\V/ 



) 



ZRGAMl 




RD/RX EXERCISER 


VO 1 . 6 




PROTECTION 


TARl.f 


005141 


lit! 


122 


105 


City. \AA 


103 


11/ 


126 


005 ia: 


105 


122 


101 


ooiuv 


102 


114 


105 


oo5i55 


04 


104 


122 


0051*0 


111 


12b 


105 


OOMol 


04 


105 


122 


005 1 66 


122 


11/ 


122 


oosia 


045 


116 


000 


0051/4 


045 


101 


125 


0051 7/ 


lib 


122 


105 


005202 


103 


11/ 


126 


005 '05 


105 


122 


101 


005210 


102 


114 


105 


00 VIS 


040 


103 


117 


0052 16 


116 


124 


122 


005221 


117 


114 


114 


005224 


105 


122 


040 


00522' 


105 


If. c. 


122 


005232 


117 


122 


045 


005235 


116 


000 


000 


OS 240 


045 


101 


106 


005245 


101 


111 


114 


00524b 


105 


104 


040 


005251 


124 


117 


040 


005254 


1C3 


11/ 


115 


00525? 


105 


040 


117 


005262 


116 


114 


111 


005265 


116 


105 


045 


0052 70 


116 


000 




005272 


045 


101 


106 


00527S 


101 


111 


114 


005500 


105 


104 


040 


005301 


124 


117 


040 


005306 


101 


103 


103 


005311 


105 


123 


123 


005314 


040 


105 


111 


005317 


124 


110 


105 


005322 


122 


040 


106 


005325 


HI 


122 


123 


0053*0 


124 


040 


11 / 


0053 33 


122 


040 


114 


005336 


101 


123 


124 


005541 


040 


124 


122 


005344 


101 


10 3 


113 


005 54/ 


040 


104 


125 


005 352 


122 


111 


116 


005355 


10/ 


040 


111 


005 3* »0 


1 16 


111 


124 


00536? 


04 5 


116 


000 


005 V.6 


04 5 


101 


104 


005', ,'1 


HI 


125 


11< 


0053/4 


040 


127 


122 



11 Apr -1984 11:56:01 
ll-Apr-19ti4 11:45:02 



VAX-11 Bllss-16 V4.0 579 

DI SK *USER2 : [ POWERS ] ZRQAOO . BL 1 j 6 



3EQ 0060 
Page 60 
C34) 



P. ACQ: 



P.ACR 



P.ACS 



P. ACT: 



.ASCII 


/NRF./ 


.ASCII 


/coy/ 


.ASCII 


/ERA/ 


.ASCII 


/BLE/ 


.ASCII 


/ OR/ 


.ASCII 


/IVfc/ 


.ASCII 


/ ER/ 


.ASCII 


/ROR/ 


.ASCII 


/*N/<00> 


.ASCII 


/*AU/ 


.ASCII 


/NRE/ 


.ASCII 


/cov/ 


.ASCII 


/ERA/ 


.ASCII 


/BLE/ 


.ASCII 


/ CO/ 


.ASCII 


/NTR/ 


.ASCII 


/OLL/ 


.ASCII 


/ER / 


.ASCII 


/ERR/ 


.ASCII 


/OR-*/ 


.ASCII 


/N/<OOwOO> 


.ASCII 


/*AK/ 


.ASCII 


/AIL/ 


.ASCII 


/FD / 


.ASCII 


/TO / 


.ASCII 


/COM' 


.ASCII 


/E 0/ 


.ASCII 


/NLI/ 


.ASCII 


/NE*/ 


.ASCII 


/N/<00> 


.ASCII 


/#AF/ 


.ASCII 


/All./ 


.ASCII 


/f!3 / 


.ASCII 


/ro / 


.ASCII 


/ACC/ 


.ASCII 


/ESS/ 


.ASCII 


/EI/ 


.ASCII 


/THh/ 


.ASCII 


/R f / 


.ASCII 


/IRS/ 


.ASCII 


/T 0/ 


.ASCII 


/R I / 


.ASCII 


/AM/ 


.ASCII 


/ T«/ 


.ASCII 


/ACK/ 


.ASCII 


/ on/ 


.ASCII 


/WIN/ 


.ASCII 


/o 1/ 


.ASCII 


/NIT/ 


.ASCII 


/«N' '00* 


.ASCII 


/#AD/ 


.ASCII 


/ 1SK/ 


•ASCII 


/ wr/ 



J!: 



7RQAN1 
VOL 6 

005 3. V 

005402 

005*4 OS 
005410 
005413 
0054 U> 

005420 
005423 
0054 26 
0054 51 
0054 34 
005437 
00544? 
005445 
00544h 
0054S0 

0054V 
005454 

005456 
005460 
0054^2 
005464 
005466 
0054 70 
0054 72 
0054/4 
005477 
005502 
005505 
005510 
005513 
005516 
005521 
005524 
005526 
005531 
005534 
00553/ 
005542 
00554S 
005550 
005553 
005556 
U 05561 
005562 
0055o ; , 
00 V- 5/0 
0055/3 
005'./*'. 
005601 
005604 
00560 ' 
005612 



111 
040 
117 
103 

104 
000 
04S 

117 

101 

040 

115 

11/ 

045 

000 

004760 

005002 

005032 

005052 

005106 

005136 

0051 /4 
005240 

0052 .V' 
005566 
005420 

04 5 

101 

I? ' 

040 

114 

040 

12/ 

124 

10/ 

045 

101 

116 

111 

l.U 

i?.A 

124 

l.'M 

124 

000 

045 

116 

105 

*. • - » 

12 5 

040 

101 

105 
116 



RD/RX EXERCISER 
PROTECTION TABLE 



1^4 
l.*?0 

124 
124 

045 
000 
101 
115 
116 
KM 
105 
1?5 
116 



116 
120 
105 
104 
101 
055 
101 
111 
000 
116 
3.06 
103 
1 17 
114 
105 
04 
201 
105 

lit. 
04 5 
1 30 
103 
105 
123 

122 
104 

ooo 



105 

li"?r> 

105 
105 
116 

103 
115 
104 
111 
040 
124 
000 



045 
11/ 
122 
105 
131 
040 
111 
116 

045 
125 
124 
116 
040 
12* 
123 
122 
104 

045 
101 
105 

111 

i;v 

J 24 
124 
045 



P.ACU: 



P.ACJ: 



P.ACV 



P . ACW 



P,ACX; 



; 



11 -Apr- 1984 11:56:01 
ll-Apr-1954 11:45:02 



VAX-11 Bliss -16 V4. 0-579 
DISK$USER2j[ POWERS ]ZRQAD0,bLl}6 



SEQ 0C61 

POQC 61 
(34) 



.ASCII 


/ITE/ 


, ASCII 


/ PR/ 


.ASCII 


/OTE/ 


.ASCII 


/CTFV 


.ASCII 


/D*N/ 


.ASCII 


< 00 > < 00 > 


.ASCII 


/*AC/ 


.ASCII 


/OMM/ 


.ASCII 


/AND/ 


.ASCII 


/ Tl/ 


.ASCII 


/ME / 


.ASCII 


/our/ 


.ASCII 


/*N/<00> 


.ASCII 


<00> 


.WORD 


P.ACK 


.UORO 


P. ACL 


.WORD 


P. ACM 


.WORD 


P . ACN 


.WORD 


P.ACO 


.WORD 


P.ACP 


.WORD 


P. ACQ 


.WORD 


P.ACR 


.WORD 


P.ACS 


.WORD 


P. ACT 


.WORD 


P.ACU 


.ASCII 


/tfNtf/ 


.ASCII 


/APO/ 


.ASCII 


/UER/ 


.ASCII 


/ DP/ 


.ASCII 


/LAY/ 


.ASCII 


/ / 


.ASCII 


/WAI/ 


.ASCII 


/TIN/ 


.ASCII 


/G/<00> 


.ASCII 


/*N*/ 


.ASCII 


/AFU/ 


.ASCII 


/NCI/ 


.ASCII 


/ION/ 


.ASCII 


/At. / 


.ASCII 


/TES/ 


.ASCII 


/T S/ 


.ASCII 


/TAR/ 


.ASCII 


/TtD/ 


.ASCII 


«■ 00 • 


. ASC 1 1 


/»N*/ 


. ASC 1 1 


/N»A/ 


.ASCII 


'1X1/ 


.ASCII 


/RC1/ 


.ASCII 


/SIR ' 


.ASCII 


/ 51/ 


.ASCII 


/ART/ 


.ASCI L 


n d*/ 


.ASCII 


.'fo/*00> 



K 



) 



ZRQAMJ. 

VOl.h 

O05M4 
0056 1 ' 
005622 
005625 
005650 
005633 
0056 56 
0056^1 
005644 
00564 7 
005^52 
005655 
005660 
005665 
005o66 
005671 
0056/4 

0056 7/ 
005700 
005703 
005 706 
005/11 
005714 
00571/ 
00572c? 
005725 
005/30 
005 735 

0057 36 
005 741 
005/44 
005 /4 7 
00575,' 
005/55 
005760 
005/6 5 
005/66 
0057/1 
0057 74 
005 7 7 / 

00600? 

006005 
006010 
006013 
006016 
0060 J 1 
006024 
00602 / 
006030 
00603 3 
006036 
00604 1 
006044 



RD/RX tXl.RCISER 
PROTECTION TABU. 



11 -Apr- 1984 11:56:01 
It -Apr -1964 11*45:02 



VAX -11 Bliss- 16 V4.0-579 

DISK SUSER2 ; [ POWFRS URQADO . BL 1 ; 6 



S£Q 006? 
Page 62 
C34; 



045 
116 
125 
040 
113 
070 
04 3 
106 
040 
10.-? 
105 
040 
040 
040 
040 
102 
105 
000 
045 
040 
110 
104 
122 
1?? 
055 
055 
106 
105 
11/ 
055 
04 5 
101 
040 
04 5 
124 
105 
122 
104 
04 
040 
101 
040 
122 
105 
040 
It?? 
1.24 
000 
045 
040 
1H 
101 
104 



lib 
045 
116 
104 
04S 
045 
040 
040 
043 
131 
123 
040 
11/ 
040 
04 3 
131 
123 

101 
055 
101 
040 
122 
123 
040 
123 
124 
122 
12? 
055 
116 
040 
040 
040 
131 
040 
10 f - 
12 3 
C40 

:.?2 

. 04 
040 
1 11 
\?5 

040 

: it 

105 

1)1 
123 
0*0 
121 
12? 



045 
101 
124 
123 
123 
101 
11/ 
040 
040 
124 
040 
04 3 
106 
040 
040 
124 
000 

040 
055 
122 
105 
11/ 
055 
055 
117 
040 
12? 
123 
000 
045 
04 3 
040 
040 
120 
040 
101 
040 
040 
105 
040 
12/ 
124 
040 
12 7 
124 
116 

040 
105 
104 
040 
126 



P.ACY 



P.AC/ 



P.ADA 



P.ADB 



ASC 1 1 


/*N#/ 


nscir 


/N*A/ 


ASCII 


/UNT/ 


ASCII 


' OS/ 


ASCII 


/K*5/ 


ASCII 


/8*A/ 


ASCII 


/it 0/ 


ASCII 


/F / 


ASCII 


/ t) / 


ASCII 


/BVT/ 


ASCII 


/F.S / 


ASCII 


/ it/ 


ASCII 


/ OF/ 


ASCII 


/ / 


ASCII 


/ it / 


ASCII 


/BYT/ 


ASCII 


/ES/<00> 


ASCII 


<00> 


ASCII 


/*A / 


ASCII 


/ / 


ASCII 


/HAR/ 


ASCII 


/D F/ 


ASCII 


/RRO/ 


ASCII 


/RS-/ 


ASCII 


/ • - / 


ASCII 


/ -SO/ 


ASCII 


/Y\ / 


ASCII 


/ERR/ 


ASCII 


/OPS/ 


ASCII 


/ -/<00> 


ASCII 


/#N*/ 


ASCII 


/A 0/ 


ASCII 


/ / 


ASCII 


/O / 


ASCII 


/T?P/ 


ASCII 


/F / 


ASCII 


/Rf.A/ 


ASCII 


/OS / 


ASCII 


/ / 


ASCII 


/ RF/ 


ASCII 


/AD / 


ASCII 


/ w/ 


ASCII 


/RII/ 


ASCII 


/FS / 


ASCII 


/ w / 


ASCII 


,'Rll 


ASCII 


/TbN/ 


ASCII 


<00> 


ASC 1 1 


/MA / 


ASC I I 


/ SF/ 


ASCII 


/l< 0/ 


ASC 1 1 


/AT / 


ASCII 


/DRV/ 



) 



V01.6 

00604 / 
00o052 
006055 

OObOoO 
00b 06 3 
OObObb 

0060 / 1 
006074 
00607 7 
00610? 
006105 
006 1 10 
006113 
006116 
006121 
006124 
00612/ 
006132 
006135 
006140 
006143 
006146 
006151 
00blS4 
00615/ 
006162 
006165 
006170 
006173 
006176 
006201 
006204 
006207 
006212 
006215 
006220 
006223 
006226 
006231 
006234 
006237 
00624 2 
006244 
00624 / 
006252 
006255 
006260 
00626 3 
006266 
0062 7 1 
0062/2 
006V/ 5 
006300 



RD'RX fcXhRCISLH 

PRUTLCTION TABLE 



11 Apr- 1<984 11:56:01 
ll-Apr-1904 11:45:02 



VAX- 11 Bliss 16 V4 ,0-579 
DISK*USER2: 1 POWERS ]ZRQAD0.BL1|6 



SEQ 



Page 63 
(34) 



040 
124 
105 
104 
040 
126 
123 
045 
101 
055 
055 
055 
055 
055 
055 
040 
055 
055 
055 
055 
055 
04 
055 
055 
055 
045 
055 
040 
055 
055 
055 
040 
055 
055 
055 
040 
055 
04 5 
104 
104 
123 
124 
045 
045 
04 5 
045 
045 
045 
04 5 
000 
045 
045 
045 



110 
040 
113 
101 
104 
040 
124 
116 
055 
040 
055 
055 
040 
055 
055 
055 
055 
055 
040 
055 
055 
055 
055 
055 
000 
101 
055 
055 
040 
055 
055 
055 
040 
055 
055 
055 
000 
116 
062 
064 
062 
000 
104 
132 

104 

101 
152 
101 
132 

104 
104 
104 



123 
123 
040 
124 
122 
110 
000 
045 
055 
055 
040 
055 
040 
055 
040 
055 
055 
055 
055 
055 
040 
055 
055 
055 
000 
040 
055 
055 
055 
040 
055 
055 
055 
040 
055 
055 
000 
045 
045 
045 
04'.) 

064 
063 
06 3 
054 
06 3 
054 
063 

064 

064 
064 



P. ADC: 



P. ADD: 



P.ADfc: 



P.ADF: 



P,AUb: 



.ASCII 


/ HS/ 


.ASCII 


/T 5/ 


.ASCII 


/*:!< / 


.ASCII 


/DAT/ 


.ASCII 


/ DR/ 


.ASCII 


/V H/ 


.ASCII 


/ST/«00> 


.ASCII 


/*N*/ 


.ASCII 


/A--/ 


.ASCII 


/- -/ 


.ASCII 


/ . . / 


.ASCII 


/ ■ - -/ 


.ASCII 


/- / 


.ASCII 


/ . . ./ 


.ASCII 


/- • / 


.ASCII 


/ - •/ 


.ASCII 


/ . ./ 


.ASCII 


/ - - •/ 


.ASCII 


/- -/ 


.ASCII 


/ - - - / 


.ASCII 


/ - - / 


.ASCII 


/ / 


.ASCII 


/- - ■/ 


.ASCII 


/ - - -/ 


.ASCII 


/■■A 00><00* 


.ASCII 


/*A / 


.ASCII 


/ - - - / 


.ASCII 


/ - / 


.ASCII 


/ -/ 


.ASCII 


/ - - / 


.ASCII 


/ - -/ 


.ASCII 


/ - -/ 


.ASCII 


/ -/ 


.ASCII 


/ / 


.ASCII 


/■■-■/ 


.ASCII 


/ - / 


.ASCII 


/ • / < 00 > < 00 > 


.ASCII 


/#N*/ 


.ASCII 


/D2#/ 


.ASCII 


/D4#/ 


.ASCII 


/S2#/ 


.ASCII 


/ i /<00> 


.ASCII 


/#D4/ 


.ASCII 


/rf/3' 


.ASCII 


/#03/ 


.ASCII 


/#A, / 


.ASCII 


/•/*/ 


.ASCII 


/*A, / 


.ASCII 


/rf/3/ 


. ASC 1 1 


<00> 


.ASCII 


/#D4/ 


.ASCII 


/*D4/ 


.ASCII 


/*U4/ 



M r ) 



ZRQAM1 

VOL 6 

00650? 

00630b 
006311 
006314 
00631? 
00632,: 
006324 
006327 
006332 
006335 
006340 
006343 
006346 
006351 
006354 
006357 
006362 
006365 
006370 
006373 
006376 
006401 
006404 
006407 
006412 
006415 
006420 
006423 
006426 
006431 
0064 34 
0064 3? 
00644? 
006445 
006450 
006453 
006456 
006460 
0^6463 
C ./6466 
0064 71 
0C6474 
0064 7 7 
006500 
006503 
006506 
006511 
006514 
006517 
00652? 
0065? S 
006530 
00653 3 



RD/RX EXERCISER 
PROTECTION TABLE 



04 5 
045 
045 
045 
045 
000 
045 
101 
040 
056 
103 
122 
040 
040 
040 
056 
056 
056 
040 
040 
040 
056 
056 
056 
045 
040 
040 
056 
064 
040 
056 
040 
040 
045 
045 
040 
000 
124 
*aq 

116 
125 
124 
000 
lib 
040 
117 
110 
122 
040 
115 
131 
11/ 
101 



104 
104 
104 
104 
104 
000 
116 
040 
040 
040 
116 
040 
040 
056 
056 
056 
056 
040 
040 
056 
056 
056 
056 
000 
101 
040 
040 
045 
045 
040 
040 
056 
040 
104 
101 
040 
000 
117 
115 
131 
116 
123 

117 

105 
125 
040 
105 
115 
11/ 
040 
122 
114 



064 
064 
064 
064 
064 

04 5 

056 
040 
040 
124 
040 
040 
04 
056 
056 
056 
040 
040 
040 
056 
056 
056 
000 
040 
056 
040 
104 
101 
040 
040 
040 
056 
064 
040 
056 

117 

101 
040 
111 
000 

124 

116 
10/ 
106 
105 
105 
122 
106 
040 
114 



P.ADH: 



P.ADI 



P.ADJ; 



P.ADK, 





ll-Apr-1984 11:56:01 




ll-Apr-1904 11:45:02 


.ascii 


/*D4/ 


.ASCII 


/*D4/ 


.ASCII 


/*D4/ 


.ASCII 


/*D4/ 


.ASCII 


/*D4/ 


.ASCII 


<00><00> 


.ASCII 


/*N*/ 


.ASCII 


/A ./ 


.ASCII 


/ / 


.ASCII 


/. / 


.ASCII 


/CNT/ 


.ASCII 


/R / 


.ASCII 


/ / 


./3CII 


/ . / 


.ASCII 


/ . ./ 


.ASCII 


/. . ./ 


.ASCII 


/. . ./ 


.ASCII 


/. / 


.ASCII 


/ / 


.ASCII 


/ . / 


.ASCII 


/ . ./ 


.ASCII 


/. . ,/ 


.ASCII 


/. . ./ 


.ASCII 


/ . /<00><00> 


.ASCII 


/#A / 


.ASCII 


/ ./ 


.ASCII 


/ 


.ASCII 


/.*D/ 


.ASCII 


/4*A/ 


.ASCII 


/ / 


.ASCII 


/. / 


.ASCII 


/ . / 


.ASCII 


/ ./ 


.ASCII 


/*D4/ 


.ASCII 


/*A / 


.ASCII 


/ . / 


.ASCII 


<00><00> 


.ASCII 


/TOO/ 


.ASCII 


/ MA/ 


.ASCII 


/Ni / 


.ASCII 


/UNI/ 


.ASCII 


/IS/<00> 


.ASCII 


<00> 


. ASC I 1 


/NOT/ 


.ASCII 


/ i N/ 


.ASCII 


/DUG/ 


.ASCII 


/H V' 


.ASCII 


/REE/ 


.ASCII 


/ ME/ 


.ASCII 


/NOR/ 


.ASCII 


/y y / 


. A'iCJl 


/OR / 


♦ASCII 


/Al I./ 



VAX -11 BUsG-16 V4.0 579 

DISK $USER2 ; [ POWERS JZRQADO . BL 1 ; 6 



3EQ 0064 
Poge 64 
(34) 



N5 



7RQAN1 




RD/RX EXERCISER 


VOL 6 




PROTECTION 


TABLF 


00653b 


117 


103 


101 


006541 


1?4 


111 


115 


006544 


107 


040 


122 


00654 / 


105 


101 


104 


00655,? 


05/ 


12/ 


122 


006555 


111 


124 


105 


006560 


040 


102 


125 


006563 


10b 


:ob 


105 


006566 


1?? 


123 


000 


006571 


000 






00657? 


1?? 


105 


107 


006575 


Ill 


1?3 


124 


OObbOO 


105 


1?? 


040 


006603 


105 


130 


111 


006606 


123 


1?4 


105 


006611 


lib 


103 


105 


006614 


C40 


1?4 


105 


00661/ 


123 


1?4 


040 


0066?? 


106 


101 


111 


006625 


114 


105 


104 


006630 


000 


000 




00663? 


126 


105 


103 


006635 


1?4 


117 


122 


006640 


04 


1?4 


105 


O0bb4 3 


1?3 


124 


040 


00664b 


10b 


101 


111 


006651 


114 


105 


104 


008654 


000 


000 




006656 


10? 


1?? 


040 


OObbbl 


114 


105 


126 


006664 


105 


114 


040 


0066b 7 


124 


105 


123 


00b :>/? 


1?4 


040 


106 


00^.6 /S 


101 


111 


114 


006 /OO 


10S 


104 


000 


006703 


000 






006 /04 


111 


116 


111 


006 70/ 


124 


040 


123 


00b 71? 


105 


1?1 


1?5 


006 715 


105 


lib 


103 


006 /?0 


105 


040 


10b 


O0b/23 


101 


111 


114 


O0b/?b 


105 


104 


000 


00b 7 31. 


000 






006/3? 


in*- 


1U1 


1?4 


oe ',/:>-> 


101 


114 


o-n) 


006/40 


103 


11/ 


lib 


O0b/4 3 


1?4 


1?.' 


u/ 


006/46 


114 


114 


105 


00b 75 1 


1?? 


040 


105 


O0»». 54 


1?/ 


1?? 


11/ 


00b 75 ' 


1?? 


000 


000 


00676? 


117 


lib 


114 



11 -Apr- 1984 11 :56 s 01 
ll-Apr-1964 11:45:02 



VAX-11 BlIss-16 V4.0 5/9 
DISK$USER2 5 [P0WERS]ZRQAD0.6L1{6 



SEQ 0065 
Page 



f.' 



(34) 



P.ADL 



P . ADM 



P . AON 



P.AUO 



P.ADP 



.ASCII 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
■ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCIT 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 

sen 
sen 
\cu. 
sen* 

SCIi 



A 

A' 

A' 

A' 

A' 



P.ADQ 



.ASCII 
.ASCII 
.ASCI I 
.ASCI J 
.ASCII 



/OCA/ 

/TIN/ 

/G R/ 

/EAD/ 

<57>/WR/ 

/1TL/ 

/ BU/ 

/FEE/ 

/RS/<00> 

<00> 

/REG/ 

/is:/ 

/ER / 

/EXI/ 

/STE/ 

/NCE/ 

/ TE/ 

/S T / 

/FAI/ 

/LEO/ 

<00^<00> 

/VEC/ 

/TOR/ 

/ IF./ 

/SI / 

/FAI/ 

/LED/ 

<00><00> 

/OR / 

/LEV/ 

/EL. / 

/Tf S/ 

/T F/ 

/All./ 

/E0/<00> 

<-00> 

/INI/ 

/T S/ 

/EUU/ 

/ENC/ 

/E F/ 

/ED/<00* 
<00> 
/\ AT/ 

/Al / 

/CON/ 

/IRQ/ 

/I L f / 

/R t- / 

/RRO/ 

/H'« 00><00> 

/ONI./ 



Ii». 



/RlJrtMl 




HO R\ LXtHClSLH 


V01 .6 




PROTECTION 


TARl t 


OOb *^S 


ill 


lib 


10S 


006 r V 


040 


10b 


101 


006 •* 7 * 


111 


114 


10S 


Ov> 7 ■> 


104 


000 




00 .'000 


1**7 


l.V 


111 


00 '00 5 


1/4 


10S 


OSS 


00 \W 


1/0 


1// 


11 7 


00 'on 


1/4 


10S 


105 


00 '01** 


1/4 


04 


105 


00 *0 1 ' 


1\ ' 


lib 


I Ob 


00 \v/ 


114 


111 


105 


00 *0/S 


1.4 


000 


000 


00*050 


101 


105 


105 


00 '05 5 


10S 


1/5 


1/5 


00\\ib 


040 


106 


101 


00*041 


111 


114 


10S 


00 .'044 


104 


000 




00 704 b 


10* 


101 


1/4 


OO'OM 


101 


114 


040 


0070S4 


ill 


OS 7 


117 


00 'OS * 


04 


10S 


1// 


00 '06/ 


1// 


117 


1// 


00 '06 S 


000 






00 '066 


104 


111 


1/5 


co *o:i 


115 


040 


1/4 


00 70 74 


151 


1/0 


10S 


00*07* 


04 


1/S 


lib 


00710.' 


115 


lib 


117 


00 71 OS 


1/7 


lib 


040 


00 7110 


1/4 


117 


040 


00 ' 1 1 5 


10S 


150 


"OS 


00 7Ue 


1// 


105 


111 


00 7 1 J 1 


1/5 


10S 


I// 


00 '1/4 


000 


000 




00 7 1 >, 


106 


101 


111 


00 .'151 


114 


10S 


104 


00 7 1 54 


040 


1/4 


11 7 


00 7 1 », / 


040 


1/5 


10S 


00 '14.' 


lib 


104 


040 


00/14S 


1/5 


10S 


1/4 


00 * 1 so 


OSS 


105 


117 


00 7 1 S 5 


116 


1/4 


l.V 


OU71S6 


11 7 


114 


114 


OO *l6l 


10S 


1// 


OSS 


007164 


105 


no 


101 


00 7 It, 7 


1// 


101 


105 


0071 7,' 


1/4 


10S 


l// 


uOi'l *S 


111 


1/3 


1/4 


00 7»'00 


1) 1 


105 


1/5 


00*20 5 


040 


105 


117 


00 V06 


ll'i 


US 


101 


*"'<> 7, 1 \ 


lit 


104 


000 


007^14 


U'i 


10S 


UA 



P . ADR j 



P.ADSt 



P.ADT 



P.ADUj 



P . AOV : 



P.ADW; 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCI I 
. ASC I I 
.ASCI I 
.ASCI! 
. A..C11 
.ASCII 



11 
11 

/ INI/ 

/ FA/ 

/lit/ 

/D/<00^ 

/WRI / 

/TF / 

/PRO/ 

/TfC/ 

/T C/ 

/ONf / 

/l.IC/ 

/ T / * 00 •» < 00 » 

/ACC/ 

/iss/ 

/ FA/ 

/n.i / 

/D/*00* 

/FAT/ 
/AL / 

/i/*s;»/u/ 
/ tR/ 

/ROR/ 

<00> 

/OIS/ 

/H TV 
/I Pi 
/ UN' 
/KNO/ 
/UN / 
/TO • 

/fcxt-/ 

/RCI/ 
/Sf-.R/ 
< 00*«00> 

/' At ' 
/I J I)/ 
/ TO/ 
/ sl- 
/NO / 
/St !/ 
/ CO/ 
/NTM/ 

/oi ; ' 

/" R 

'Cm A/ 

/RAO' 
• WW/ 
/IS! • 
/ICs 

/ CO- 
/MMA ' 

/Nn «oo^ 

/StT/ 



Apr l«*rt4 Ut*>6:01 VAX 11 HI Inn lb V4,0 S/ r * 
App-19H4 Ui45tOJ DISKtUSER?i[P0UhPSURUAD0.BLl|6 



GEO 0066 

P©9« 66 

(34; 



r.f 



/HUAMi 




HO R\ k 


\\ RClSfR 


WM .6 




PROH CTION TAHl \ 


00 Yl * 


0S5 


105 


117 


oo.wv 


116 


U4 


UY 


oo.\\ %, » 


117 


114 


114 


OO'-YJO 


105 


i;y 


055 


00 Y3 5 


103 


110 


101 


OO.'iW 


l»Y 


101 


105 


00'.V41 


UM 


105 


UV 


00 Y4 4 


111 


U5 


U4 


00 Y4 * 


111 


105 


U5 


oo\^v 


040 


1JY 


105 


oo/ t :55 


1>\5 


I At 


117 


00 .V60 


116 


U5 


105 


00.\>5 


040 


110 


101 


00 Y^6 


u:5 


040 


10c 1 


00 Vl 


101 


104 


040 


00 Y'4 


105 


116 


104 


oo Y * : 


105 


117 


104 


oo / 50.? 


105 


040 


117 


00/505 


UV 


040 


106 


00*510 


114 


101 


107 


00 7515 


l?5 


040 


111 


00 -'5 U. 


116 


040 


105 


00 Wl 


u-v 


UY 


117 


00 ■' 3.} 4 


KY 


000 




00 75, '6 


10* 


101 


111 


00/551 


114 


105 


104 


00 7 5 54 


040 


1?A 


117 


00 75 5 * 


04 


u\< 


105 


00?54 t > 


116 


104 


040 


00754S 


117 


116 


055 


00 7 550 


114 


111 


116 


00 7 353 


105 


040 


105 


00'* 556 


117 


115 


115 


007561 


101 


116 


104 


00/564 


000 


000 




OO'^f, 


11 7 


116 


055 


00 73 71 


114 


ill 


116 


00 7 3 74 


105 


040 


1?«? 


007 5 77 


105 


lc>3 


K'O 


00 741V 


117 


116 


UM 


00 740 r . 


105 


040 


110 


00 74 10 


101 


IrM 


040 


00 741 3 


10c? 


101 


104 


00 '4 If. 


040 


105 


116 


oo/4,:i 


104 


103 


11/ 


00 74114 


104 


105 


000 


00/4.'/ 


000 






00/4 50 


117 


116 


055 


00 74 V', 


114 


111 


116 


00 My* 


105 


040 


KY 


00/441 


105 


U5 


UO 


00/444 


11/ 


116 


l.M 


00740 7 


105 


040 


no 



P.ADX: 



f'.Aui 



M.AU^t 





11 Apr-1 < )H4 1 I j 56 • 01 




11 Apr 19H4 Uj45i02 


.ascii 


/ CO/ 


.ASCII 


/NTR/ 


.ASCII 


/OLL./ 


.ASCII 


/e.R / 


.ASCII 


/CHA/ 


.ASCII 


/RAC/ 


.ASCII 


/TtR/ 


.ASCII 


/IST/ 


.ASCII 


/res/ 


.ASCII 


/ RE/ 


.ASCII 


/SPG/ 


.ASCII 


/NStV 


.ASCII 


/ HA/ 


.ASCII 


/S B/ 


.ASCII 


/AD / 


.ASCII 


/END/ 


.ASCII 


/COD/ 


.ASCII 


/e o/ 


.ASCII 


/R F/ 


. asc r i 


/LAO/ 


.ASCII 


/S 1/ 


.ASCII 


/N h/ 


.ASCII 


/RRO/ 


.ASCII 


/R/<00> 


.ASCII 


/► AI/ 


.ASCII 


/l.FD/ 


.ASCII 


/ TO/ 


.ASCII 


/ SE/ 


.ASCII 


/NO / 


.ASCII 


/ON ' 


.ASCII 


/t IN/ 


.ASCII 


/fc C/ 


.ASCII 


/OMM/ 


.ASCII 


/AND/ 


.ASCII 


<00»<00> 


.ASCII 


/ON / 


.ASCII 


/I IN/ 


.ASCII 


/E «/ 


.ASCII 


/fcsp/ 


.ASCII 


/ONS/ 


.ASCII 


/I H.' 


. ASC 1 1 


/AS 


.ASCII 


/HAD ' 


.ASCII 


/ EN/ 


. rt ,C 1 1 


■DCO' 


.ASCII 


01 <00* 


. ASC 1 1 


« 00 » 


.ASCII 


/ON 


.ASCII 


/t IN 


.ASCII 


/I U- 


.ASCII 


s\ sp/ 


.ASCII 


/ONS/ 


• AiiCIi 


^t H/ 



VAX 11 B 1 ; 9 «i 16 V4.0 5/ f # 

DISK *U5ER£ : [ POWERS 1ZHUAD0 .BL 1 {6 



jECI 006/ 
P«0« 6 / 

f 54; 



V. 



JRUAMl 




RD/RX E-.XtRCIStK 


VOl.b 




PROTECTION 


TAB LI 


00 -MV 


101 


125 


040 


00 7455 


1?5 


116 


113 


00 74 b0 


lie 


117 


127 


0074*,? 


116 


040 


104 


00 7466 


105 


126 


111 


oo 74 : i 


105 


105 


000 


00 "4:4 


111 


05 7 


117 


00 74 : : 


040 


122 


105 


00 750? 


121 


125 


105 


007505 


1?3 


124 


040 


00 7 MO 


10b 


101 


111 


00 7513 


114 


105 


104 


00 7516 


000 


000 




00 7520 


045 


101 


115 


00 75 J 5 


117 


T22 


105 


00752b 


040 


124 


uo 


00 7531 


101 


116 


040 


00 7554 


045 


104 


062 


00:537 


045 


101 


040 


00754? 


125 


116 


111 


007545 


124 


123 


040 


00 7550 


123 


120 


105 


007553 


103 


111 


106 


00 755b 


111 


105 


104 


00 7561 


000 






00756? 


045 


101 


052 


007565 


040 


116 


117 


007570 


040 


122 


105 


007573 


123 


120 


117 


007576 


116 


123 


105 


007601 


040 


101 


124 


00 7604 


040 


101 


104 


00760 7 


104 


122 


105 


00 7612 


125 


125 


040 


00 7615 


045 


117 


066 


007620 


000 


000 




00 7622 


045 


101 


052 


00 7625 


040 


111 


116 


007650 


103 


117 


122 


007633 


122 


105 


103 


00 7636 


124 


040 


10? 


007641 


122 


040 


114 


007644 


105 


126 


105 


00 764 7 


114 


040 


106 


00 765? 


117 


12? 


040 


00 7655 


104 


122 


111 


00 7660 


126 


105 


040 


00 766? 


045 


117 


066 


007666 


000 


000 




00 76 70 


04 5 


101 


05? 


00 76 73 


040 


123 


124 


00 76 7o 


105 


120 


040 


007701 


045 


104 


061 



P.AEA? 



P.AEB; 



P.AECt 



P.AEDs 



P.AEbs 





11 Apr- 1984 11:56:01 




Il-Ap*».l9tt4 11j45j02 


.ASCII 


/AS / 


.ASCII 


/UNK/ 


.ASCII 


/NOW/ 


.ASCII 


/N 0/ 


.ASCII 


/tvi/ 


.ASCII 


/CF/<00> 


.ASCII 


/I/<57>/0/ 


.ASCII 


/ RE/ 


.ASCII 


/Que/ 


.ASCII 


/ST / 


.ASCII 


/FAI/ 


.ASCII 


/LED' 


.ASCII 


< 00 >< 00 > 


.ASCII 


/*AM/ 


.ASCII 


/ORE/ 


.ASCII 


/ TH/ 


.ASCII 


/AN / 


.ASCII 


/*D2/ 


.ASCII 


/*A / 


.ASCII 


/UNI/ 


.ASCII 


/TS / 


.ASCII 


/SPK/ 


.ASCII 


/CIFV 


.ASCII 


/IED/ 


.ASCII 


<00> 


.ASCII 


/*A*/ 


.ASCII 


/ NO/ 


.ASCII 


/ RE/ 


.ASCII 


/SPO/ 


.ASCII 


/NSE/ 


.ASCII 


/ AT/ 


.ASCII 


/ AD/ 


.ASCII 


/PRE/ 


.ASCII 


/SS / 


.ASCII 


/*06/ 


.ASCII 


< 00 '< 00 * 


.ASCII 


/*A*/ 


.ASCII 


/ IN' 


.ASCII 


/COR/ 


.ASCII 


/REC/ 


.ASCII 


/T B/ 


.ASCII 


/R 1/ 


.ASCII 


n vi- / 


.ASCII 


/i v ■ 


.ASCII 


/()H / 


.ASCII 


/DRW 


.ASCII 


/ VI / 


.ASCII 


/*0b, 


.ASCII 


* 00 ■ « 00 > 


.ASCII 


/*A*/ 


.ASCII 


/ 5 I •■ 


.ASCII 


/t P / 


.ASCII 


/*0 1 / 



VAX 11 HI J so 16 V4.0 5 7 ( # 

DISK SUSER2 j [POWERS J/RQADO.Bl 1 ;6 



StU 0068 
Page 6« 
C 54 ) 



t 



/RQAM1 
VOL 6 

00 7 704 

oor^o: 

0077h? 

00/ as 

00 7 720 
007 722 

oo .- rjs 

00 7 750 
00 7 75? 
00 7 73b 
00 '741 
007 744 
00 7 74 7 
00 7 75 J 
00 7 755 

007 760 
00 7 762 
00 7 76 5 
00 7 7^0 

00 7 7 73 
007 776 
010001 
010004 
010007 
010012 
010015 
010016 
010021 
fUOOctf 
010027 
010032 
010055 
010040 

01004 5 
010046 
010051 
010054 

01005 7 
010062 
010065 
010070 
0100/5 
0100 76 
010101 
010104 
010107 
010U2 
010115 
010120 
010125 
010126 
010151 
010134 



RO/RX EXERCISER 

PROTECTION TABLE 



11 -Apr -1984 11:56:01 
ll-Apr-19U4 11:45:02 



VAX -11 Dl \sh 16 V4.0 5 79 
DISKIUSER2: [POWERS ]/RQAD0.BLii6 



SfcQ 0069 
Po©« 69 
(34) 



045 
122 
104 
122 
122 
045 
04 
104 
101 
11" 
040 
117 
104 
126 
045 
000 
045 

040 

123 
104 
101 
105 
040 
106 
116 
000 
045 
040 
111 
040 
066 
040 
124 
122 
105 
111 
040 
115 
116 
120 
115 
125 
045 
040 
125 
104 
101 
105 
04 
04 
105 
101 
111 



101 
105 
040 
122 

000 
101 
102 
040 
040 
104 
106 
115 
122 
105 
117 
000 
101 
104 
115 
062 
040 
116 
117 
114 
105 

101 

104 
126 
045 
045 
116 
040 
117 
125 
116 
105 
115 
104 
101 
105 
000 
101 
104 
11? 
062 
040 
116 
124 
124 
040 
126 
114 



040 
101 
105 
117 

052 

101 
123 
105 
105 
122 
040 
111 
040 
066 

052 

111 
045 
045 
127 
124 
106 
111 
000 

052 
122 
105 
117 
101 
117 
120 
105 
125 
107 
117 
101 
040 
105 
124 
000 
052 
111 
045 
045 
127 
124 

11 ' 
110 
04 J 

101 
101 



P.AEF 



P. AEG 



P.AEH; 



P.AEI: 



.ASCII 


/*A / 


.ASCII 


/REA/ 


.ASCII 


/D E/ 


.ASCII 


/RRO/ 


.ASCII 


/R/<00^ 


.ASCII 


/*A*/ 


.ASCII 


/ DA/ 


.ASCII 


/o s/ 


.ASCII 


/A c/ 


.ASCII 


/ODE/ 


.ASCII 


/ ER/ 


.ASCII 


/OM / 


.ASCII 


/DRI/ 


.ASCII 


/VE / 


.ASCII 


/*06/ 


.ASCII 


<00><00> 


.ASCII 


/*A*/ 


.ASCII 


/ 01/ 


.ASCIT 


/SK#/ 


.ASCII 


/D2#/ 


.ASCII 


/A W/ 


.ASCII 


/ENT/ 


.ASCII 


/OF/ 


.ASCII 


/ELI/ 


.ASCII 


/NE/<00* 


.ASCII 


<00> 


.ASCII 


/*A*/ 


.ASCII 


/ OR/ 


.ASCII 


/IVE/ 


.ASCII 


/ #0/ 


.ASCII 


.'6*A/ 


.ASCII 


/ NO/ 


.ASCII 


/T P/ 


.ASCII 


/ROC/ 


.ASCII 


/ESS/ 


.ASCII 


/ING/ 


.ASCII 


/ CO/ 


.ASCII 


/MM A/ 


.ASCII 


/NO / 


.ASCII 


/PAC/ 


.ASCII 


/KE T / 


.ASCII 


/S/<00"»<00> 


.ASCII 


/*A*/ 


.ASCII 


/ 01 ' 


.ASCII 


/'*>K»/ 


.ASCII 


/()2*/ 


.ASCII 


/A W/ 


.ASCII 


/ENT/ 


.ASCII 


/ ID/ 


.ASCII 


/ TH/ 


. ASC I I 


/E *•/ 


.ASCII 


/AVA/ 


4 A5CI1 


/ILA/ 



h 



ZRQAMl 

V01, 6 

0101?/ 

01014c? 
010145 
010150 
010152 
010155 
OlOlbO 
0101b? 
01016b 
010171 
010174 
0101 7 7 
010202 
010205 
010210 
01021? 
010216 



010227 

010252 
010255 
010240 
010245 
010246 
010251 
010254 
010257 
010262 
010265 
010270 
010275 
0102 76 
010501 
010504 
010506 
010511 
010514 
010517 
010522 
010525 
010550 
010555 
010556 
010541 
010544 
010547 
010552 
010555 
010560 
01056? 
01056b 
010570 



RD/RX EXERCISER 
PROTECTION TABLE 



11 -Apr- 1984 11:56:01 
ll-Apr-1904 11:45:02 



VAX-11 Bliss-16 V4. 0-579 
DISK$USER2:[ POWERS ]ZRQAD0,BLls6 



SEQ 0070 
Page 70 
(34) 



102 
042 
124 
105 
040 
125 
105 
107 
152 
040 
125 
10 7 
124 
105 
040 
125 
105 
107 
152 
040 
116 
105 
117 
111 
040 
125 
105 
107 
152 
040 
124 
116 
105 
101 
000 
040 
125 
105 
10 7 
152 
040 
124 
116 
101 
105 
040 
125 
105 
107 
152 
040 
116 
040 



114 

040 
101 
000 
055 
116 
105 
116 
105 
115 
125 
105 
151 
000 
055 
116 
105 
116 
105 
105 
116 
124 
116 
104 
055 
116 
105 
116 
105 
122 
125 
040 
125 
107 
000 
055 
116 
105 
116 
105 
122 
125 
040 
105 
124 
055 
116 
105 
116 
105 
10? 
000 
055 



105 
125 
124 

040 
122 
117 
111 
104 
105 
101 
040 
120 
000 
040 
122 
117 
111 
104 
117 
105 
111 
040 
000 
040 
122 
117 

111 
104 
105 
122 
115 
125 
105 

040 
122 
117 

111 
104 
105 
122 
120 
115 
000 
040 
122 
117 
111 
104 
1 22 

040 



P.AEJj 



P . AEK 



P.AEL 



P . AEM 



P.AEN 



P.AEO 



, ASCII 


/BL.L/ 


.ASCII 


/" s/ 


.ASCII 


/TAT/ 


.ASCII 


/E/<00^ 


.ASCII 


/ - / 


.ASCII 


/UNR/ 


.ASCII 


/ECO/ 


.ASCII 


/GNI/ 


.ASCII 


/ZED/ 


.ASCII 


/ ME/ 


.ASCII 


/SSA/ 


.ASCII 


/GE / 


.ASCII 


/TYP/ 


.ASCII 


/F./<00><00> 


.ASCII 


/ - / 


.ASCII 


/UNR/ 


.ASCII 


/ECO/ 


.ASCII 


/GNI/ 


.ASCII 


/ZEO/ 


.ASCII 


/ CO/ 


.ASCII 


/NNE/ 


.ASCII 


/CTI/ 


.ASCII 


/ON / 


.ASCII 


/ID/<00> 


.ASCII 


/ - / 


.ASCII 


/UNR/ 


.ASCII 


/ECO/ 


.ASCII 


/GNI/ 


.ASCII 


/ZED/ 


.ASCII 


/ RE/ 


.ASCII 


/TUR/ 


.ASCII 


/N M/ 


.ASCII 


/ESS/ 


.ASCII 


/AGE/ 


.ASCII 


<00><00> 


.ASCII 


/ - / 


.ASCII 


/UNR/ 


.ASCII 


/ECO/ 


.ASCII 


/GNI/ 


.ASCII 


/ZED/ 


.ASCII 


/ RE/ 


.ASCII 


/TUR/ 


.ASCII 


/N P/ 


.ASCII 


/ACK/ 


.ASCII 


/FT/<00> 


.ASCII 


/ / 


.ASCII 


/UNR/ 


.ASCII 


n co/ 


.ASCII 


/GNI/ 


.ASCII 


/ZEO' 


.ASCII 


/ CM' 


. ASC 1. 1 


/N/<00> 


.ASCII 


/ / 



G6 



ZRQAN1 

VOL 6 

0105:? 

010? 7*. 
010401 

010404 
010407 
0104U'? 
0104 15 
010420 
010423 
010426 
0104 51 
010454 
010437 
0.044? 
010445 
01 04 SO 
010455 
01 04 56 
010461 
O10464 
1U0467 
01.04 7? 
010475 
010500 
C 10505 
010506 
010511 
010514 
010517 
010522 
010525 
010530 
010555 
010534 
010537 
01054? 
01054S 
010550 
010553 
010556 
010561 
010564 
010567 
01057? 
0105/5 
010600 
010603 
010606 
010611 
010614 
01061 .' 

oio*.;v 

010625 



RD/RX EXERCISER 
PROTECTION TABLE 



125 
105 
107 
152 
040 
105 
105 
040 
115 
120 
124 
125 
103 
105 
122 
040 
104 
040 
101 
125 
117 
040 
122 
040 
125 
105 
10/ 
152 
040 
101 
123 
117 
000 
040 
114 
040 
123 
103 
120 
105 
122 
040 
104 
040 
123 
103 
120 
105 
1?? 
040 
1?5 

:o? 

040 



116 
105 
116 
105 
117 
117 
000 
055 
125 
040 
101 
125 
117 
040 
122 
055 
125 
125 
124 
040 
104 
105 
000 
055 
116 
103 
116 
105 
123 
124 
040 
104 

055 

102 
110 
124 
117 
101 
040 
122 
055 
102 
110 
124 
11/ 
101 
040 
12? 
055 
116 
114 
124 



122 
117 
111 
104 
120 
104 
000 
040 
103 
123 
124 
040 
104 
105 
000 
040 
120 
124 
125 
103 
105 
122 
000 
040 
12? 
117 
111 
104 
124 
125 
103 
105 

040 
116 
117 
040 
115 
122 
105 
000 
040 
116 
117 
040 
115 
122 
105 
000 
040 
101 
105 
117 



P.AEP: 



P.AEQ: 



P.AER: 



P.AES: 



P.AET} 



P.AEUj 





11 Apr- 1984 11:56:01 




U-Apr~19a4 11:45:02 


.ASCII 


/UNR/ 


.ASCII 


/ECO/ 


.ASCII 


/GNI/ 


.ASCII 


/ZED/ 


.ASCII 


/ op/ 


.ASCII 


/con/ 


.ASCII 


/E/<00><00> 


.ASCII 


/ - / 


.ASCII 


/MSC/ 


.ASCII 


/P s/ 


.ASCII 


/TAT/ 


.ASCII 


/US / 


.ASCII 


/COD/ 


.ASCII 


/t E/ 


.ASCII 


/RR/<00> 


.ASCII 


/ - / 


.ASCII 


/OUP/ 


.ASCII 


/ 51/ 


.ASCII 


/ATU/ 


.ASCII 


/S C/ 


.ASCII 


/ODE/ 


.ASCII 


-' ER/ 


.ASCII 


/R/<00wO0> 


.ASCII 


/ - / 


.ASCII 


/UNR/ 


.ASCII 


/ECO/ 


.ASCII 


/GNI/ 


.ASCII 


/ZED/ 


.ASCII 


/ ST/ 


.ASCII 


/ATU/ 


.ASCII 


/s C/ 


.ASCII 


/ODE/ 


.ASCII 


<00> 


.ASCII 


/ / 


.ASCII 


/LBN/ 


.ASCII 


/ HO/ 


.ASCII 


/ST / 


.ASCII 


/COM/ 


.ASCII 


/PAR/ 


.ASCII 


/E E/ 


.ASCII 


/RR/<00> 


.ASCII 


/ / 


.ASCII 


/DON/ 


.ASCII 


/ HO/ 


.ASCII 


/ST / 


.ASCII 


/COM/ 


.ASCII 


/PAR/ 


.ASCII 


/* F/ 


.ASCII 


/RR/<00> 


.ASCII 


/ 


. ASC 1 1 


/UNA/ 


.ASCII 


/fcJLJ / 


.ASCII 


/ TO/ 



VAX -11 Bllss-16 V4. 0-579 
DISK5USER2: [ POWERS ]ZRQAD0.BL1}6 



SEQ 0071 
Poq« 71 
(34) 



Hf 



ZRQAM1 




RD/RX tXERCISER 


V01. 6 




PROTECTION 


TABLE 


010650 


040 


114 


117 


010655 


101 


104 


040 


01 Ob 56 


104 


125 


120 


010641 


040 


115 


105 


010644 


104 


111 


101 


01064 7 


000 






010650 


040 


055 


040 


010655 


105 


122 


122 


010656 


040 


111 


116 


010661 


040 


104 


125 


010o64 


120 


040 


120 


01066 7 


113 


124 


040 


010672 


127 


110 


105 


010675 


116 


040 


125 


01 0700 


123 


111 


116 


010/03 


107 


040 


105 


010706 


124 


114 


122 


010711 


040 


114 


103 


010714 


040 


120 


12c' 


01071/ 


117 


107 


000 


01072? 


045 


101 


052 


010725 


040 


104 


ill 


010730 


123 


113 


045 


010733 


104 


062 


000 


010 736 


045 


101 


111 


010741 


116 


126 


101 


010744 


114 


111 


104 


010747 


040 


103 


117 


010752 


115 


115 


101 


010755 


116 


104 


000 


010760 


045 


101 


103 


010763 


117 


115 


115 


010 766 


101 


116 


104 


010/71 


040 


101 


102 


0107 74 


117 


122 


124 


010777 


105 


104 


000 


011002 


045 


101 


125 


011005 


116 


111 


124 


011010 


040 


117 


106 


01101 1 


106 


114 


111 


011016 


116 


105 


000 


011021 


000 






011022 


045 


101 


124 


011025 


122 


101 


116 


011070 


123 


in 


124 


011031 


111 


117 


116 


011036 


040 


124 


1 1/ 


011041 


040 


101 


126 


011044 


101 


111 


114 


01104/ 


101 


102 


114 


011052 


105 


040 


121 


0110*. 5 


124 


101 


124 


011060 


105 


000 





P.AEV: 



P.AEW; 



P,AEYs 



P.AEZ: 



P.AFAt 



P^AFBs 





11 


-Apr-1984 


11:56:01 




11 


-Apr-19«4 


Ili45:02 


ASCII 


/ 10/ 






ASCII 


/AD / 






ASCII 


/OUP/ 






ASCII 


/ ME/ 






ASCII 


/OIA/ 






ASCII 


<00> 






ASCII 


/ - / 






ASCII 


/F.RR/ 






ASCII 


/ IN/ 






ASCII 


/ DU/ 






ASCII 


/P P/ 






ASCII 


/KT / 






ASCII 


/UHF./ 






ASCII 


/N U/ 






ASCII 


/SIN/ 






ASCII 


/G C/ 






ASCII 


/TLR/ 






ASCII 


/ l.C/ 






ASCII 


/ PR/ 






ASCII 


/0G/<00> 






ASCII 


/*A*/ 






ASCII 


/ 01/ 






ASCII 


/SK#/ 






ASCII 


/D2/<00> 






ASCII 


/*AI/ 






ASCII 


/NVA/ 






ASCII 


/LID/ 






ASCII 


/ CO/ 






ASCII 


/MMA/ 






ASCII 


/ND/<00> 






ASCII 


/* AC / 






ASCII 


/OMM/ 






ASCII 


/AND/ 






ASCII 


/ AB/ 






AbClI 


/OUT/ 






ASCII 


/ED/<00> 






ASCII 


/*AU/ 






ASCII 


/NIT/ 






ASCII 


/ OK/ 






ASCII 


/FLI/ 






ASCII 


/NF./<00> 






ASCII 


<00^ 






ASCII 


/*AT/ 






ASCII 


/RAN/ 






ASCII 


/St 1/ 






ASCII 


/ION/ 






ASCII 


/ TO/ 






ASCII 


/ AV/ 






ASCII 


/All / 






ASCII 


/AR1 / 






ASCII 


/( s/ 






ASCII 


/ 1 A I / 






ASCII 


/F/<00^ 







VAX-11 Bliss-16 V4.0 579 
DISKJUSER2: [POWERS ]ZRQAD0.BLlj6 



SEQ 0072 
Page 72 
(34) 



h 



ZRQAM1 
V01. 6 

11062 
011065 
011070 
01107? 
01107b 
011101 
011104 
011107 
011110 

onus 

011116 
011121 
011124 
Oil 12- * 
011132 
011135 
011140 
011143 
011146 
011151 
011154 
011157 
011162 
011165 
01U70 
011173 
011176 
011200 
011203 
011206 
011211 
011214 
011217 
011222 
011225 
011230 
011233 
011234 
011237 
011242 
011245 
011250 
011253 
011256 
011260 
011263 
011266 
011271 
0112/4 
0112/6 
011301 
011304 
01130 7 



RO/RX EXERCISER 
PROTECTION TABLE 



045 
105 
101 
117 
101 
105 
117 
000 
04 5 
122 
105 
122 
105 
105 
045 
105 
103 
103 
120 
105 
122 
122 
04 5 
101 
040 
122 
000 
045 
117 
040 
106 
122 
103 
123 
105 
117 
000 
045 
11/ 
122 
114 
040 
122 
000 
045 
122 
105 
122 
122 
045 
105 
101 
040 



101 
104 
040 
122 
124 
122 
122 

101 
111 
055 
11/ 
103 
104 
101 
126 
105 
117 
101 
040 
122 
000 
101 
124 
105 
117 
000 
101 
123 
102 
106 
040 
103 
123 
122 
122 

101 

116 
117 
105 
105 
117 
000 
101 

111 

040 
122 
000 
101 
123 
10/ 
106 



115 
111 
106 
115 
040 
122 
000 

127 

124 
120 
124 
124 
000 
104 
111 
040 
115 
122 
105 
117 
000 
104 
101 
122 
122 

110 

124 
125 
105 
101 
105 
040 
122 
000 

103 
124 

114 
122 
122 
122 

104 
12b 
105 
117 

115 
123 

105 
122 



P. AFC: 



P.AFD: 



P.AFE; 



P.AFF; 



P.AFG: 



P.AFHj 



P.AFI: 



P.AFJ. 





U-Apr-1984 11:56:01 




U-Apr-1904 11:45:02 


.ASCII 


/•AM/ 


.ASCII 


/EDI/ 


.ASCII 


/A Y / 


.ASCII 


/ORH/ 


.ASCII 


/AT / 


.ASCII 


/ERR/ 


.ASCII 


/0R/<00> 


.ASCII 


<00> 


.ASCII 


/•AW/ 


.ASCII 


/RIT/ 


.ASCII 


/E P/ 


.ASCII 


/ROT/ 


.ASCII 


/ECT/ 


.ASCII 


/E0/<00> 


.ASCII 


/HAD/ 


.ASCII 


/EVI/ 


.ASCII 


/CE / 


.ASCII 


/COM/ 


.ASCII 


/PAR/ 


.ASCII 


/E E/ 


.ASCII 


/RRO/ 


.ASCII 


/R/<00><00> 


.ASCII 


/*AD/ 


.ASCII 


/ATA/ 


.ASCII 


/ ER/ 


.ASCII 


/ROR/ 


.ASCII 


<00wOO> 


.ASCII 


/•AH/ 


.ASCII 


/OST/ 


.ASCII 


/ BU/ 


.ASCII 


/FEE/ 


.ASCII 


/R A/ 


.ASCII 


/CCE/ 


.ASCII 


/5S / 


.ASCII 


/ERR/ 


.ASCII 


/0R/<00> 


.ASCII 


<00> 


.ASCII 


/•AC/ 


■ASCII 


/ONT/ 


.ASCII 


/ROl / 


.ASCII 


/LER/ 


.ASCII 


/ ER/ 


.ASCII 


/ROR/ 


.ASCII 


<O0"»'OO> 


♦ASCII 


/•AD/ 


.ASCII 


/RIV/ 


.ASCII 


/E E/ 


.ASCII 


/RRO/ 


.ASCII 


/R/«00> 


.ASCII 


/•AM/ 


.ASCII 


/tss/ 


.ASCII 


/AGE/ 


.ASCII 


/ ER/ 



VAX-11 Bliss-16 V4. 0-579 

DISK 5USER2:C POWERS ]ZRQAD0.BL1;6 



SEQ 007 3 
PoQe 73 
(34) 



Jf- 



VOL 6 

011312 
011315 
011320 
0113.73 
01132* 
011331 
011334 
01133: 
01134? 
011345 
011350 
01135? 
011356 
011361 
011364 
011367 
0113/0 
011373 
011376 
011401 
011404 
011407 
011412 
011414 
011416 
011420 
011422 
011424 
011426 
0114 30 
011432 
011434 
011436 
011440 
011442 
011444 
011446 
011451 
011454 
01145 7 
011462 
011465 
0114/0 
011473 
0114/6 
011501 
011504 
011506 
011511 
011514 
011517 
011522 
.525 



RO/RX EXERCISER 
PROTECTION TABLE 



117 

111 

105 

101 

104 

107 

123 

103 

045 

117 

040 

115 

12? 

105 

11/ 

000 

045 

117 

101 

040 

115 

125 

010736 

010^60 

011002 

011022 

011062 

011110 

011132 

011162 

011200 

011234 

011260 

011276 

011342 

011570 

045 

122 

122 

117 

115 

123 

105 

105 

111 

104 

116 

04 5 

040 

116 

11/ 

105 

105 



115 
11.6 

122 
114 
111 
116 
124 
123 
101 
12? 
103 
120 
105 
122 



101 
115 

116 
124 
105 
124 



101 
122 
040 
107 
105 
101 
040 
103 
126 
7? 
000 
101 
103 
124 
114 
12? 
122 



040 
124 
116 

040 
101 
117 
111 
000 
110 
124 
117 
101 
040 
122 
000 

103 
115 
104 
111 
117 
000 



105 
117 
114 
040 
1^3 
10/ 
122 
105 
105 
045 

05? 

11/ 
12? 

114 
040 

122 



P.AFK: 



P.AFL: 



P.AEX-. 



P.AFMt 



P.AF'Oj 





11 


-Apr- 1984 


11:56:01 




11 


•Apr -1954 


11:45:02 


.ASCII 


/OM / 






.ASCII 


/INT/ 






.ASCII 


/URN/ 






.ASCII 


/AL / 






.ASCII 


/DIA/ 






.ASCII 


/GNO/ 






.ASCII 


/STI/ 






.ASCII 


/CS/<00> 






.ASCII 


/*AH/ 






.ASCII 


/OST/ 






.ASCII 


/ CO/ 






.ASCII 


/MPA/ 






.ASCII 


/RE / 






.ASCII 


/ERR/ 






.ASCII 


/OR/<00> 






.ASCII 


<00- 






.ASCII 


/*AC/ 






.ASCII 


/OMM/ 






.ASCII 


/AND/ 






.ASCII 


/ TI/ 






.ASCII 


/MEO/ 






.ASCII 


/UT/<00> 






.UORD 


P.AEY 






.WORD 


P. At/ 






.WORD 


P.AFA 






.WORD 


P.AFB 






.WORD 


P. AFC 






.WORD 


P . AFO 






.WORD 


P.AFfc 






.WORD 


P.AFK 






.WORD 


P. AFC, 






.WORD 


P.AFH 






.WORD 


P.AFI 






.WORD 


P.AF J 






.WORD 


P.AFK 






.WORD 


P.AFI. 






.ASCII 


/*AE / 






.ASCII 


/RRO/ 






.ASCII 


/R t / 






.ASCII 


/Oli / 






.ASCII 


/ME 5/ 






.ASCII 


/SAG/ 






.ASCII 


/E R/ 






.ASCII 


/ECE/ 






.ASCII 


/ivi / 






.ASCII 


/ ; * / 






.ASCII 


/N/<00> 






.ASCII 


/*A*/ 






.ASCII 


/ CO/ 






.ASCII 


/NTR/ 






. ASC 1 1 


/Oi I / 






.ASCJI 


/\ R / 






.ASCII 


/ERR/ 







VAX-11 BUs?3 16 V4.0 579 

DISK *USER2:[ POWERS ]ZRQAD0.BL1»6 



SEG) 00/4 
Page 74 
(34) 



\<( 



ZRQi\V\\ 




RD/RX EXERCISER 


VOL 6 




PROTECTION 


TABLE 


011550 


117 


122 


045 


01153* 


116 


000 


000 


011530 


045 


101 


052 


01154 1 


040 


110 


11/ 


011544 


123 


124 


040 


01154 ' 


115 


105 


115 


011552 


11/ 


122 


131 


011555 


040 


101 


103 


011560 


103 


105 


123 


011563 


123 


040 


105 


OilSbo 


122 


122 


117 


0115/1 


122 


045 


116 


011574 


000 


000 




01157b 


045 


101 


052 


011601 


040 


104 


111 


011604 


123 


113 


045 


011607 


104 


062 


045 


01161c* 


101 


040 


055 


011615 


040 


104 


Hi 


011620 


123 


113 


040 


011623 


124 


122 


101 


011626 


116 


123 


106 


011631 


105 


122 


040 


011634 


105 


122 


122 


011637 


117 


122 


045 


011642 


116 


000 




011644 


045 


101 


052 


011647 


040 


104 


111 


011652 


123 


113 


045 


011655 


U^ 


062 


045 


011660 


101 


040 


055 


011663 


040 


042 


125 


011666 


124 


101 


116 


0116/1 


104 


101 


122 


011674 


104 


040 


104 


011677 


111 


123 


113 


011702 


040 


111 


116 


011705 


124 


105 


122 


Oil 710 


10,5 


117 


116 


011713 


116 


105 


103 


011716. 


124 


042 


040 


011721 


105 


122 


122 


011/24 


117 


122 


04 5 


011727 


116 


000 


000 


011/32 


04 5 


101 


052 


011735 


040 


104 


111 


011/40 


123 


113 


045 


1 1 74 * 


104 


062 


045 


011746 


101 


040 


055 


011/51 


040 


042 


123 


011/54 


115 


101 


114 


011/5/ 


114 


040 


104 


011762 


111 


123 


113 



11 -Apr 1984 
11 Apr -1904 



11:56:01 
11:45:02 



VAX -11 Bliss 16 V4.0 579 
DISKJU5ER2 : [ POWERS ]ZRQAD0 # 8Lli6 



SEQ 00/5 
Page /5 
(54) 



P.AfPj 



P.AFQ; 



P.AFR. 



P.AFS: 



.ASCII 
.ASCII 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 



/on*/ 

/N/<00'*<00"> 

/*A*/ 

/ HO/ 

/ST / 

/MEM/ 

/ORY/ 

/ AC 

/CES/ 

/5 E/ 

/PRO/ 

/R*N/ 

<00><00> 

/*A*/ 

/ 01/ 

/SK*/ 

/02#/ 

/A -/ 

/ 01/ 

/SK / 

/TRA/ 

/Nsr/ 

/ER / 

/ERR/ 

/OR*/ 

/N/<00> 

/*A*/ 

/ 01/ 

/SK*/ 

/D2*/ 

/A / 

/ "S/ 

/IAN/ 

/OAR/ 

/D 0/ 

/ISK/ 

/ IN/ 

/TER/ 

/CON/ 

/NEC/ 

/T" / 

/tRR/ 

/OR*/ 

/N/<00-»<00* 

/*A*/ 

/ 01/ 

/SK*/ 

/D2*/ 

/A / 

/ "S/ 

/MAI./ 

n. a/ 



I t 



/RQAMt 
VOL 6 

oir^s 

0117/0 

on:/5 

01 1? :6 

012000 
012002 

012004 
012006 
012010 
012012 
012015 
012020 
012025 
012026 
012030 
01203? 
012036 
012041 
012044 
012047 
012052 
012055 
012060 
012063 
012064 
012067 
012072 
012075 
012100 
012103 
012106 
012111 
012114 
01211/ 
012122 
012125 
012126 
012131 
012134 
012136 
012141 
012144 
012146 
012151 
012154 
012157 
012162 
012165 
0121/0 
0121 /3 
0121/4 
U121'.' 
012202 



RO/RX EXERCISER 
PROTECTION TABLE 



11 -Apr- 1964 
ll-Apr-1904 



11:56:01 VAX - 1 1 Bliss 16 V4.0 5 79 
lli45:02 DISK $U5ER2:[ POWERS URQADO.BLlj 6 



5EQ 00/6 
Page /6 
(34) 



042 

122 
122 
000 
01150b' 
011536' 
011576' 
011644* 
011732' 
045 
101 
123 
040 
066 
045 
101 
123 
124 
040 
104 
040 
062 
045 
000 
045 
101 
123 
13/ 
104 
040 
045 
101 
103 
115 
104 
000 
04S 

1.05 
000 
045 
122 
105 
045 
103 
120 
105 
045 
116 
116 
000 
04 5 
103 
123 



040 
122 
045 
000 



105 
11/ 
116 



116 
052 
101 
045 
000 
116 
052 
124 
125 
103 
105 
045 
000 
117 

116 

052 
125 
103 
105 
000 
116 
052 
117 
101 
072 

101 

101 
000 
101 

111 

000 
101 

11/ 

101 
000 
101 
114 
105 

101 

103 
123 



045 
040 
072 
117 

045 
040 
101 
123 
117 
072 
117 
000 
064 

045 
040 
102 
11/ 
0/2 
000 
045 
040 
115 
116 
040 

122 

104 

12/ 

124 

055 

115 
122 

000 

11/ 

111 

000 

101 

105 
000 



P.AFN 



P. AFT 



P.AFU 



P.AFV 
P.AFW 



P. AFX 



P.AFY 
P.AF/ 
P.AGA 

P.AGB 

P.AGC 



.ASCII 

.ASCII 

.ASCII 

.ASCII 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCH 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCI r 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCI/ 

.ASCII 

.ASCII 



/" F./ 

/RRO/ 

/R*N/ 

<00><00> 

P.AFO 

P. AFP 

P.AFQ 

P.AFR 

p.Ars 

/*N*/ 
/A* / 
/SA-/ 
/ *0/ 
/6/<00> 

/A* / 

/5TA/ 

/TUS/ 

/ CO/ 

/DE:/ 

/ *0/ 

/2/<00 s <QQ> 

/*04/ 

<00> 

/#N*/ 

/A* / 

/sue/ 

/ CO/ 

/DE;/ 

/ /<00><00> 

/*Ntf/ 

/A* / 

/COM/ 

/MAN/ 

/U: / 

<00^ 

/*AR/ 

/FAD/ 

<00*v00> 

/*AW/ 

/Rlf/ 

/E/<00* 

/*A / 

/COM/ 

/PAR/ 

/E/«00'»<00> 

/»A0/ 

/N\ 1/ 

/Nfc /'00> 

< 00 > 

/#AM/ 

/CCK/ 

/SS/<00> 



Mf 



ZRQAMl 
VOL.6 

012205 

012211 
012212 
012215 

012220 

012206 
012231 
012234 
012237 
012242 
012245 
012250 
012253 
012256 
012261 
012264 
012267 
0122/2 
012275 
012300 
012302 
012305 
012310 
012313 
012316 
012321 
012324 
01232/ 
012332 
01233!) 
012340 
012345 
012346 
012351 
012354 
01235/ 
012362 
012365 
012370 
012373 
0123/6 
012401 
012404 
01240/ 
012412 
012415 
012420 
012423 
012426 
012431 
012434 



RD/RX EXERCISER 
PROTECTION TABLE 



000 
04 5 
000 
045 
101 
102 
040 
117 
040 
15/ 
040 
160 
143 
142 
051 
045 
C45 
040 
103 
045 
045 
000 
045 
101 
061 
040 
104 
114 
113 
110 
164 
145 
141 
141 
145 
040 
065 
056 
11/ 
040 
066 
051 
045 
101 
102 
040 
11/ 
040 
120 
124 
040 
14!. 
141 



117 

116 
052 
101 
102 
103 
050 
163 
162 
154 
145 
154 
072 
104 
101 
050 
124 
117 
101 
000 
116 
052 
163 
102 
040 
117 
040 
157 
040 
160 
143 
142 
051 
045 
045 
040 
103 
045 
045 
000 
116 
052 
101 
102 
103 
122 
117 
105 
050 
160 
14 3 



063 

045 
040 
104 
114 
113 
110 
164 
145 
141 
141 
145 
040 
065 
056 
117 
040 
066 
051 

045 
040 
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01245/ 


144 


051 


0/2 


012442 


040 


045 


104 


012445 


045 


101 


056 


012450 


040 


050 


117 


012453 


103 


1 24 


040 


01245b 


045 


11/ 


066 


012461 


04 5 


101 


051 


012464 


000 


000 




012466 


045 


116 


045 


012471 


101 


052 


040 


0124/4 


114 


102 


116 


0124 7/ 


0/2 


040 


045 


012502 


104 


065 


045 


O12505 


101 


056 


040 


012510 


050 


117 


103 


012515 


124 


040 


045 


012516 


117 


066 


04 5 


012521 


101 


051 


000 


012524 


045 


116 


045 


01252 7 


101 


052 


040 


012552 


120 
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116 


012555 


0/2. 


04 


045 


01,? 54 


104 


065 


04 5 


01254 3 


101 


056 


040 


012546 


050 


117 


103 


012551 


124 


040 


045 


012554 


11/ 


066 


045 


01255/ 
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051 


000 


012562 


045 


116 


045 


012565 
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114 
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116 
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72 
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050 


012576 


122 


105 


101 


012601 
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012604 
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104 
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04 5 
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056 


012612 


040 
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124 


040 
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012625 


045 


101 


051 


012626 
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012650 


045 


116 


045 
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040 


012656 


114 


102 


116 


01264 1 


72 
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050 


012644 
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111 
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051 
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104 
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056 
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01 26 71 
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/; */ 
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.ASCII 
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.ASCII 
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051 
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045 
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040 
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10S 
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105 
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04 
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oi/:so 
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01/. '5* 


om 
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000 
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10/ 
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11 ' 
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013000 
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013005 


U ■* 
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US 
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015011 
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04 S 


015014 
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04 S 


01501 ■' 
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0130// 
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0150/S 
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040 


111 
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01 *0*5 
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013201 
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056 


000 




013222 
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116 


045 


013225 
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040 


0132*0 
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05/ 
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013233 


040 


102 


125 


015236 
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10b 


105 


013241 
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040 
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013244 
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122 


013247 
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123 


123 


013252 


040 


050 
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013255 
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040 


142 


013260 
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045 
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0133/6 
01540V 
013404 
01340/ 
013412 

0134 IS 
015420 
013423 
Ol34?o 
013431 
013434 
01345* 
01344.-' 
013445 
013450 
013453 
013456 
013460 
01346? 
01346c 
013471 
013474 
015477 
01350? 
013505 
013510 
013513 
013516 
013521 
013504 
01352 7 
013532 
013535 
013540 
01354 5 
013546 
015551 
013554 
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013561 
013564 
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122 
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142 
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040 

066 
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066 

045 

101 

116 

116 

04 

040 

115 

116 

122 

120 

125 

120 

11? 

040 

126 

101 

101 

116 

045 

04 5 

000 

045 
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124 

105 

045 

04 5 
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110 
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116 
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05 7 
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040 
104 
123 
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111 
040 
062 
151 
051 
045 
045 
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000 
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124 
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117 
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105 
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072 
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124 
050 
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/NTS/ 
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/VE / 
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.ASCII 


/*A / 
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.ASCII 


/UN*/ 
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/ TIM/ 
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/+:?/ 
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oi3t>2i 


101 


040 


052 


013624 


040 


104 


111 


0136.?: 


123 


113 


040 


013632 


072 


040 


045 


013635 


104 


062 


000 


013o40 


045 


116 


045 


013643 


101 


104 


102 


013646 


116 


072 


040 


013651 


045 


104 


065 


013654 


045 


101 


056 


013t>57 


040 


050 


117 


013662 


103 


124 


040 


013665 


045 


117 


066 


013670 


045 


101 


051 


013673 


000 






013674 


045 


116 


045 


0136 77 


101 


102 


131 


013702 


124 


105 


040 


013705 


116 


125 


115 


013710 


102 


105 


122 


013713 


072 


040 


045 


013716 


104 


063 


000 


013721 


000 






01372? 


045 


116 


045 


013725 


101 


122 


101 


013730 


116 


104 


117 


013733 


115 


040 


127 


01373o 


122 


111 


124 


013741 


124 


105 


116 


013744 


040 


127 


117 


013747 


122 


104 


040 


013752 


072 


045 


102 


013755 


061 


066 


000 


013760 


045 


116 


045 


013763 


101 


122 


101 


013766 


116 


104 


117 


013771 


115 


040 


122 


013774 


105 
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104 


013777 


040 


12 7 


117 


014002 


122 


104 


040 


014005 


142 


151 


156 


014010 


72 


045 


102 


014013 


061 


066 


045 


014016 


101 


040 


157 


014021 


143 


164 


072 


014024 


045 


117 


066 


014027 


000 






014030 


045 


116 


045 


014033 


101 


104 


125 


014036 


120 


114 


111 


014041 


103 


101 


124 


014044 


105 
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125 
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.ASCII 


/*N*/ 


.ASCII 


/ADB/ 


.ASCII 


/N: / 


.ASCII 


/*D5/ 


.ASCII 


/*A./ 


.ASCII 


/ (0/ 


.ASCII 


/CT / 


.ASCII 


/*06/ 


.ASCII 


/*AV 


.ASCII 


<00> 


.ASCII 


/#N*/ 


.ASCII 


/ABY/ 


.ASCII 


/TE / 


.ASCII 


/NUM/ 


.ASCII 


/BER/ 


.ASCII 


/» #/ 


.ASCII 


/03/<00> 


.ASCII 


<00> 


.ASCII 


/*N#/ 


.ASCII 


/ARA/ 


.ASCII 


/NDO/ 


.ASCII 


/M U/ 


.ASCII 


/RIT/ 


.ASCII 


/TEN/ 


.ASCII 


/ uo/ 


.ASCII 


/RD / 


.ASCII 


/ : *B/ 


.ASCII 


/16/<00> 


.ASCII 


/*N*/ 


.ASCII 


/ARA/ 


.ASCII 


/NDO/ 


.ASCII 


/M R/ 


.ASCII 


/PAD/ 


.ASCII 


/ WO/ 


.ASCII 


/RD / 


.ASCII 


/blrt/ 


.ASCII 


/;#B/ 


.ASCII 


/16#/ 


.ASCII 


/A o' 


.ASCII 


'ct :' 


.ASCII 


/*06/ 


.ASCII 


<00* 


.ASCII 


/*N*/ 


.ASCII 


/ADLi/ 


.ASCII 


/Pi.I/ 


. ASC 1 1 


/CAT.' 


.ASCII 


/\ u/ 


.ASCII 


/NIT/ 



VAX -11 Blisa-16 V4, 0-579 

DISK $USER2 : [ POWERS ]ZRQADO . BL 1 j 6 



SEQ 0082 
Page 82 
(34) 



F" / 



ZRQAM1 

V01, 6 

01405.: 

014055 
014060 
014063 
014066 
014071 
014074 
014077 
014102 
014105 
014110 
01411? 
014116 
014121 
014124 
014127 
014132 
014135 
C14140 
014143 
014146 
014150 
014153 
C14156 
014161 
014164 
014167 

014172 
014174 
014177 
014202 
014205 
014210 
014213 
014216 
014221 
014224 
014227 
014232 
014235 
014240 
014243 
014246 
014251 
014254 
014257 
014262 
014265 
014270 
014273 
014276 
014301 
014304 



RO/RX EXERCISER 
PROTECTION TABLE 



ll-Apr-1984 11:56:01 
ll-Apr-19B4 11:45:02 



VAX-H Bliss-16 V4.0-579 
DISKSUSER2 8 [POWERS )ZRQAD0.BL1;6 



SEQ 0083 
Page 83 
(34) 



072 
062 
040 

040 
072 
117 
045 
101 
122 
124 
116 
104 
101 
111 
105 
116 
111 
101 
122 
123 
000 
045 
120 
055 
127 
111 
117 
L04 
045 
124 
114 
117 
105 
105 
04 5 
125 
1 11 
124 
125 
124 
125 
105 
045 
114 
101 
040 
114 
105 
045 
124 
114 
116 
116 



045 
045 
101 
111 
040 
066 
116 
115 
105 

no 

040 
061 
040 
106 
122 
124 
120 
104 
105 
105 
000 
101 

111 

104 
116 
107 
122 
000 
101 
111 
040 
116 
103 
104 
101 
120 
103 
105 
116 
040 
115 
12? 
101 
122 
104 
117 
HI 
000 
101 
111 
040 
1 14 
105 



104 
101 
124 
120 
045 
000 
045 
117 
040 
101 
045 
045 
104 
106 
105 
040 
040 
104 
123 
123 

123 

116 
117 
040 
116 
105 

123 
114 
103 
116 
124 
000 
104 
114 
101 
040 
111 
116 
102 
000 
101 
105 
131 
lib 
116 
000 
123 
114 
117 
111 
000 



P.AHC: 



P . AHD : 



P . AHE j 



P . AHF : 



P . AHG : 



P.AHH: 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
•ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
ASCII 
.ASCII 
.ASCII 
ASCII 
.ASCII 
.ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 

Ascn 

ASCII 
ASCII 



/:*D/ 

/2*A/ 

/ AT/ 

/ IP/ 

/: */ 

/06/<00> 

/*N»/ 

/AMO/ 

/RE / 

/THA/ 

/N */ 

/Dl*/ 

/A 0/ 

/IFF/ 

/ERE/ 

/NT / 

/IP / 

/ADD/ 

/RES/ 

/SES/ 

<00><00> 

/HAS/ 

/PIN/ 

/-DO/ 

/WN / 

/IGN/ 

/ORE/ 

/D/<00> 

/HAS/ 

/TIL/ 

/L C/ 

/ONN/ 

/ECT/ 

/E0/<00> 

/HAD/ 

/UPL/ 

/ICA/ 

/TE / 

/UNI/ 

/T N/ 

/UMB/ 

/fcR/<00> 

/*AA/ 

/LRtV 

/ADW 

/ ON/ 

/LIN/ 

/£'/<00><00"» 

/HAS/ 

/TIL/ 

/I. 0/ 

/Nil/ 

/NE/<00> 



G 7 



/RQAM1 

VOLb 

014507 

014310 
01431? 
014316 
014321 
014324 
01432? 
014332 
014335 
014 340 
014343 
01434o 
014351 
014354 
014357 
014362 
014365 
014370 
014373 
014376 
014401 
014404 
014407 
014412 
014415 
014420 
014423 
01442o 
014431 
014434 
014437 
014442 
014445 
014450 
014453 
014456 
014461 
01446'" 
014467 
014472 
014475 
014500 
014503 
014506 
014511 
014514 
01451"' 
014522 
014525 
014530 
014535 
014536 
014541 



RO/RX EXERCISER 
PROTECTION TABLE 



11 Apr -1984 11:56:01 
U-Apr-1984 11;45:02 



VAX-11 Bliss-10 V4.0-579 
DISK$USER2j[P0WERS]ZRQAD0.BLlt6 



SEQ 0084 
Page 84 
C34) 



000 
045 
116 
040 
113 
127 
11/ 
117 
111 
040 
040 
117 
105 
103 
124 
114 
122 
045 
117 
117 
115 
115 
116 
104 
122 
122 
105 
111 
102 
104 
131 
127 
103 
045 
116 
040 
117 
122 
111 
040 
104 
057 
040 
151 
040 
165 
051 
045 
116 
040 
12 5 
114 
040 



101 
111 
125 
116 
116 
122 
116 
116 
124 
101 
124 
122 
117 
122 
114 
000 
101 
040 
114 
105 
117 
124 
040 
040 
111 
040 
123 
114 
040 
040 
111 
110 
101 
111 
111 
120 
101 
126 
050 
065 
065 
167 
164 
146 
154 
000 
101 
111 
104 
101 
105 
102 



125 
124 
116 
117 
040 
040 
114 
105 
117 
116 
110 
040 
116 
117 
105 
000 
116 
126 
125 
040 
125 
105 
117 
104 
126 
104 
101 
105 
102 
123 
124 
000 
125 
124 
116 
105 
124 
105 
122 
061 
062 
162 
145 
141 
164 
000 
125 
124 
111 
102 
104 
151 



P.AHIj 



P. AH J: 



P . AHK { 



P , AHL t 



.ASCII 


<00> 


.ASCII 


/*AU/ 


.ASCII 


/NIT/ 


.ASCII 


/ UN/ 


.ASCII 


/KNO/ 


.ASCII 


/WN / 


.ASCII 


/OR / 


.ASCII 


/ONL/ 


.ASCII 


/INE/ 


.ASCII 


/ TO/ 


.ASCII 


/ AN/ 


.ASCII 


/OTH/ 


.ASCII 


/ER / 


.ASCII 


/CON/ 


.ASCII 


/TRO/ 


.ASCII 


/LLE/ 


.ASCII 


/R/<00><00> 


.ASCII 


/HAN/ 


.ASCII 


/O V/ 


.ASCII 


/OLU/ 


.ASCII 


/ME / 


.ASCII 


/MOU/ 


.ASCII 


/NTE/ 


.ASCII 


/D 0/ 


.ASCII 


/R 0/ 


.ASCII 


/RIV/ 


.ASCII 


/E 0/ 


.ASCII 


/ISA/ 


.ASCII 


/BLE/ 


.ASCII 


/D B/ 


.ASCII 


/Y S/ 


.ASCII 


/WIT/ 


.ASCII 


/CH/<00> 


.ASCII 


/*AU/ 


.ASCII 


/NIT/ 


.ASCII 


/ IN/ 


.ASCII 


/OPE/ 


.ASCII 


/RAT/ 


.ASCII 


/IVE/ 


.ASCII 


/ (R/ 


.ASCII 


/051/ 


.ASCII 


<57>/5cV 


.ASCII 


/ wr/ 


.ASCII 


/It*' 


.ASCII 


■■' f«/ 


.ASCII 


Ailt/ 


.ASCII 


/ )/<00><00> 


.ASCII 


/*AU/ 


.ASCII 


/NIT/ 


.ASCII 


/ 01/ 


.Ascir 


/SAB/ 


.ASCII 


/i_rD/ 


.ASCII 


/ BY/ 



1-1/ 



ZRQAN1 
VOL 6 

014544 
01454'.' 

014552 
0l*V>5 r -> 
014560 
0145b? 
014566 
014571 
014574 
014577 
0l4o02 
014605 
014610 
014613 
C14ol4 
014617 
014622 
014625 
014630 
014633 
014636 
014641 
014644 
014647 
014652 
014655 
014660 
014663 
014666 
0146 71 
014674 
014677 
014 702 
014705 
014710 
014713 
014716 
014721 
014/24 
014 727 
014732 
014735 
014740 
014 743 
014/46 
014 751 
014/54 
014757 
014 762 
014 765 
014/70 
014/.V 
014775 



RD/RX EXERCISER 
PROTECTION TABLE 



ll-Apr-1964 11:56:01 
ll-Apr-1984 U 5 45i02 



VAX-11 Bllss-16 V4, 0-579 
DlSK*USER2:[P0WERS]ZRQAD0.BLi|6 



SEQ 0085 
Page 85 

(34) 



040 
105 
040 
122 
103 
117 
111 
105 
101 
104 
10 7 
123 
103 
000 
045 
106 
103 
040 
122 
042 
105 
103 
104 
110 
105 
103 
123 
116 
106 
040 
040 
124 
045 
105 
117 
110 
040 
105 
12/ 
124 
116 
111 
040 
11/ 
105 
105 
117 
040 
104 

111 
000 
04 5 
103 



106 
114 

123 
126 
105 
122 
116 
122 
114 
111 
116 
124 
123 

101 
117 
105 
105 
117 
040 
124 
124 
040 
111 
040 
103 
123 
107 
103 
117 
122 
000 
101 
103 
122 
101 
102 
116 
122 
124 
040 
124 
042 
122 
104 
122 
122 
115 
111 
105 
000 
101 
124 



111 
104 
105 
111 
040 
040 
124 
116 
040 
101 
117 
HI 
000 

042 
122 
104 
122 
122 
104 
105 
105 
127 
114 
101 
105 
111 
040 
124 
122 
103 
000 
123 
124 
040 
104 
105 
040 
111 
105 
127 
110 
106 
103 
040 
122 
042 
11/ 
IOC 
122 

106 
040 



P.AHM 



P.AHN 



P . AHO 



ASCII 


/ FI/ 


ASCII 


/ELD/ 


ASCII 


/ SE/ 


ASCII 


/RVI/ 


ASCII 


/CE / 


ASCII 


/OR / 


ASCII 


/INT/ 


ASCII 


/ERN/ 


ASCII 


/AL / 


ASCII 


/DIA/ 


ASCII 


/GNO/ 


ASCII 


/STI/ 


ASCII 


/CS/<00> 


ASCII 


<00> 


ASCII 


/*A'V 


ASCII 


/FOR/ 


ASCII 


/CEO/ 


ASCII 


/ ER/ 


ASCII 


/ROR/ 


ASCII 


/" 0/ 


ASCII 


/ETE/ 


ASCII 


/CTE/ 


ASCII 


/D W/ 


ASCII 


/HIl./ 


ASCII 


/E A/ 


ASCII 


/CCE/ 


ASCII 


/SSI/ 


ASCII 


/NG / 


A5CII 


/FCT/ 


ASCII 


/ OR/ 


ASCII 


/ RC/ 


ASCII 


/T/<00><00> 


ASCII 


/*AS/ 


ASCII 


/ECT/ 


ASCII 


/OR / 


ASCII 


/HAD/ 


ASCII 


/ HE/ 


ASCII 


/EN / 


ASCII 


/WRI/ 


ASCII 


/TIE/ 


ASCII 


/N W/ 


ASCII 


/ITH/ 


ASCII 


/ -y / 


ASCII 


/one/ 


ASCII 


/ED / 


ASCII 


/ERR/ 


ASCII 


/OR"/ 


ASCII 


/ MO/ 


ASCII 


/DU / 


ASCII 


/IER/ 


asc r r 


*00*<00* 


ASCII 


/*AF/ 


ASCII 


/CT / 



I / 



7RQAM1 
V01.fr 

015000 
015*005 

015006 
015011 
015014 
01501" 
015022 
01 50 J? 5 
015050 
015035 
01505b 
015041 
015044 
01504.' 
015052 
015055 
015060 
015065 
015066 
0150 71 
015074 
01507 7 
015102 
015105 
015110 
015113 
015116 
015121 
015124 
015127 
015132 
015155 
015140 
015143 
015146 
015151 
015154 
015157 
015162 
015165 
0151/0 
015173 
0151/6 
015201 
015204 
015206 
015211 
015214 
01521 * 
015222 
015225 
0152 30 
015233 



RO/RX EXhRCIStR 

PROTECTION TABLE 



11 -Apr -1984 11:56:01 
ll-Apr-1984 11:45:02 



VAX 11 Bliss -16 V4.0-579 

DISK $USER2j[ POWERS ]ZRQAD0.BL1;6 



5EQ 0086 
Page 86 
C34) 



117 
122 

C40 
122 

104 
114 
055 
116 
114 
040 
103 
122 
105 
105 
045 
105 
105 
105 
120 
105 
122 
122 
126 
151 
150 
144 
040 
164 
157 
144 
045 
105 
117 
122 
040 
122 
104 
114 
055 
101 
040 
116 
124 
105 
124 
04 5 
101 
040 
116 
116 
040 
125 
040 



122 
103 
125 
105 
101 
105 
040 
126 
111 
125 
124 
040 
101 
122 
101 
101 
122 
117 
101 
040 
122 
040 
141 
144 
145 
145 
156 
040 
165 
051 
101 
124 
122 
103 
125 
105 
101 
105 
040 
124 
123 
103 
111 
11/ 
000 
101 
124 
123 
103 
11/ 
106 
116 
050 



040 

124 

116 

101 

102 

040 

111 

101 

104 

105 

11. 

110 

104 

000 

l'O 

104 

040 

115 

122 

105 

117 

050 

154 

040 

141 

162 

157 

146 

156 

000 

106 

040 

040 

124 

116 

101 

102 

040 

104 

101 

131 

040 

115 

125 

104 
101 
131 
040 
124 
11/ 
104 
104 



P.AHP; 



P.AHQ: 



P.AHR: 



.ASCII 


/OR / 


.ASCII 


/RCT/ 


.ASCII 


/ UN/ 


.ASCII 


/REA/ 


.ASCII 


/DAB/ 


.ASCII 


/IE / 


.ASCII 


/- 1/ 


.ASCII 


/NVA/ 


.ASCII 


/LID/ 


.ASCII 


/ SE/ 


.ASCII 


/CTO/ 


.ASCII 


/P H/ 


.ASCII 


/EAD/ 


.ASCII 


/ER/<00> 


.ASCII 


/*AH/ 


.ASCII 


/EAD/ 


.ASCII 


/ER / 


.ASCII 


/COM/ 


.ASCII 


/PAR/ 


.ASCII 


/E E/ 


.ASCII 


/RRO/ 


.ASCII 


/R (/ 


.ASCII 


/Vol/ 


.ASCII 


/id / 


.ASCII 


/h«sa/ 


.ASCII 


/dcr/ 


.ASCII 


/ no/ 


.ASCII 


/t f/ 


.ASCII 


/oun/ 


.ASCII 


/d)/<00> 


.ASCII 


/*AF / 


.ASCII 


/CT / 


.ASCII 


/OR / 


.ASCII 


/RCT/ 


.ASCII 


/ UN/ 


.ASCII 


/REA/ 


.ASCII 


/DAB' 


.ASCII 


/LP / 


.ASCII 


/ [)/ 


.ASCII 


/ATA/ 


.ASCII 


/ S Y / 


.ASCII 


/NC / 


.ASCII 


/TIM/ 


. ASC 1 1 


s\ 01" 


.ASCII 


/ I ■ « 00 * 


.ASCII' 


/*A[)/ 


.ASCII 


/A! A/ 


.ASCII 


/ St/ 


.ASCII 


/NC ' 


.ASCII 


/NOT-' 


. ASC 1 1 


/ ► 0/ 


.ASCII 


/UND/ 


.ASCII 


/ ^D/ 



7RQAML 




RDRX EXERCISER 


V01.6 




PROTECTION 


TABLE 


Ol5?3t> 


141 


164 


141 


OlW^i 


040 


163 


171 


015244 


156 


143 


040 


01524 7 


164 


151 


155 


015252 


145 


157 


165 


015255 


164 


051 


000 


015260 


045 


101 


106 


01 52b 3 


103 


124 


040 


015266 


11? 


122 


040 


015371 


12? 


103 


124 


0152/4 


040 


125 


116 


0152;: 


122 


105 


101 


015302 


104 


101 


102 


015305 


114 


105 


040 


015310 


055 


040 


125 


01531? 


lib 


103 


117 


015316 


122 


122 


105 


0153.: 1 


103 


124 


101 


015324 


102 


114 


105 


0153,?? 


040 


105 


103 


015332 


103 


040 


105 


015335 


122 


122 


117 


015340 


122 


000 




015342 


045 


101 


125 


015545 


116 


103 


117 


015350 


12? 


122 


105 


015353 


103 


124 


101 


01535c 


102 


114 


105 


015361 


040 


105 


103 


015364 


103 


040 


105 


01536:* 


12? 


122 


117 


0153 7? 


122 


000 




0153 74 


04 5 


101 


122 


0153?.' 


103 


124 


040 


01540? 


103 


1X7 


12? 


015405 


122 


125 


120 


015410 


124 


105 


104 


015413 


000 






015414 


04 5 


101 


116 


1 54 1 / 


11/ 


040 


1?? 


015422 


105 


120 


114 


015 4 ?5 


101 


103 


105 


0154 50 


115 


105 


116 


015433 


124 


040 


102 


0154 36 


114 


11/ 


103 


015441 


113 


040 


101 


015444 


126 


101 


111 


01544 ' 


114 


101 


10? 


01545? 


114 


105 


040 


015455 


050 


12? 


103 


01546C 


124 


040 


14', 


0154^ < 


165 


r»4 


154 


015466 


051 


000 





P.AHS 



P.AHT 



P , AHU 



P.AHV 





11 -Apr -1984 11:56:01 




11 Apr 1984 11:45:02 


.ASCII 


/otn/ 


.ASCII 


/ oy/ 


.ASCII 


/nc / 


.ASCII 


/t »m/ 


.ASCII 


/eou/ 


.ASCII 


/t)/<00> 


.ASCII 


/*AF/ 


.ASCII 


/CT / 


.ASCII 


/OR / 


.ASCII 


/RCT/ 


.ASCII 


/ UN/ 


.ASCII 


/RE A/ 


.ASCII 


/DAB/ 


.ASCII 


/l.E / 


.ASCII 


/- u/ 


.ASCII 


/NCO/ 


.ASCII 


/RRE/ 


.ASCII 


/CTA/ 


.ASCII 


/bee/ 


.ASCII 


/ EC/ 


.ASCII 


/C E/ 


.ASCII 


/RRO/ 


.ASCII 


/R/<00^ 


.ASCII 


/*AU/ 


.ASCII 


/NCO/ 


.ASCII 


/RRE/ 


.ASCII 


/CTA/ 


.ASCII 


/OLE/ 


.ASCII 


/ EC/ 


.ASCII 


/C E/ 


.ASCII 


/RRO/ 


.ASCII 


/R/<00> 


.ASCII 


/*AR/ 


.ASCII 


/CT / 


.ASCII 


/COR/ 


.ASCII 


/RUP/ 


.ASCII 


/TED/ 


.ASCII 


'00 > 


.ASCII 


/#AN/ 


.ASCII 


/O R/ 


.ASCII 


/EPl / 


.ASCII 


/ACE / 


.ASCII 


/MEN.' 


.ASCII 


/T R/ 


.ASCII 


'1 ,K' 


.ASCII 


/ U i\ / 


.ASCII 


-VAT/ 


.ASCII 


/I AH 


.ASCII 


/I t ' 


.ASCII 


/(RC 


. A5C I ! 


/T f ' 


.ASCII 


■'ull 


.AbCII 


/ ) . < 00 » 



VAX 11 Bl Jsi; 16 V4.0 5/9 

DISK 5USER2 : [ POWERS ]ZRQAD0.BL1;6 



SEQ 006/ 
Page 8 / 
(34) 



/RQAN1 




RD R\ EXERCISER 


VOL 6 




PROTECTION 


TABLfc 


0154*0 


045 


101 


104 


0154 * 3 


Ui 


125 


115 


0154 V 


040 


116 


11/ 


015501 


124 


040 


106 


015504 


n r 


122 


115 


01550" 


101 


124 


124 


015512 


105 


104 


040 


015515 


1 * 
1 1. - 


111 


124 


015520 


110 


040 


065 


0155.?? 


CM 


06c"" 


040 


01552fc 


102 


131 


124 


015551 


105 


O'O 


123 


015534 


105 


103 


124 


01555* 


11 * 


122 


123 


01554.: 


000 


000 




015544 


04 5 


101 


104 


01554 ' 


111 


123 


113 


01555? 


040 


1 16 


11/ 


015555 


124 


040 


106 


015560 


117 


122 


115 


015565 


101 


124 


124 


015566 


105 


104 


040 


0155/1 


11 7 


122 


040 


0155/4 


106 


105 


124 


015577 


040 


103 


117 


015602 


122 


122 


125 


015605 


120 


124 


105 


015610 


104 


000 




01561.? 


045 


101 


11/ 


015615 


116 


105 


040 


015t>20 


12 5 


131 


115 


0)5*23 


102 


11/ 


114 


0156* * 


040 


105 


103 


015651 


103 


040 


105 


015634 


122 


122 


11/ 


01563" 


122 


ooo 


000 


01564^ 


045 


101 


124 


01564 5 


12/ 


117 


040 


015650 


123 


131 


115 


01565 5 


102 


11/ 


114 


015656 


040 


105 


105 


015661 


103 


040 


105 


015664 


122 


122 


11/ 


01566 7 


122 


000 


000 


0156/ ( > 


045 


101 


124 


01 56 '5 


no 


12,? 


105 


015/00 


105 


040 


123 


015/0 5 


131 


115 


102 


1 5 /06 


11 ' 


114 


040 


015/11 


iuS 


105 


105 


015/14 


040 


105 


122 


015/1 ' 


12.'* 


11.' 


122 


01 5 to 


000 


000 





11 Apr- 1984 U;5b;01 
11 -Apr-1904 llj45;02 



VAX -11 Bliss 16 V4, 0-579 
DISK$USER2j[ POWERS )ZRQAD0.BL1;6 



SEQ 0088 
Page HP, 
C34*j 



P.AHW: 



P . AHX : 



P.AHY: 



P. AH/; 



P.AIA; 



.ASCII 


/*AD/ 


.ASCII 


/ISK/ 


.ASCII 


/ NO/ 


.ASCII 


/T f / 


.ASCII 


/ORM/ 


.ASCII 


/ATT/ 


.ASCII 


/ED / 


.ASCII 


/WIT/ 


.ASCII 


/H 5/ 


.ASCII 


/12 / 


.ASCII 


/Bt 1/ 


.ASCII 


/E 5/ 


.ASCII 


/ECT/ 


.ASCII 


/OR 5/ 


.ASCII 


<00><00> 


.ASCII 


/*AD/ 


.ASCII 


/ISK/ 


.ASCII 


/ NO/ 


.ASCII 


/r fv 


.ASCII 


/ORM/ 


.ASCII 


/ATI/ 


.ASCII 


/ED / 


.ASCII 


/OR / 


.ASCII 


/ECT/ 


.ASCII 


/ CO/ 


.ASCII 


/RRU' 


.ASCII 


/PTE/ 


.ASCII 


/D/ <00> 


.ASCII 


/*A0/ 


.ASCII 


/Nf / 


.ASCII 


/5iM/ 


.rv."TI 


/BOl. / 


.ASCII 


/ FC/ 


.ASCII 


/C t/ 


.ASCII 


/HHO/ 


.ASCII 


/R/<00>«00 V ' 


.ASCII 


/•AT/ 


.ASCII 


/WO < 


.ASCII 


/S»M/ 


.ASCII 


/BUI / 


.ASCII 


/ EC/ 


.ASCII 


/C E/ 


.ASCII 


/RHU' 


. ASC 1 1 


/R/<00*<00 , » 


.ASCII 


/•A 1 / 


. ASC 1 1 


'HRK / 


.ASCII 


/f S/ 


.ASCII 


ZiMN/ 


.ASCII 


/Ot ■' 


.ASCII 


/ECC 


.ASCII 


/ (-R/ 


.ASCII 


/ROR/ 


.ASCII 


< 00 * * 00 > 



I / 



/R0AM1 
015/24 

015/32 

015/35 
015740 
015/43 
01574o 
015751 
CIS 7 54 
015 757 
C1!).V 
015765 
0157 70 
CIS ; 73 
0157/6 
OlbOOl 
016004 
01600T 
01601,? 
016015 
01.6020 
016023 
016026 
01603] 
016034 
016037 
016042 
01604 3 
016050 
016053 
016056 
016061 
016064 
016066 
0160/1 
016074 
0160 7 7 
016102 
016105 
016110 
016113 
016116 
016120 
016123 
016126 
016131 
016134 
016). 3/ 
016142 
01614'. 
016150 
O.U.154 
016156 





RO, RX EXERCISER 




PROTECTION 


TABLE 


04 5 


101 


106 


117 


125 


122 


040 


123 


131 


115 


102 


117 


114 


040 


105 


103 


103 


040 


105 


122 


122 


117 


122 


000 


045 


101 


106 


HI 


126 


105 


040 


123 


131 


115 


102 


11/ 


114 


040 


105 


103 


103 


040 


105 


122 


122 


11 ' 


122 


000 


045 


101 


123 


111 


130 


040 


123 


131 


115 


102 


117 


114 


040 


105 


103 


103 


040 


105 


122 


122 


11 7 


122 


000 


000 


04 5 


101 


123 


105 


126 


105 


116 


040 


123 


131 


115 


102 


11/ 


114 


040 


105 


103 


103 


040 


105 


122 


122 


11/ 


122 


000 


000 




045 


101 


105 


111 


107 


no 


124 


040 


123 


131 


115 


102 


117 


114 


040 


105 


103 


103 


040 


105 


1~V 


122 


11/ 


122 


000 


000 




04 5 


101 


103 


11/ 


122 


122 


105 


i03 


124 


101 


102 


114 


105 


040 


105 


1 Vi 
J- I- . 1. . 


122 


11 / 


122 


040 


111 


116 


040 


105 


103 


10* 


04 


106 


111 


10'» 


114 


104 


000 



P.A1B 



P.AIC 



P. AID: 



P.AIE? 



P. AIT- 



P.AIGj 



11 -Apr- 1984 11:56:01 
11 -Apr -19*54 11:45:02 



VAX-ll Bliss -16 V4. 579 
DISK$USfcR2:[PUWERSURQAD0.BLl;6 



SEQ 0089 
Page 89 
(34) 



.ASCII 


/#AF/ 


.ASCII 


/0U9/ 


.ASCII 


/ SY/ 


.ASCII 


/MBO/ 


.ASCII 


/L E/ 


.ASCII 


/CC / 


.ASCII 


/ERR/ 


.ASCII 


/OR/<00> 


.ASCII 


/*AF/ 


.ASCII 


/IVE/ 


.ASCII 


/ SY/ 


.ASCII 


/MBO/ 


.ASCII 


/L E/ 


.ASCII 


/CC / 


.ASCII 


/ERR/ 


.ASCII 


/0R/<00> 


.ASCII 


/*AS/ 


.ASCII 


/IX / 


.ASCII 


/SYM/ 


.ASCII 


/BOL/ 


.ASCII 


/ FC/ 


.ASCII 


/C E/ 


.ASCII 


/RRO/ 


.ASCII 


/R/<00><00> 


.ASCII 


/*A5/ 


.ASCII 


/EVE/ 


.ASCII 


/N S/ 


.ASCII 


/YMB/ 


.ASCII 


/OL / 


.ASCII 


/ECC/ 


*SCI T 


/ EH/ 


.ASCII 


/ROR/ 


.ASCII 


<00><00> 


.ASCII 


/*AE/ 


.ASCII 


/IGH/ 


.ASCII 


/I 5/ 


.ASCII 


/YMB/ 


.ASCII 


/Ol. / 


.ASCII 


/f cc/ 


. ASC T I 


/ ER/ 


.ASCII 


/ROR/ 


.ASCII 


<00wQ0> 


.ASCII 


/KAC/ 


. ASC I I 


/ORH' 


.ASCII 


n r t / 


.ASCII 


/AOL/ 


. ASC 1 1 


/E I./ 


.ASCII 


/RRO/ 


.ASCII 


/H 1/ 


.ASCI 1. 


/N E/ 


.ASCII 


/CC / 


.A'jCII 


/> It/ 


.ASCII 


/L0/<00> 



M7 



.'HUAMi 
VOK 6 

01616c? 
016165 

0161/0 
0161/5 
016176 

016201 

016204 
01630/ 
016212 
016215 
016220 
016222 
016225 
016230 
016233 
016236 
01624 1 
016244 
01624/ 
016252 
016255 
016260 
016262 
016265 
016270 
016273 
01627o 
016301 
016304 
016307 
016312 
016315 
016320 
016523 
016326 
016531 
016354 
01633/ 
C16342 
016545 
016550 
016353 
016556 
016361 
016364 
01636/ 
0163/0 
0163/3 
0164/6 
016401 
016404 
016407 



RD/RX EXERCISER 
PROTECTION TABLE 



000 
045 
116 
040 
106 
101 
040 
111 
040 
11/ 
103 
104 
045 
116 
040 
122 
101 
040 
111 
040 
117 
103 
104 
045 
104 
124 
116 
105 
101 
122 
123 
045 
104 
102 
105 
11/ 
124 
04 5 
11/ 
105 
123 
116 
110 
124 
105 
122 
000 
04 5 
117 
04 
115 
131 
101 



*.01 

111 

123 

124 
122 
127 
12^ 
120 
124 
124 
000 
101 

111 

110 
104 
122 
127 
124 
120 
124 
124 
000 
101 
104 
122 
123 
122 
104 
105 
000 
101 
104 
131 
040 
125 
000 
101 
116 
130 
124 
124 
117 
040 
115 
131 

101 
123 
115 
11/ 

04 
122 



125 

124 
11/ 
12 7 
105 
122 
105 
122 
105 
105 

125 

124 
101 
12/ 
105 
122 
105 
122 
105 
105 

117 

040 
101 
106 
040 
104 
123 
000 
117 
040 
124 
103 
116 
000 
116 
055 
111 
105 
040 
123 
115 
11/ 
000 

110 
124 

105 
122 

120 

111 



P.AIH: 



P. All} 



P.AIJj 



P.AlKi 



P. AIL: 



P.AlMj 





11 Apr- 1984 


11:56:01 




11 -Apr -1984 


11(45:02 


.ASCII 


<00> 




.ASCII 


/*AU/ 




.ASCII 


/NIT/ 




.ASCII 


/ SO/ 




.ASCII 


/FTW/ 




.ASCII 


/ARE/ 




.ASCII 


/ WR/ 




.ASCII 


/ITfc/ 




.ASCII 


/ PR/ 




.ASCII 


/OTE/ 




.ASCII 


/CTE/ 




.ASCII 


/D/<00> 




.ASCII 


/*AU/ 




.ASCII 


/NIT/ 




.ASCII 


/ HA/ 




.ASCII 


/ROW/ 




.ASCII 


/ARE/ 




.ASCIi 


/ WR/ 




.ASCII 


/ITFV 




.ASCII 


/ PR/ 




.ASCII 


/OTfc/ 




.ASCII 


/CTE/ 




.ASCII 


/D/<00^» 




-ASCII 


/#A0/ 




.ASCII 


/DO / 




.ASCTI 


/TRA/ 




.ASCII 


,'NSF/ 




.ASCII 


/ER / 




.ASCII 


/ADD/ 




.ASCII 


/RES/ 




.ASCII 


/S/<00*<00> 




.ASCII 


/*A0/ 




.ASCII 


/DO / 




.ASCII 


/BYT/ 




.ASCII 


/! C/ 




.ASCII 


/i JN/ 




.ASCII 


/T/<00><00* 




.ASCII 


/*AN/ 




.ASCII 


/ON / 




.ASCII 


/EXI/ 




.ASCII 


/°lf/ 




.ASCII 


/N! / 




.ASCII 


/HOS/ 




.ASCII 


/! M/ 




.ASCII 


/(■MO/ 




.ASCII 


/R> /<"00> 




.ASCII 


*00> 




.ASCII 


/*AH/ 




.ASCII 


/osr/ 




.ASCII 


/ ME/ 




. ASCI I 


/MOR/ 




.ASCII 


/I P/ 




.ASCII 


/ARIZ 





VAX-U Bl iss-16 V4.0 579 

DISK $UStR2 : [ POWERS 1ZRQAD0 . BL1 ; 6 



SEU 0090 
Page 90 
(34) 



N7 



.TRUAN1 
V01. 6 

01b412 
016415 
01H..0 
016423 
016424 
0164?/ 
0164 3? 
01t>435 
016440 
016445 
Ol644b 
016451 
016454 
0164!.; 

01646.? 
016465 
0164/0 
0164 7 * 
0164/6 
016501 
016504 
OlbSO/ 
01651*' 

Clol)i^ 

016520 
016523 
016526 
016531 
016534 
01653/ 
01654? 
016545 
016550 
016553 
016554 
01655/ 
0165ft? 
016565 
0165/0 
0165/3 
016576 
016601 
016604 
01660/ 
01661? 
016614 
016617 
0166?? 
01 66? 5 
0x6630 
0166* > 
0166 --i. 
016641 



rd/rx exerciser 

PROTfcCTIUN TABLE 



124 
105 
117 
000 
045 
117 
101 
04(, 
115 
1?4 
1?? 
105 
131 
111 
1?4 
130 
105 
104 
045 
105 
101 
13? 
05/ 
1?3 
111 
111 
1?? 
12o 
1?? 
040 
040 
104 
1?? 
000 
04 5 
105 
117 
104 
105 
111 
040 
104 
040 
1?? 
000 
045 
116 
116 
1?3 
116 
111 
105 
101 



131 
1?? 
1?? 

101 
115 
116 
1?4 
117 
040 
040 
124 
040 
115 
040 
103 
104 
000 
101 
1?2 

:i4 

104 
105 
101 
132 
040 
105 
125 
117 
125 
105 
125 

101 

122 
12? 
105 
103 
117 
103 
105 
105 
11/ 
000 
301 
103 
123 
124 
124 
lib 
12? 
114 



040 
122 
000 

103 
115 
104 
111 
1?5 
11/ 
122 
122 
114 
111 
105 
105 
105 
000 
123 
111 
111 
122 
105 
12? 
114 
105 
117 
122 
116 
122 
116 
1?? 
116 

04? 
122 
040 
124 
124 
116 
11/ 
042 
122 
1?2 

111 
117 

111 
105 
040 
124 
lib 
040 



P.AINj 



P.A10: 



P.AlPt 



P.AIU} 





ll-Apr-1984 11:56:01 




U-Apr-19ti4 11:45:02 


.ASCII 


/TY / 


.ASCII 


/ERR/ 


.ASCII 


/0R/<00> 


.ASCII 


<00> 


.ASCII 


/*AC/ 


.ASCII 


/OMM/ 


.ASCII 


/AND/ 


.ASCII 


/ T1V 


.ASCII 


/MOU/ 


.ASCII 


/T 0/ 


.ASCII 


/R R/ 


.ASCII 


/ETR/ 


.ASCII 


/Y IV 


.ASCII 


/IMI/ 


.ASCII 


/T E/ 


.ASCII 


/XCE/ 


.ASCII 


/EOE/ 


.ASCII 


/D/<00>*'<H^ 


.Asr.TT 


/»Hb/ 


.ASCII 


/ERI/ 


.ASCII 


/ALI/ 


.ASCII 


/ZER/ 


.ASCII 


'57^/DE/ 


.ASCII 


/SER/ 


.ASCII 


/IAL/ 


.ASCII 


/Uh./ 


.ASCII 


/R 0/ 


.ASCII 


/Vt.li/ 


.ASCII 


/RUN/ 


.ASCII 


/ OR/ 


.ASCII 


/ UN/ 


.ASCII 


/DER/ 


.ASCII 


/RUN/ 


.ASCII 


<00> 


.ASCII 


/rfA'V 


.ASCII 


/ERR/ 


.ASCII 


/OR / 


.ASCII 


/DM/ 


.ASCII 


/E.cr/ 


.ASCII 


/ION/ 


.ASCII 


/ CO/ 


.ASCII 


/OE'V 


.ASCII 


/ ER/ 


.ASCII 


/ROR' 


.ASCII 


<00^<00> 


.ASCII 


/MAI/ 


.ASCII 


/NCO/ 


.ASCII 


/NSI/ 


.ASCII 


/5TE/ 


.ASCII 


/NT / 


.ASCI! 


/INI/ 


. A5C 1 1 


/ERN/ 


.ASCII 


/AL / 



VAX 11 B 1 J su 16 V4 . 5/9 
DISK$USf.*"2j[P0WERS]ZRQAD0.BLlj6 



SEQ 0091 
Page 91 
C34) 



/RiJAMt 




RO R\ t 


xmcis. 


WU .*• 




PROM CTION TAR 


01**644 


104 


101 


1/4 


Olbr4 ' 


101 


040 


1/5 


Olbt/V 


1/4 


1// 


1/S 


OlbbS', 


105 


1/4 


l/s 


Ibt^O 


I// 


I OS 


000 


01bt»M 


000 






OlM'f'4 


04*i 


101 


104 


Olr»e.t> * 


l.V 


ill 


1/6 


0166 */ 


10*. 


04 


105 


Olbt> M i 


11 * 


ll r > 


lis 


01b "00 


101 


116 


104 


016 '0< 


040 


U l 4 


HI 


OH- 'Of 


li'- 


10*. 


11 ' 


Olh *I1 


l/S 


1/4 


040 


01b *14 


ose 


lib 


IS' 


016 *1 ' 


04 


lb. 1 


14S 


Olb/.Y 


lb 5 


lbO 


is/ 


oib.vs 


ISb 


165 


14S 


016/30 


040 


IS/ 


16/ 


Olb/35 


040 


1*3 


14S 


Olb/?6 


14S 


IS 5 


040 


0U».-41 


1M 


1S6 


145 


01b '44 


IS-' 


1SS 


lbO 


01b /4 "• 


1S4 


US 


lb4 


Ol6/?V 


14S 


osi 


000 


Oife.'JiS 


000 






Otb7Sb 


04 S 


lot 


103 


01b ,'bi 


11 * 


11* 


1/4 


016 /b4 


1// 


11' 


114 


01b /b ' 


114 


io r . 


1/.' 


01b ' V 


04 


104 


10S 


Olb VS 


1/4 


10S 


105 


01 '000 


1/4 


10S 


)04 


01 "00 5 


040 


lr'4 


l.V 


01 "00*. 


101 


lib 


1/5 


01. 'Oil 


IIS 


111 


1/5 


01 '014 


1^5 


111 


11/ 


v'l /Ol .* 


lib 


040 


11/ 


«>1 "O.V 


uv 


040 


1/0 


1 .'Oc". 


1// 


11/ 


1«'4 


01 '0 50 


11 / 


105 


11/ 


01 "0 5 5 


114 


040 


10S 


01 *o^. 


1 » "» 


l.V 


11/ 


'.'1 '04 1 


l.V 


000 


000 


01 /04 4 


04 S 


101 


1/0 


Ul '04 / 


11 / 


l.M 


111 


01 7U'.,' 


1.-4 


111 


11/ 


01 /OSS 


lib 


040 


I OS 


01 i'0*iO 


i.V 


l.V 


11 ; 


01 7 Ob 5 


i ■ j 


040 


oso 


01 .'Ob*. 


ll'i 


isi 


165 


'.'i 'o-' : 


it'.'* 


16'. 


14*. 


01 /CM 


14S 


IS* 


O'-ii 



R 

I t 



P. AIR: 



P,A1S{ 



P>AlT t 





P..-', 






J 1 Apr 


i'MM ll:Sb;Ol 




11 Apr 


1<JH4 ll!4SjO/ 


.ASCII 


/UMI / 




.ASCII 


/A S/ 




.ASCII 


/TRU- 




.ASCII 


/CHI/ 




.ASCII 


/Hi /<00> 




.ASCII 


tOO» 




.ASCII 


/#AD/ 




.ASCII 


/RIV/ 




.ASCII 


/\ c 




■ASCII 


/OHM/ 




.ASCII 


/AM)/ 




.ASCII 


• I I ■■■ 




.ASCII 


• MtU' 




.ASCII 


/UT / 




■ASCII 


/(No/ 




.ASCII 


/ r#.' 




.ASCII 


/*(>o / 




.ASCII 


/**«/ 




.ASCII 


/ or/ 




.ASCII 


/ ••/ 




■ASCII 


/>k / 




.ASCII 


/ Inc' 




.ASCII 


/onp/ 




.ASCII 


/l»t/ 




.ASCII 


/•)/« 00* 




.ASCII 


«00> 




.ASCII 


/*MC ' 




.ASCII 


/ONT/ 




.ASCII 


/ROl / 




.ASCII 


/t *R/ 




. ASC 1 1 


/ Of / 




.ASCII 


/HC 




.ASCII 


/ T !• D / 




.ASCII 


/ TW/ 




.ASCII 


/AN s 




.ASCII 


/Mis/ 




.ASCII 


/SIO' 




.Aid I 


/N 




.ASCII 


n p 




.ASCII 


/ROT ' 




.ASCII 


•'OCO 




.ASCII 


/I \ <■ 




.ASCII 


/RHl) 




.ASCII 


/R . 00**00* 




.ASCII 


•'*AC 




.ASCII 


-osi -■ 




.ASCII 


/ 1 10 




.ASCII 


/N J 




.ASCII 


/MRU 




. AsCI I 


/R I 




.ASCII 


/MI.* ' 




.A >CII 


/ -if. 





VAX 11 RUft* 16 V4.0 S/'» 
ltt5l<fUSER*i[PUWF.R<j]/RUAU0.BU|6 



SLU OO'V 
Pap* V 
(54) 



* ASCII /ct)/ 



2RJ4N1 




RO R\ FXFRCI5FR 


WM.6 




PROTECTION 


TABl [ 


ot *o: ' 


000 






01 '100 


045 


101 


114 


01710* 


IK 


12* 


124 


01/UV 


040 


122 


105 


01 '111 


101 


104 


05 7 


01- '114 


12 7 


122 


111 


onr 


124 


105 


040 


oi /122 


122 


105 


101 


01 '125 


104 


151 


040 


01 *150 


104 


125 


122 


01/155 


111 


lit. 


107 


o i / 1 5t> 


05 7 


102 


105 


oi;i4i 


124 


12 7 


105 


01/144 


105 


116 


040 


01 '14 * 


124 


122 


101 


017152 


lit* 


125 


106 


01/155 


105 


122 


125 


Ol.'lnO 


000 


000 




01/lt.2 


045 


101 


104 


01/165 


122 


111 


126 


01, 'WO 


105 


040 


103 


01 '175 


114 


11 7 


103 


01 "l *t» 


115 


040 


104 


01V01 


122 


11/ 


120 


01/204 


1 1 7 


125 


124 


01720.' 


000 






01 7210 


045 


101 


114 


01.*215 


U ' 


125 


124 


01/216 


040 


122 


105 


017221 


103 


105 


111 


017224 


126 


105 


122 


01/22 7 


040 


122 


10s 


01/252 


101 


104 


131 


01 \\v> 


040 


102 


105 


01/240 


124 


12/ 


105 


01724*, 


105 


lib 


04 


01724*. 


12* 


105 


l05 


01/251 


124 


11/ 


122 


017254 


125 


000 




civs*. 


045 


lot 


104 


01 TM 


122 


111 


126 


01/264 


105 


040 


104 


01/26/ 


105 


124 


105 


0172 7..' 


103 


124 


105 


01/2/5 


104 


040 


105 


01/304* 


122 


122 


11/ 


1 / 50 5 


122 


000 


000 


01 /506 


04 5 


101 


103 


017511 


11 ' 


11*1 


124 


01/314 


1 j » 


117 


114 


01751 ' 


114 


10'- 


122 


017?.', 


040 


104 


3 05 


01*3*5 


124 


105 


105 



P.AlUj 



P.AIVi 



P A1W: 



P.A1X 



P. Ail 





1 <-7 




11 -Apr-19«4 11:56:01 




11 Apr -19H4 lls45:Od 


.ASCII 


<00> 


.ASCII 


/*Al / 


.ASCII 


/OST/ 


.ASCII 


/ RfV 


.ASCII 


/A0/<5/> 


.ASCII 


/WRI/ 


.ASCII 


/TL / 


.ASCII 


/RFA/ 


.ASCII 


/Oi / 


.rscn 


/DOR/ 


.ASCII 


/ING/ 


.ASCII 


<5/>/m:/ 


.ASCII 


/tuf/ 


.ASCII 


/FN / 


.ASCII 


/TRA/ 


.ASCII 


/NSF/ 


.ASCII 


/FRS/ 


.ASCII 


•00»<00> 


.ASCII 


/*A0/ 


.ASCII 


/RIV/ 


.ASCII 


/F C/ 


.ASCII 


/IOC/ 


•ASCII 


/K 0/ 


.ASCII 


/ROP/ 


.ASCII 


/OUT/ 


.ASCII 


«00> 


.ASCII 


/#Al / 


.ASCII 


/osr/ 


.ASCII 


/ Rfc/ 


.ASCII 


/CLI/ 


.ASCII 


/VtR/ 


.ASCII 


/ Ul / 


.ASCII 


/ADi/ 


.ASCII 


/ BF/ 


.ASCII 


/TWF/ 


.ASCII 


/FN / 


.ASCII 


/SI C 


.ASCII 


/TOR< 


.ASCII 


/S/-00- 


.ASCII 


/#A0/ 


.ASCII 


/RiV/ 


.ASCII 


/\ 


.ASCII 


n n / 


.ASCII 


/OF • 


.ASCII 


/(> » ' 


.ASCII 


.'MMli/ 


.ASCII 


/R/ «00»»00> 


.ASCII 


/•AC ■ 


.ASCII 


/ONI 


.ASCI I 


/Rill 


. A-,rir 


/MR ' 


.ASCII 


/ M / 


.ASCII 


/TLC 



VAX 11 Bl tfio 16 V4.0 5/'# 

DISK $USF:r? 5 [ POWFRS ] ^RQADO.BL i it 



SfcU 00'* 5 
Page '#5 
(34 j 



)« 



/RQAN1 
VOI .6 

017530 
017555 
017356 
017541 
01/544 
01754 • 
017532 
017 5 S3 
0175bO 
1 7 56 5 
01"*566 
0175 70 
0173 75 

0173 7o 
017401 
017404 
017407 
01 741 J 
017415 
017416 
017421 
017424 
01742/ 
017432 
017433 
017440 
017443 
01744o 
017431 
01/454 
017457 
017462 
017465 

0174 '0 
0174 73 

0174 76 
017500 
017503 
017506 
017511 
017514 
01751/ 
017522 
017525 

0175 50 
017533 
01/536 
01/54 1 
017544 
01754 7 
01/552 
017555 
017560 



R(VR\ EXERCISER 
PROTFCTION TrtBl F 



1* Apr 1984 
11 Apr 10H4 



11:36:01 VAX 11 Hilar. 16 V4 , 5/9 

Ui45t02 DISKiUbER25[POWRRSl/RQADO,BLl|6 



3EU 0094 

Page 94 
C34 j 



124 

040 
114 
040 
040 
101. 
040 
122 
131 
122 
122 
045 
117 
122 
114 
040 
115 
125 
000 
045 
116 
111 
103 
101 
105 
122 
104 

122 
122 

120 
151 
040 
040 
155 
163 
000 
045 
116 
114 
105 
101 
105 
12/ 
124 
105 
117 
050 
162 
1/1 
162 
151 
13 7 
051 



105 


104 


120 


125 


123 


105 


117 


122 


123 


124 


124 


105 


120 


1.01 


111 


124 


040 


105 


122 


117 


000 




101 


103 


lib 


124 


11/ 


114 


105 


122 


124 


111 


105 


117 


124 


000 


101 


105 


126 


105 


117 


120 


057 


120 


103 


113 


124 


040 


105 


101 


040 


105 


122 


11/ 


040 


050 


141 


162 


164 


171 


157 


162 


164 


151 


145 


15 7 


164 


051 


ooo 




101 


105 


126 


105 


117 


120 


057 


120 


103 


113 


124 


040 


122 


111 


105 


04 


122 


122 


122 


040 


120 


141 


151 


164 


040 


157 


040 


164 


155 


145 


165 


164 


000 





P.AJA; 



P.AJBi 



P.AJC: 



.ASCII 


/TF.D/ 


.ASCII 


/ PU/ 


.ASCII 


/LSE/ 


.ASCII 


/ OR/ 


.ASCII 


/ SI/ 


.ASCII 


/ATE/ 


.ASC T I 


/ PA/ 


.ASCII 


/PIT/ 


,ASCxI 


/Y E/ 


.ASCII 


/RRO/ 


.a.;cii 


/R/<00"> 


.ASCII 


/#AC/ 


.ASCII 


/ONI/ 


.ASCII 


/ROL / 


.ASCII 


/LER/ 


.ASCII 


/ TI/ 


.ASCII 


/MEG*/ 


.ASCII 


/UT/<00> 


.ASCII 


<00> 


.ASCII 


/*AE/ 


.ASCII 


/NVE/ 


.ASCII 


/LOP/ 


.ASCII 


/fc*/<57>/P/ 


.ASCII 


/ACK/ 


.ASCII 


/ET / 


.ASCII 


/RFA/ 


.ASCII 


/o f:/ 


.ASCII 


/RRO/ 


.ASCII 


/R (/ 


.ASCII 


/Par/ 


.ASCII 


/ity/ 


.ASCII 


/ or/ 


.ASCII 


/ t;/ 


.ASCII 


/meo/ 


.ASCII 


/ut)/ 


.ASCII 


<00><00-» 


.ASCII 


/•At/ 


.ASCII 


/Nve./ 


.ASCII 


/LOP/ 


.ASCII 


/e:/<57>/p/ 


.ASCII 


/ACK/ 


.ASCII 


/El / 


.ASCII 


/WR1/ 


.ASCII 


/TF ' 


.ASCII 


/t RR/ 


.ASCII 


'OR / 


.ASCII 


/(Pa/ 


. ASC 1 1 


/ r ; t / 


.ASCII 


/y o-' 


.Ascir 


/r t/ 


.ASCII 


/ i me / 


.ASCII 


/out 


.ASCII 


/ ) / « 00 * 



1-8 



2R0AN I 
V0U6 

0W5b2 
0K5b5 
017570 

0175/3 

01^01 
017t>04 
01760 7 
017612 
017615 
017t,20 
017625 
0176<?b 
017630 
017633 
017636 
017641 
017644 
01764 7 
017652 
017655 
01 '660 
017663 
017666 
017671 
017674 
017677 
017702 
017705 
017710 
017713 
017716 
017721 
017724 
017727 
017732 
017735 
017 740 
017 743 
017746 
01/751 
017 754 
017757 
017 762 
017/65 

01/770 
017/72 
017775 

020000 
02000 5 
02000*. 
020011 
020014 



RD/RX EXERCISER 
PROTECTION TABLE 



11 -Apr -1984 11:56:01 
ii-Apr-1984 11:45:02 



VAX-11 Blisalb V4.0 579 
DISK*USER2j [ POWERS ]ZRQAD0.BL1;6 



SEQ 0095 
Page 95 
(34) 



045 
117 
122 

114 
040 
115 
116 
122 
040 
122 
131 
122 
122 
045 
11/ 

1 TO 

114 
040 
115 
101 
124 
105 
117 
045 
117 

122 

114 
040 
115 
101 
124 
105 
117 
045 
HI 
040 
101 
105 
11/ 
050 
162 
171 

162 
151 

157 
051 
045 
111 

040 

111 

040 
122 
040 



101 
116 
117 
105 
122 
040 
104 
101 
120 
111 
040 
122 
000 
101 
116 
117 
105 
12? 
040 
122 
151 
122 
122 
101 
116 
117 
105 
122 
040 
122 
131 
122 
122 
101 
116 
122 
104 
122 
122 
120 
151 
040 
040 
155 
165 
000 
101 
116 
127 
124 
105 
117 
050 



103 
124 
114 
122 
117 
101 
040 
115 
101 
124 
105 
117 

103 
124 
114 
122 
101 
120 
HI 
C40 
122 
000 
103 
124 
114 
122 
117 
120 
111 
040 
122 
000 

122 
107 

105 
040 
122 
040 
141 
164 
15/ 
164 
145 
164 

122 

10 7 
122 

103 

122 
122 
120 



P.AJDi 



P.AJE 



P.AJF 



P.AJG 



P.AJHj 



.ASCII 


/*AC/ 


.ASCII 


/ONT/ 


.ASCII 


/ROL/ 


.ASCII 


/LF.R/ 


.ASCII 


/ RO/ 


.ASCII 


/M A/ 


.ASCII 


/NO / 


.ASCII 


/RAM/ 


.ASCII 


/ PA/ 


.ASCII 


/RIT/ 


.ASCII 


/Y E/ 


.ASCII 


/RRO/ 


.ASCII 


/R/<00> 


.ASCII 


/*AC/ 


.ASCII 


/ONT/ 


.ASCII 


/ROL/ 


.ASCII 


/LER/ 


.ASCII 


/ RA/ 


.ASCII 


/M P/ 


.ASCII 


/ARI/ 


.ASCII 


/TY / 


.ASCII 


/ERR/ 


.ASCII 


/0R/<00> 


.ASCII 


/*AC/ 


.ASCII 


/ONT/ 


.ASCII 


/ROL/ 


.ASCII 


/LER/ 


.ASCII 


/ RO/ 


.ASCII 


/M P/ 


.ASCII 


/ARI/ 


.ASCII 


/Ty / 


.ASCII 


/ERR/ 


.ASCII 


/0R/<00> 


.ASCII 


/*AR/ 


.ASCII 


/ING/ 


.ASCII 


/ Rf/ 


.ASCII 


/AD / 


.ASCII 


/ERR/ 


.ASCII 


/OR / 


.ASCII 


/(Pa/ 


.ASCII 


/ r ; t / 


.ASCII 


/y / 


.ASCII 


/r t/ 


.ASCII 


/ * me / 


.ASCII 


''out/ 


.ASCII 


. ), '00* 


ASCII 


/»AR/ 


.ASCII 


/INCi/ 


.ASCII 


/ WR/ 


. ASC 1 I 


/IT. / 


.ASCII 


/ bU ' 


.ASCII 


/ROR/ 


. ASC 1 1 


/ \P/ 



8 



7RQAM1 

020017 
020022 
020025 

020030 
020033 
020036 

020042 
020045 
020050 
020053 
02005c 
020061 
020064 

02006 7 
0200 72 
0200 74 

02007 7 
020102 
020105 
020110 
020113 
020116 
020121 
0201^4 
020127 
020132 
020135 
020140 
020143 
020146 
020151 
020154 
02015? 
020162 
020164 
02016 7 
020172 
020175 
020200 
020203 
0202 C 6 
020211 
020214 
020217 
020222 
O202P5 
0202 30 
0202 3 3 
0202 36 
020241 
020242 
020245 



RD RX EXERCISER 

PROTECTION TABLE 



141 
164 
157 
164 
145 
164 
000 
111 
105 
125 
040 
123 
122 
101 
125 
000 
045 
117 
040 
103 
123 
111 
117 
040 
151 
145 
154 
145 
160 
164 
157 
144 
145 
145 
051 
045 
122 
111 
114 
111 
105 
105 
105 
045 
055 
123 

10: 

105 
105 
11/ 
000 
045 
117 



162 
171 
162 
151 
157 
051 

116 

122 
120 
115 
124 
040 
111 
122 
000 
101 
123 
101 
105 
040 
115 
125 
050 
147 
162 
145 
154 
162 
157 
154 
145 
156 
156 
000 
101 
105 
124 
111 
124 
130 
105 
104 
101 
10? 
040 
123 
122 
122 
122 

101 

116 



151 
040 
040 
155 
165 
000 

124 

122 
124 
101 
105 
106 
114 
105 

no 

124 
103 
123 
124 
105 
124 
110 
150 
040 
166 
040 
15? 
14 3 
040 
160 
144 
164 

103 
104 
040 
115 
040 
103 
104 
000 
121 
125 
115 
124 
040 
122 
000 

103 

124 



P.AJI 



P.AJJ 



P . A J!< • 



P . A JL j 



P.AJMi 





11 -Apr -1984 11 1 56:01 




ll-Apr-1984 11:45:02 


ASCII 


[ /ari/ 


ASCI J 


C /ty / 


ASCI] 


[ /or / 


ASCI] 


[ /tim/ 


ASCI] 


[ /eou/ 


ASCI] 


[ /t)/<00> 


ASCI] 


[ <00> 


ASCI] 


[ /INT/ 


ASCI] 


[ /ERR/ 


ASCI] 


[ /UPT/ 


ASCI] 


[ / MA/ 


ASCI] 


[ /STE/ 


ASCI] 


[ /R F/ 


ASCI] 


[ /AIL/ 


ASCI] 


[ /URE/ 


ASCI] 


[ <00><00> 


ASCI] 


[ /#AH/ 


ASCI] 


L /OST/ 


ASCI] 


[ / AC/ 


ASCII 


[ /CES/ 


ASCI] 


[ /S T/ 


ASCI] 


[ /IME/ 


ASCI] 


[ /OUT/ 


ASCI] 


[ / (H/ 


ASCI] 


[ / I gh / 


ASCI] 


[ /er / 


ASCI] 


[ /lev/ 


ASCI] 


[ /«1 / 


ASCI] 


[ /pro/ 


ASCI] 


[ /toe/ 


ASCII 


[ /ol / 


ASCI] 


[ /dep/ 


ASCI] 


[ /*nd/ 


ASCI] 


[ /«nt/ 


ASCI] 


: /)/<oo> 


ASCI] 


[ /*AC/ 


ASCI] 


[ /RED/ 


ASCI] 


[ /IT / 


ASCI] 


[ /l.IM/ 


ASCI] 


[ /ir / 


ASCI] 


: /exc/ 


ASCI] 


[ /EED/ 


ASCII 


[ /FD/<00> 


ASCI] 


: /*aq/ 


ASCII 


r / HU/ 


ASCII 


[ /S H/ 


ASCI] 


> / AS 1 / 


ASCI] 


[ /ER / 


ASCII 


/ERR/ 


ASCI] 


. /0R/<00> 


ASCI] 


<00> 


ASCII 


/#AC/ 


ASCI] 


. /ONT/ 



VAX-11 BI193-I6 V4. 0-579 

DISK $USER2:[ POWERS ]ZRQAD0.BL1;6 



3EU 0096 
Page 96 
(34) 



7RUAM1 
VOL 6 

030250 
0>025? 
020256 

020261 
020264 
02026? 
020272 
0202 74 

0202*:: 

020302 
020305 
020310 
020313 
020316 
020321 
020324 
020327 
020330 
020333 
020336 
020341 
020344 
02034 7 
020352 
020355 
020360 
020363 
02036o 
020371 
020374 
020377 
02040? 
020405 
020410 
020413 
020416 
020421 
02042? 
020425 
020430 
020433 
020436 
020441 
020444 
020447 
02045? 
020455 
020460 
020463 
020466 
0204 71 
0204 74 
0204 7 7 



RD/RX EXERCISER 
PROTECTION TABLE 



ll-Apr-1984 11:56:01 
ll-Apr-1984 11:45:02 



VAX-11 Bliss-16 V4.0-579 
DISK*USER2: C POWERS )ZRQAD0.BL1|6 



3EQ 0097 
Page 97 
C34) 



114 
040 
124 
040 
122 
000 
045 
116 
122 
124 
116 
117 
040 
115 
125 
000 
045 
114 
107 
040 
122 
101 
103 
103 
124 
104 
045 
116 
122 
120 
126 
124 
040 
114 
101 
000 
045 

101 
124 

101 
105 
105 
057 
111 
040 
126 
111 
12? 
Ill 
040 
105 
111 



11/ 
105 
106 

101 
105 
117 
000 
101 
123 
125 
111 
040 
117 
124 
105 
124 

101 
114 
101 
126 
124 
114 
111 
125 
040 
000 
101 
124 
122 
124 
105 
117 
111 
105 
114 

101 
111 

105 
116 
040 
101 
12 7 
124 
111 
101 
104 
105 
11/ 
111 
116 
106 



114 
122 
101 
114 
122 
122 

111 
124 
103 
117 
114 
120 
HI 
117 
000 

111 

105 
114 
HI 
125 
040 
122 
111 
111 
000 
111 
105 
125 
040 
103 
122 
114 
107 
000 

115 

116 
116 
103 
122 
104 
122 
105 
116 
114 
040 
10/ 
116 
104 
1 24 
111 



P.AJN: 



P.AJO: 



P . A JP : 



P.AJQj 



.ASCII 


/ROIV 


.ASCII 


/LER/ 


.ASCII 


/ FA/ 


.ASCII 


/TAL/ 


.ASCII 


/ ER/ 


.ASCII 


/ROR/ 


.ASCII 


<00><00> 


.ASCII 


/*AI/ 


.ASCII 


/NST/ 


.ASCII 


/RUC/ 


.ASCII 


/TIO/ 


.ASCII 


/N I./ 


.ASCII 


/OOP/ 


.ASCII 


/ 11/ 


.ASCII 


/MEO/ 


.ASCII 


/UT/<00> 


.ASCII 


<00> 


.ASCII 


/*AI/ 


.ASCII 


/LLE/ 


.ASCII 


/GAL/ 


.ASCII 


/ vl/ 


.ASCII 


/RTU/ 


.ASCII 


/Al. / 


.ASCII 


/CIR/ 


.ASCII 


/CUI/ 


.ASCII 


/T 1/ 


.ASCII 


/0/<00><00 


.ASCII 


/*AI/ 


.ASCII 


/NTE/ 


.ASCII 


/RRU/ 


.ASCII 


/PT / 


.ASCII 


/VEC/ 


.ASCII 


/TOR/ 


.ASCII 


/ IL/ 


.ASCII 


/LEG/ 


.ASCII 


/AL/<00> 


.ASCII 


<00> 


.ASCII 


/•AM/ 


.ASCII 


/A1N/ 


.ASCII 


/TEN/ 


.ASCII 


/ANC/ 


.ASCII 


/E R/ 


.ASCII 


/EAO/ 


.ASCII 


<5 7>/WR/ 


.ASCII 


/TTl / 


.ASCII 


/ IN/ 


.ASCII 


* VAL/ 


.ASCII 


/ID / 


. ASC 1 1 


/REG'' 


.ASCII 


/ION' 


.ASCII 


/ 10/ 


, ASC 11 


/t NT / 


.ASCII 


/in/ 



H8 



VOL.6 

020502 
020505 
02050b 
020511 
020514 
0205 1" 
020522 
020525 
020530 
020533 

020536 

02054 1 
020544 
02054 ■■' 
020552 
020555 
020560 
020563 
020566 

0205 71 
020572 
020575 
020600 
020603 
020606 
020611 
020614 
020617 
020622 
020625 
020630 
020633 
02C636 
02064 1 
020644 
02064 7 
020652 
020655 
020660 
020663 
020664 
020667 
020672 

0206 75 
020/00 
020/03 
020 706 
020711 
020714 
020717 
020722 
020/25 
020730 



RO/RX EXERCISER 
PROTECTION TABl.fr 



105 
000 
045 
101 
124 
101 
105 
122 
105 
117 
040 
040 
116 
117 
101 
105 
117 

122 

114 
000 
04 5 
117 
122 
114 
040 
115 
122 
122 
116 
055 
162 
171 
045 
116 
040 
121 
116 
040 
122 
000 
045 
111 
105 
114 
105 
120 
124 
117 
111 
117 
101 
102 
111 



122 

101 
111 

105 
116 
040 
111 
040 
101 
124 
116 
055 
101 
102 
040 
116 
117 
105 

101 

116 
117 
105 
122 
040 
122 
040 
157 
160 
151 
051 
101 
111 
123 
125 
103 
105 
117 

101 
107 
122 
105 
114 
122 
117 
114 
116 
115 
124 
111 
124 



000 

115 

116 
116 
103 
127 
124 
114 
104 
117 
117 
114 
104 
114 
103 
124 
114 
122 

103 
124 
114 
122 
101 
105 
117 
050 
156 
141 
164 
000 

111 

124 
105 
105 
105 
122 
122 

110 
110 
040 
126 
040 
11/ 
103 
040 
103 
120 
111 
114 
131 



P.AJR 



P.AJS: 



P.AJT: 



P.AJU; 





11 -Apr. 1984 11:56:01 




ll*Apr-19tt4 11:45:02 


,ascu 


/ER/<00> 


.ASCII 


<00> 


.ASCII 


/KAH/ 


.ASCII 


/AIN/ 


.ASCII 


/TEN/ 


.ASCII 


/ANC/ 


.ASCII 


/E W/ 


.ASCII 


/RIT/ 


.ASCII 


/E L/ 


.ASCII 


/QAD/ 


.ASCII 


/ ]()/ 


.ASCII 


/ NO/ 


.ASCII 


/N L/ 


.ASCII 


/OAD/ 


.ASCII 


/ABL/ 


.ASCII 


/F. C/ 


.ASCII" 


/ONT/ 


.ASCII 


/ROL/ 


.ASCII 


/LER/ 


.ASCII 


<00> 


.ASCII 


/*AC/ 


.ASCII 


/ONT/ 


.ASCII 


/ROL/ 


.ASCII 


/LER/ 


.ASCII 


/ RA/ 


.ASCII 


/M E/ 


.ASCII 


/RRO/ 


.ASCII 


/R (/ 


.ASCII 


/Hon/ 


.ASCII 


/-po/ 


.ASCII 


/rlt/ 


.ASCII 


/y)/<00> 


.ASCII 


/*AI/ 


.ASCII 


/NIT/ 


.ASCII 


/ SE/ 


.ASCII 


/QUE/ 


.ASCII 


/NCt-V 


.ASCII 


/ ER/ 


.ASCII 


/ROR/ 


.ASCII 


<00> 


.ASCII 


/*AH/ 


.ASCII 


/IliH/ 


.ASCII 


/ER / 


.ASCII 


/LEV/ 


.ASCII 


/H / 


.ASCII 


/PRO/ 


.ASCII 


/IOC/ 


.ASCII 


/at / 


.ASCII 


/INC/ 


.ASCII 


/OMP/ 


.ASCII 


//U 1/ 


.ASCII 


/HI I / 


.ASCII 


/in/ 



VAX 11 Bit so -10 V4, 0-579 

DISK *USER2:[ POWERS URQAD0,BLli6 



SEQ 0098 
Poge 98 
C34) 



w 



i'RQANi 
VOL 6 

020 733 
020 73t> 
020 74 1 
020 742 
020745 
020 750 

02075b 
020 7b 1 
0«?0 "64 

020 7 72 
020 7 75 
021000 
021003 
02100b 
021C11 
021014 
021017 
021022 
021025 
021030 
02103? 
021036 
021041 
021044 
021047 
' 21052 
021055 
021060 
021063 
021064 
021066 
0210 70 
0210 72 
021074 
021076 
021100 
021102 
021104 
021106 
021110 
021112 
021114 
021 116 
021120 
021122 
021124 
021126 
021130 
021132 
021134 
021156 



RD-RX tXERCISER 

PROTECTION TABLE 



040 

122 

000 
045 

125 

105 

117 

040 

122 

101 

040 

111 

122 

045 

101 

111 

040 

10 7 

124 

040 

101 

106 

114 

105 

120 

151 

040 

040 

155 

165 

000 

017370 

017416 

017500 

017562' 

017630 

017666 

01/724 

017 7 7,? 

02004? 

0200 74 1 

020164 

020214 

020242' 

0202 74 

020350 

020366' 

020422 

020506 

0205/2' 

020M6 

0206M 

020742' 



105 
117 

101 
122 

057 
114 
110 
104 
122 
106 
114 
105 
101 
120 
116 
122 
111 
105 
122 
104 
101 
125 
040 
141 
164 
157 
164 
145 
164 



122 
122 

120 

10/ 
120 
114 
101 
12 7 
105 
101 
125 
000 
115 
120 
10 7 
105 
123 
122 
105 
040 
111 
122 
050 
162 
171 
162 
151 
15 7 
051 



P . A JV 



P.AJW; 



P.A1/ 





11 Apr-1984 11:56:01 




U-Apr-1984 11-45:02 


ASCII 


/ ER/ 


ASCII 


/ROR/ 


ASCII 


<00> 


ASCII 


/*AP/ 


ASCII 


/URG/ 


ASCII 


/E/<57»/P/ 


ASCII 


/OL.L/ 


ASCII 


/ HA/ 


ASCII 


/ROW/ 


ASCII 


/ARE/ 


ASCII 


/ TA/ 


ASCII 


/n.u/ 


ASCII 


/RE/<00> 


ASCII 


/#AM/ 


ASCII 


/APP/ 


ASCII 


/ING/ 


ASCII 


/ RE/ 


ASCII 


/GIS/ 


ASCII 


/TER/ 


ASCII 


/ RE/ 


ASCII 


/AD / 


ASCII 


/FAI/ 


ASCII 


/LUH/ 


ASCII 


/E (/ 


ASCII 


/Par/ 


ASCII 


/ity/ 


ASCII 


/ or/ 


ASCII 


/ tl/ 


ASCII 


ZfTKrO/ 


ASCII 


/ut )/ 


ASCII 


<00> 


WORD 


P . A JA 


WORD 


P.AJB 


WORD 


P.AJC 


WORD 


P . A JD 


WORD 


P . A JE 


WORD 


P . A JV 


WORD 


P.AJG 


WORD 


P.AJH 


WORD 


P.AJI 


WORD 


P.AJJ 


WORD 


P , A Ji< 


WORD 


P . A Jl. 


WORD 


P.AJM 


WORD 


P. AJN 


WORD 


V . A JO 


WORD 


P.AJP 


WORD 


P.A.KJ 


WORD 


P.AJH 


WORD 


P.AJS 


WORD 


P.AJI 


WORD 


P.AJn 


WORD 


P . i\jy 



VAX-11 Bliss 16 V4.0 5 79 

DI SK SUSER2 i I POWERS URQADO . BL 1 ; 6 



5EU 0090 
Page 99 
C34) 



■s 



7R0AMI 




VOl.o 




051140 


051000 


051145 


045 


051145 


061 


0511 so 


103 


05:153 


040 


05iirn- 


111 


Oc?:ifti 


155 


051164 


04 5 


Oil 16-' 


ir 


05 n .v 


150 


tvirs 


111 


051500 


040 


051503 


115 


051506 


155 


051? 11 


155 


051514 


04S 


05151" 


154 


OcM.V.? 


105 


051555 


101 


eVlJ*50 


111 


051533 


040 


051536 


111 


0^1241 


155 


051544 


055 


05154 7 


061 


051555 


101 


051555 


155 


051560 


153 


051563 


105 


051566 


153 


051571 


155 


0515 *4 


045 


05 1 c " 


154 


05150*.* 


105 


051 305 


101 


051510 


111 


051515 


040 


051316 


ill 


051351 


155 


051354 


055 


05135: 


055 


0513 35 


153 


051335 


104 


05134 


105 


05134? 


040 


05 1 34 £ 


10/ 


051351 


154 


051354 


000 


051356 


045 


051561 


154 


051364 


1 05 


05156 ' 


101 


05137.' 


111 



RO RX EXERCISER 

PROTECTION TABLE 



11- Apr- 1984 11:56:01 
11 Apr 1984 11:45:05 



VAX 11 Blisfi 16 V4.0 -5/9 

DISK $UStR2 j [ POWERS ]/RQAD0.BL.l|6 



seq oioo 

Page 100 
(34) 



101 


154 


061 


040 


150 


155 


106 


101 


114 


155 


105 


000 


101 


116 


116 


055 


101 


155 


154 


131 


155 


101 


040 


105 


155 


117 


000 


000 


101 


153 


101 


154 


040 


115 


103 


11C 


116 


105 


106 


101 


114 


155 


105 


040 


040 


154 


061 


040 


104 


104 


105 


153 


040 


155 


107 


111 


154 


105 


000 


000 


101 


153 


101 


154 


040 


115 


103 


110 


116 


105 


106 


101 


114 


155 


105 


040 


040 


151 


105 


155 


040 


101 


104 


155 


153 


153 


155 


105 


111 


153 


105 


15? 


000 




101 


153 


101 


154 


040 


U5 


10? 


110 


116 


105 



P.AJti 



P.AJZ: 



P.AKA: 



P.AKB: 



P.AKC: 



.WORD 


P.AJW 


.ASCII 


/*AT/ 


.ASCII 


m / 


.ASCII 


/CPU/ 


.ASCII 


/ EA/ 


.ASCII 


/ii.u/ 


.ASCII 


/RE/<00> 


.ASCII 


/*AN/ 


.ASCII 


/ON-/ 


.ASCII 


/PAR/ 


.ASCII 


/IT t / 


.ASCII 


/ ra/ 


.ASCII 


/M £/ 


.ASCII 


/RRO/ 


•ASCII 


/R/<00><00> 


.ASCII 


/HAS/ 


.ASCII 


/TAT/ 


.ASCII 


/e: m/ 


.ASCII 


/ACH/ 


.ASCII 


/INEZ 


.ASCII 


/ FA/ 


.ASCII 


/II.U/ 


.ASCII 


/RE / 


.ASCII 


/- T/ 


.ASCII 


m ' 


.ASCII 


/ADD/ 


.ASCII 


/RES/ 


.ASCII 


/S R/ 


.ASCII 


/EGI/ 


.ASCII 


/STE/ 


.ASCII 


/R/<00wOO> 


.ASCII 


/*ASV 


.ASCII 


/TAT/ 


.ASCII 


/L M/ 


.ASCII 


/ACH/ 


.ASCII 


/INEZ 


.ASCII 


/ FA/ 


.ASCII 


/It u/ 


.ASCII 


/RE / 


.ASCII 


/• Q/ 


.ASCII 


/ BU/ 


.ASCII 


/S A/ 


.ASCII 


/ODR/ 


.ASCII 


/ESS' 


.ASCII 


•' Mt ' 


.ASCII 


nils/ 


.ASCII 


/U-R/ 


.ASCII 


< 00 * » 00 > 


.ASCII 


/KAS/ 


.ASCII 


/TAI, 


.ASCII 


/e m/ 


.ASCII 


/ACH/ 


•ASCII 


/INEV 



KM 



/ROAM l 
VOl .6 



KD'RX EXERCISER 

PROTECTION TABU" 



11 -Apr-lS84 
11 Apr -1964 



11:56:01 VAX -11 Bliss 16 V4 . 0-579 

1 1 : 45 ! 02 DISK $ US£R2 : [ POWERS ] ZRQADO . BL 1 1 6 



SEQ 0101 
Page 101 
(34) 



**M400 
1405 



0213 *5 



02 14 Ot> 
021411 
0«?1414 
021417 

021422 

021425 
02142b 
0214 31 
0214 34 
0214 3' 
021442 
021445 
02 14 SO 
021453 
021456 
021461 
0214 o 4 
02146 T 
021472 

0214 75 
021500 
021503 
021506 
021511 
021514 
021517 
021522 
02152'* 
021530 
021533 
02153b 
02154 1 
021544 
02154/ 
021552 
021555 
021560 
02156 5 
021566 
02 15/1 
021574 

0215 7 7 
021602 
021604 
021606 
021610 
021612 
021614 
02161 *> 
021620 



040 
111 
122 
055 
122 
122 
111 
105 

ooc 

04 5 
124 
105 
101 
til 
040 

111 
12? 

055 
105 
101 
132 
05- 7 
123 
111 
111 
122 
105 
123 
122 
045 
124 
105 
101 
111 
040 
111 
122 
055 
122 
107 
101 
127 
105 
105 
111 
000 
021142 
021164 
021214 
0212 74 
02H56- 
(VI 4, --'6' 
021522 



106 
114 
105 
040 
103 
105 
123 
122 

101 

101 
040 
103 
116 
106 
! 14 
105 
040 
122 
114 
105 
104 
105 
101 
132 
040 
10 7 
124 
000 
101 
101 
040 
103 
116 
106 
114 
105 
040 
117 
040 
122 
101 
040 
122 
117 
000 



101 
125 
040 
103 
040 
107 
124 
000 

123 

124 
115 
110 
105 
101 
125 
040 
123 
111 
111 
122 
105 
122 
114 
105 
122 
111 
105 
000 
123 
124 
115 
110 
105 
101 
125 
040 
12? 
116 
110 
104 
122 
12* 
123 
116 



P . AKD : 



P ♦ AKF. : 



P.AJX; 



.ASCII 
.ASCII 
.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.WORD 

.WORD 

.WORD 

. WORD 

.WORD 

.WORD 

.WORD 



/ FA/ 
/ILU/ 
/RE / 
/ • C/ 
/RC / 

/rei;/ 

/IST/ 
/ER/<00> 

<00> 

/*AS/ 

/TAT/ 

/e m/ 

/ACH/ 
/INEZ 
/ FA/ 
/ILU/ 

/RE / 

/- S/ 

/ERI/ 

/AH/ 

/ZKR/ 

<57>/DE/ 

/SF.R/ 

/IAL/ 

/I2F/ 

/R R/ 

/F.GI/ 

/S1E/ 

/R/<00><00> 

/*A5/ 

/TAT/ 

/E M/ 

/ACH/ 

/INF./ 

/ ^ A/ 

/Il.U/ 

/re: / 

/ w/ 
/RON/ 
/6 H/ 
/ARO/ 

/WAR/ 

/E V/ 
/FRS/ 
/UN/ 

«00x()0> 

P.AjY 

P . AJ/ 
P.AKA 
P. A KB 
P. AKC 
P.AKO 
P.AKt 



1 tf 



7RQAN1 
VOL 6 

021622 

021630 
021655 
021636 
021641 
021644 
02164 7 
021652 
021655 
021d60 
021663 
021666 
021671 
021674 
021677 
021702 
021705 
021710 
021713 
02171b 
021720 
021 /23 
021726 
021731 
021734 
021757 
02174? 
021745 
021750 
021753 
021756 
021761 
021764 
02176 7 
0217 72 
0217 75 
022000 
022005 
022006 
022011 
022014 
022016 
022021 
022024 
02202 7 
022052 
022035 
022040 
02204 5 
02204*. 
022051 
022054 



RD/Rx EXERCISER 
PROTECTION TABLE 



045 
101 
121 

104 

040 
114 
045 
04 5 
117 
125 
124 
132 
101 
123 
060 
040 
102 
060 
120 
040 
066 
04 5 
101 
121 
110 
040 
122 
04 5 
04 5 
11.7 
125 
124 
132 
101 
123 
060 
040 
102 
060 
120 
040 
066 
04 5 
101 
121 
123 
040 
122 
04 5 
04 5 
117 
125 
124 



116 
132 

101 
105 
106 
040 
132 
101 
116 
116 
040 
062 
040 
124 
060 
123 
040 
060 
103 
045 
000 
1.16 
152 
101 
122 
105 
040 
152 
101 
116 
116 
040 
062 
040 
124 
060 
123 
040 
060 
105 
045 
000 
116 
152 
101 
106 
105 
040 
152 
101 
1 16 
116 
040 



045 
122 
040 
126 
124 
040 
065 
040 
040 
111 
045 
045 
124 
040 
061 
125 
060 
040 
072 
117 

045 
122 
040 
104 
122 
040 
065 
U40 
040 
111 
045 
045 
124 
040 
061 
125 
060 
040 
072 
117 

045 
122 

040 
124 

122 

040 

0ti5 

040 
040 

111 
045 



P , AKF j 



P , AKG 



P . AKH 







11 -Apr- 1984 11:56:01 






LI -Apr -1964 11:45:02 


.ASCII 


/UN*/ 




.ASCII 


'AZR/ 




.ASCII 


/QA / 




.ASCII 


/OEV/ 




.ASCII 


/ FT/ 




.ASCII 


/L. / 




.ASCII 


/*Z5/ 




.ASCII 


/*A / 




.ASCII 


/ON / 




.ASCII 


/UNI/ 




.ASCII 


/T ii/ 




.ASCII 


/Z2*/ 




.ASCII 


/A T/ 




.ASCII 


/ST / 




.ASCII 


/ooi/ 




.ASCII 


/ su/ 




.ASCII 


/8 0/ 




.ASCII 


/oo / 




.ASCII 


/PC:/ 




.ASCII 


/ *o/ 




.ASCII 


/6/<00> 




.ASCII 


/*Nrf/ 




.ASCII 


/AZR/ 




.ASCII 


/QA / 




.ASCII 


/HRD/ 




.ASCII 


/ e-:r/ 




.ASCII 


/R / 




.ASCII 


/*Z5/ 




.ASCII 


/*A / 




.ASCII 


/ON / 




.ASCII 


/UNI/ 




.ASCII 


/r +/ 




.ASCII 


/72+/ 




.ASCII 


/A T/ 




.ASCII 


/ST / 




.ASCII 


/OOI/ 




.ASCII 


/ su/ 




.ASCII 


/H 0/ 




.ASCII 


/oo / 




.ASCII 


/PC:/ 




.ASCII 


/ no/ 




.ASCII 


/6/<00> 




.ASi'TJ 


/*N#/ 




.ASCII 


/A/R/ 




.ASCII 


/QA / 




.ASCII 


/SKT/ 




.ASCII 


/ tin/ 




.ASCII 


/R / 




.ASCII 


/<W 




.ASCII 


/*A '' 




.ASCII 


/UN / 




.ASCII 


/UNI/ 




.ASCII 


/T */ 





VAX-11 Bliss-16 V4. 0-579 
DISK*USER2s [ POWERS URQAD0.BHj6 



SEQ 0102 
Page 102 
(34) 



M8 



/RQAM1 
VOL 6 

0220:2/ 

022062 
022065 
022070 
02207? 
0220/6 
022101 
022104 
022107 
022112 
022115 
022116 
022121 
022124 
022127 
022152 
022135 
022140 
02214 3 
022146 
022150 
022153 
022154 
022157 
022160 
022163 
022166 
0221 7 i 
022174 

022176 

022200 

022202 

022204 

022206 

022210 

022212 

022214 

0222 U) 

022220 

022222 
022224 



RD/RX EXERCISER 
PROTECTION TABLE 



11 -Apr-1984 11:56:01 
ll-Apr-19U4 11:45:02 



VAX-11 bliss-16 V4, 5/9 

DISK $USER2 } [ POWERS 1ZRQAD0 , 8L 1 $6 



SEG 0103 
Page 10? 
(34) 



132 
101 
123 
060 
040 
102 
060 
120 
040 
Ob 6 
000 
045 
101 
117 
105 
105 
040 

111 
104 
000 
045 
000 
04 5 
000 
045 
055 
04 5 
040 
OOOOOOC 

1/2150 

000154 

000004 

100340 

000 OOO 

000000 

1/77/7 

oooooo 
ooooooc 

000040 

oooooo 



062 
040 
124 
060 
123 
040 
060 
103 
045 
045 

116 

111 
040 
121 
123 
106 
114 
045 
000 
123 

116 

101 

040 
101 
000 



045 
124 
040 
061 
1^5 
060 
040 
072 
117 
116 

045 
057 
122 
125 
124 
101 
105 
116 

064 
000 

040 
000 
052 
000 





.ASCII 


/Z2*/ 




.ASCII 


/A T/ 




.ASCII 


/ST / 




.ASCII 


/ooi/ 




.ASCII 


/ su/ 




.ASCII 


/B 0/ 




.ASCII 


/oo / 




.ASCII 


/PC:/ 




.ASCII 


/ *0/ 




.ASCII 


/6*N/ 




.ASCII 


<00> 


P.AKli 


■ASCII 


/*N#/ 




.ASCII 


/Al/<57> 




.ASCII 


/O R/ 




.ASCII 


/EQU/ 




.ASCII 


/EST/ 




.ASCII 


/ FA/ 




.ASCII 


/ILE/ 




.ASCII 


/D*N/ 




.ASCII 


<00><00> 


P.AKJ; 


.ASCII 


/*S4/ 




.ASCII 


<00> 


P . AKK : 


.ASCII 


/*N/<00> 




.ASCII 


<00> 


P.AKl : 


.ASCII 


/*A / 




.ASCII 


/» /<00> 


P.AKM: 


.ASCII 


/*'A*/ 




.ASCII 


/ /<00><00> 


L*HWLEN 


; ; 






.WORD 


<<L$NDHW-L$HWLEN>/2> 


HWPT.IP 


,ADDR: : 






.WORD 


-5630 


HWPT. VECTOR: : 






.WORD 


154 


HWPT.RR 


.LEVEL: : 






.WORD 


4 


HWPT.DI 


5K: : 






.WORD 


-7/440 


HUP 150. 


LBN: : 






.WORD 





HWPTSl. 


LBN: : 






.WORD 





HWPTEO. 


LBN: ; 






.WORD 


-1 


HUPTE1. 


LBN; ; 






. WORD 





LJNDHW: 


: .BLKU 


1 


I iSWl.FN 


: : 






.WORD 


<•<{ *N0^W-L$SWLEN>/2> 


SUP. ERROR: : 






. w; a) 


40 


bWP.XFER: : 






.WORD 






N8 



/RUAM1 
V01 ,b 

022226 054046 

022230 000000 

022232 000145 

022234 000000 

0222 St » CGOolJ 

022240 000020 

02224/ 

022302 

022304 000000 

022306 1/77 77 

022510 00000b 



RD/RX EXtRCISLR 
PROTECTION TABU 



SWP.n.AbS: : 

.WORD 54046 
SWP.PPAT: : 

, WOP'; u 
SUP.n.'Vi : : 

,WGRO 143 
SWP.TIME: : 

.WORD 
DUPROUND: ; 

.WORD 13 
SWP.UCNT: ; 

. WORD 20 
SWP.UDPAT: : 

.BLKW 20 
LJNDSW: : .BLKW 1 
L$PROT; : .WORD 

.WORD 1 

.WORD 6 



11 -Apr -1984 11:56:01 
ll-Apr-19«4 11:45:02 



VAX-11 Hi : ^- if, VI. 0-579 
DTSKJUSER2; [POWERS 'J2RQAD0.BL.li 6 



SEQ 0104 
Page 104 
(34) 



000000 
000000 
000126 

000130 
000152 

000154 

000156 

OOOKiO 

000200 
000530 
000532 
001534 
001534 
001535 
001536 
001537 
001540 

001542 
001^02 

001604 

005514 

005516 

003332 



001 
001 
001 
001 
000020 



.PSLCT 
CST:: ,BLKW 

CST.AODR: : 

.BLKW 
DCT:: .BLI'W 

DCT.ADDR: : 

.BLKW 

RDRX.AODR: : 

.BLKW 

1RDRX.ADDP: : 
.BLKW 

BST: : 

TALLY; 



I .ADDR 
DUPPKT 
TRK.SGN 



BLKW 
BlKW 
BLKW 
BLKW 



.BYTE 
.BYTE 
.BY1E 

.BYTE- 
ROM, CNT: : 

.WORD 
RANDOM: : ,Bl KW 
C.ERR. TBI.: : 

.BLKW 
MSCP.PKT: : 

,Bt KW 
IPKT.ADDR: : 

. BLKW 
Pl< i . USE : ; 

.HI KW 
RETPKTj j.BLKW 



S3 

1 
11 

1 

1 

10 

154 

1 

401 

1 
1 
1 
1 

20 
20 

1 

644 

1 

6 

260 



D 



GBL 



h't 



/ROAM l 


RO R\ * xtMClSIR 




voi .»• 


PROTECTION TABU 




0040 V 




RP.USt : : .Hi KW 4 


00410,' 




RP. TNOX: ; 

.HI KW 1 


004 1 04 




RP . ADDR : : 

.HIKW 1 


004 10»- 




M lh».PKT: : 

.HIKW t. 


00*^40 




.HIKW 1 


O0Vf»»0 




HUM .OWN: : 

.RlKW 4 


00' i r *0 




roOQ: : .Hi KW 4 


00 r . '00 




IOOU. IN: : 

.HIKW 1 


00'. w 




rODQ.OUT: : 

.HIKW 1 


00 *i '04 




hNTRi .RMSON: : 

.HI KB I 


00% '0*. 




FOP.Fl AC: : 

,hu:h l 


oowf. 




OUP.fi A(iS : : 

.BLKW 1 


OOS/10 




CCTIR.. .Bl.W 1 


OOVlO 




CDISK;: .BLKW 1 


00S,'14 




CUOfF :: .BLKW 1 


oovu. 




CTl R.CNTj : 

.HIKW 1 


oos,\:c 




DuRs: .BLKW 


00 c . ,V 4 




QIC):: .BL.KB 1 
,lVt.N 






FRFF- .MFM.ADDR: ; 

.BLKW 1 


t.H •'» *o 




BtTS.PFR.UIO: : 

.01 KW 1 


00', • V 




l i T . COOl : : 

.Bi ku l 


OOS ■' ^4 




SH . COOF : : 


00 r . ' V. 




.HIKW 1 
'.UP; : .Hi kw 1 


OOV .'41- 




Of . RC : : , BL H W 1 


COS ;4.' 




SA.RF.li: : ,Bl KW 1 


00*. .'44 




CMO. (IMF: : 

.BlKw 1 


uos/4*, 




NfXf: .BlKw 1 


0(1'. ?'*.(? 




CRN. 1 OW: ; 

.Bl KW l 


oo , ,; , .o 




CRN.HldM; : 






.HI KW 1 


00'. ' , *4 




CRFDIT.BAi : : 

.HIKW 1 


00'. ■"'*. 




NF ' T .Pi- T .DM : : 

.HI KB 1 


GOS. 1 '-*? 




HOURS j ; ♦UL.KQ 1 



11 Apr t<>84 ll:Sf.:01 
11 Apr 19H4 Ui4«.>i02 



VAX 11 HI iufi 1'. V4.0 * t 7'f 
DISKfU r iF.R?i(POUt'R0]lRQADO.t)Ll|b 



SEU 0l0 f 
Pag* lot. 
(54; 







/ROAN I 
OOS 'i»0 



00 W 4 

COS >-*• 

00 ^ ' '0 
OOS ' Y 

cos .* '4 
00 s .• *t. 

uO«.»000 
00*00/ 
00m KY 
00* »005 
006003 



000 
000 



RO R\ EXERCISER 
PROTECTION TABl f 



MINUTES: : 

.Bl.KH 

.EVEN 
CI K, TICKS: : 

.BL.KU 
CI K. PRESENT: j 

.BLKB 
HOF .Fl.Ali: : 

.BLKB 
S. PATTERN: : 

.BL.KU 
S.DUPPKT: : 

.BL KU 
P.INOI y.i : 

.BL KW 
KORCED. ERROR: : 

.81 KB 

.EVEN 
► ER.lBN: : 

.Bl.KW 
FER.BC: : .BLKU 
INIT.OCCURED: j 

.b>u 

addr.vect.ok: . 

.BYTE 



I 1 Apr 1<>«4 H;Sf»j01 

II Aprl9a4 Ui4b:0«? 



VAX 11 Bliss \f> V4.0 S/V 

DISK $USfc.Rr>: [POWERS l/RQADO. 01 1 ;6 



SLQ 010*. 
Pao« I Of. 
(34 J 



lil.OBL LISOM, MPTHV, LiRPT, l UNIT 

GL 081. LtCLtAN, LtlAblT, LtHARO, l I UV T v P 

GLOBL LJOtSC. I.IDU, L.SAU, I IAUTO, Tl 



100000 
040000 
0/0000 
010000 
004000 
00/000 
00 1000 
000400 
000/00 
000100 
00004() 
0000/0 
000010 
000004 
00000/ 
000001 
001000 
000400 
000/00 
000 100 
000040 



BHl r > 
BU14 

bius 
bi U/ 

BITU 
RH10 
HH04 
BITOH 
B1T0/ 
HIT06 
BITOS 
BIT04 
BIT03 
BI To.' 
BI tot 
BITOO 
BIT'*' 
H IT M « 
B I T "/ - 
HI Uj 

BUS* 



100000 
40000 
i.'OOOO 
10000 
4000 
.'000 
1000 
400 
/OO 
1 00 
4i) 
.'0 
10 
4 

\ 
lili'iO 

400 

.'Ol- 
IO 

40 



\y> 



/RUAMi 


RO-RX fc XtRClSER 


11 Ap 


voi.t> 


PROTECTION 


TABU. 


11 Ap 




000020 


niT4<- 


20 




000010 


BIT3-- 


10 




000004 


BIT2-- 


4 




00000.' 


BIT1-* 


> 
t 




000001 


BIT0-- 


1 




000040 


EF . START-- 


40 




00003 7 


EF". RESTART-- 


37 




000036 


EF .CONTINUE"" 


56 




000055 


Er.NEg-- 


35 




O0CO54 


EF .PWR-- 


34 




000540 


PRI07-- 


MO 




000500 


PRI06-- 


500 




000,240 


PRI05-- 


240 




000?00 


PRI04-- 


200 




000140 


PRI05-- 


140 




000 100 


PRI02-* 


100 




000040 


PRI01-- 


40 




000000 


PRIOO*- 







000004 


EVL»» 


4 




000010 


LOT-- 


10 




000020 


ADR" 


20 




000040 


IDU-* 


40 




000100 


rsR-« 


100 




000200 


UAM» • 


200 




000400 


BOE-- 


400 




001000 


PNT-- 


1000 




OOcOOO 


PRI-- 


2000 




004000 


IXE-- 


4000 




oioooo 


IBE-- 


10000 




020000 


IER-" 


20000 




040000 


LOE-- 


40000 




100000 


HOE - - 


-100000 




000126* 


LibRRTBL-- 


ERRTYP 




022222- 


l.$SU«» 


I $SUl.EN*2 




022176' 


L$HW»- 


LlHWLfcN»2 




000011' 


LIDEPO-" 


LIREV»1 




000136 


HWQ1-- 


P. AAA 




000152' 


HWQ2-- 


P , AAB 




0001b2' 


HUQ5-- 


P.AMC 




000174' 


HWQ4 - - 


P . AAO 




000212' 


HWQ5- - 


P . AAfr 




000262* 


HUQ6A- - 


P . AA» 




0003 54' 


HWQ6B - - 


P . AA(, 




000410' 


HWQ7A-- 


P , AAH 




000460' 


HWQ7B-- 


P.AAI 




0005 30' 


HWQ8-- 


P. Art. J 




000602' 


MUQ9-- 


P . AAK 




000/02' 


HWQ10«« 


P . AAl. 




000 732' 


HWQU-- 


P . AAM 




000 764* 


SUQ1" 


P . A AN 




001006' 


SUQ2-- 


P . AAO 




0010 70 


'.>WQ4» * 


P . AAP 




001112* 


SWU/*- 


P , AAQ 



1984 U : 56; 01 
1964 Ili45s02 



VAX U Hlis-j 16 V4 
DISK *USER2j [POWERS 



5/9 
I/RQAD0.BL1}6 



SEQ 0107 
Page 10/ 
(34) 



) 



ZRQAM1 




RQ/RX EXERCISER 


V01.6 




PROTECTION TABLE 




0011t>4 


5WQ9-- 




001240 


SUQ10-- 




001304 


SWQ11-- 




001536 


SWQ12** 




001434 


SWQ13-- 




001512 


SWQ14-- 




001564 


SUQ15-- 




001634 


SWQ17-" 




001732 


SWQ19-- 




002022 


SWQ20-- 




002120 


SWQ21-- 




002222 


SUQ22-- 




002300 


5WQ23-- 




002372 


SWQ24 - - 




0024 70 


SWQ25-- 




002570 


SWM1-- 




002660 


NULL-- 




002662 


DGM5-- 




002710 


DRM12-- 




002764 


DBM15*« 




003014 


0BM18-- 




003066 


DBM19-- 




003152 


DBM20-- 




003226 


DBM21-- 




003310 


DBM22-- 




003354 


DBM23-- 




003412 


DBM25-- 




003460 


DBM26-- 




003512 


DBM27-- 




003564 


DBM28M- 




003624 


DBM26B- 




003664 


DBr129*- 




003732 


DBM32-- 




004006 


DBM101- 




004034 


Db"M.04- 




004076 


DBhl05> 




004134 


DBM107- 




004172 


DBMlOtt- 




0042b2 


DBM109- 




004 342 


DBM111- 




004442 


DBMU2- 




004544 


DBM120- 




004636 


DBM121- 




004 726 


DU.MSG- 




005446 


DU.RSN- 




0054 74 


MSG.01- 




005526 


MSG.02- 




005562 


MSG.03- 




005614 


RPT1" 




005/00 


RPT2-* 




005/44 


RPT3*- 




006030 


RPT4 — 




0060 74 


RPT5-- 



U-Apr-1984 11:56:01 
ll-Apr-1984 11:45:02 



VAX 11 Bi!«s-16 V4. 0-579 

DISK $USER2 j [ POWERS 1ZRQA00.BLU6 



3EQ 0108 
Page 108 
C34) 



P.AAR 
P.AAS 
P.AAT 

P . AAU 
P.AAV 
P.AAW 
P.AAX 
,AAY 
.AAZ 
.ABA 
.ABB 
.ABC 
P.ABD 
P.ABE 
P.ABF 
P.ABG 
P . ABH 
P.ABI 
P.ABvJ 
P.ABK 
P.ABL 
ABM 
ABN 
ABO 
ABP 
ABQ 
ABR 
P.ABS 
P.AET 
P . ABU 
P.ABV 
P . ABU 
P.ABX 
P . AB v 
P.ABZ 
P.ACA 
P.ACB 
P.ACC 
P. ACQ 
P. ACE 
ACf 
ACG 
ACH 
ACI 
ACJ 
ACV 
ACW 
ACX 
ACy 
AC/ 
ADA 
ADB 



P.AUC 



9 



"RQAM1 


RD/RX EXERCISER 


V01.6 


PROTECTION 


TABLE 




006162' 


RPT6** 




006226* 


RPT7-- 




006244 ' 


RPT8-* 




006272' 


RPT9-- 




006324' 


RPT10-- 




006412' 


RPTU-- 




006460' 


EGS.01-- 




006500' 


EGS.02-- 




006572' 


EGD.10-* 




006632' 


EGO . 1 1 '* 




006656' 


EGO. 12- • 




006704' 


EGD.13-- 




006732' 


EGD>14*« 




006762* 


EGD.15-* 




007000' 


EGO. 16-' 




007030' 


EGD.17-- 




007046' 


EGD.18-* 




007066* 


EG0.19-- 




007126' 


EGD.20-- 




007214* 


EGD.21-- 




00 7326* 


EGD. 22* • 




007366' 


EGO. 23-- 




007430* 


F.GD . 24 • - 




007474' 


EGH.30-* 




007520' 


EBS.01-- 




007562' 


EBD.10-- 




007622* 


E8D.12-- 




007670' 


EBD.13-- 




007722' 


EBD.14-- 




007/62' 


EBD. 18-- 




010016' 


EBD.19-. 




010076' 


EBD.24-- 




010152' 


EH.O-- 




010210' 


EH.1-- 




010246' 


EH.2*-- 




010306* 


Eh. *»- 




010344- 


F.H.4 ■- 




010370' 


EH. 5- • 




010420' 


EH.6- 3 




010450' 


EH.7-* 




010500' 


EH, 8" 




010534' 


EH.9-- 




010564' 


EH. 10-* 




010614' 


EH.12-- 




010650' 


FH.13-* 




010722' 


ERR. 00-- 




011412' 


ERR.COO"- 




01 1446' 


ELG.00-- 




012000* 


H.G.FMI=-« 




012012* 


F.X.SA-- 




012030' 


EX.SC-* 




012060 


EX.SBO'-- 




012064' 


EX,SB»= 



ll-Apr-1984 11:56:01 
ll-Apr-19b4 11:45:02 



VAX- 11 Bliss- 16 V4. 0-579 

DISK *USER2; [POWERS ]ZRQAD0.8L 1*6 



StQ 0109 
Page 109 
(34) 



P. ADO 
P.ADE 
P . AOF 
P.AOG 
P.ADH 
P.ADI 
P.ADJ 
P.ADK 
P.ADL 
P. ADM 
P.ADN 
P. ADO 
P.ADP 
P.ADQ 
P. ADR 
P. ADS 
P.ADT 
P . ADU 
P.ADV 
P.ADW 
P.ADX 
P.ADY 
P. ADZ 
P.AEA 
P.AEB 
P.AEC 
P.AED 

P.AEE 

P.AEF 

P. AEG 

AEH 
AEI 
AEJ 
AEK 
AEL 
AEM 
AEN 
AEO 
AEP 



P.AEQ 



AER 
AES 
AE T 
AEU 
AEV 
AEU 
P . AE X 
P . AE M 
A^N 
AFT 
AM J 
f\h V 
P.AFW 



G9 



ZRQAM1 


RD/RX EXERCISER 


V01, 6 


PROTECTION 


TABLE 




012106' 


EX.CMD»= 




012126' 


F.X.RD-- 




012136' 


EX.WRT** 




012146' 


EX, CMP«- 




012162* 


EX.ONL-- 




012174' 


EX.ACC-* 




012206' 


EX.OP" 




012212* 


EX.BO-- 




012302' 


EX.BB1-- 




012376' 


EX.BBU°» 




012466' 


EX.LBN-- 




012524' 


EX.PBN-- 




12562 ; 


EX.LBR-- 




012630' 


EX.LBW-* 




0126 76' 


EX.RBN-- 




012756' 


EX.CBC-- 




013022' 


EX.CBR-- 




013074' 


EX.CBW-* 




013146' 


EX.BC-- 




013222* 


EX.BD-- 




013300* 


EX.BDR-- 




013370' 


EX.BOU-- 




013460' 


EX.RP-- 




013546' 


EX.WRD«* 




013556* 


EX.TIM-« 




013616' 


XX13-- 




013640' 


XX23-- 




013674' 


XX32-- 




013722* 


XX33-" 




013760' 


XX34»- 




014030' 


CER.01" 




014074* 


CER.02-- 




014150' 


SC.SDI-* 




014174' 


SC.CON-- 




014216' 


SC.DUP*- 




014246' 


SC.ONL ■* 




014270' 


SC.SON-» 




014310' 


5C»UNK-- 




014370' 


SCVOL-- 




014450' 


SC.IOP** 




014522* 


SC.OIS-- 




014614' 


SC.FER-- 




014 702' 


SC.FE2-* 




014772' 


SC.ISH" 




015052* 


SC.IS2-- 




015132' 


SC.DST" 




015206* 


SC.DS2-* 




015260' 


SC.ECC-- 




015342' 


SC.ECD-* 




015374' 


5C.RCT- 




015414' 


SC.RJl. • • 




015470' 


'.C.Vo- 




015544* 


SC.FCT-* 



ll-Apr-1984 11:56:01 
U-Apr-1984 11:45:02 



VAX-U Bliss-16 V4. 0-579 
DISK*USER2j[POWERS3ZRQADO.BL1i6 



SEQ OUO 
Page 110 
(34) 



P.AEX 
P.AFY 
P.AFZ 
P.AGA 
P.AGB 
P.AGC 
P.AGD 
P. AGE 
P.AGF 
P.AGG 
P.AGH 
P.AGI 
P. AG J 
P.AGK 
P.AGL 
P.AGM 
P.AGN 
P. AGO 
P. AGP 
P.AGQ 
P,AGR 
P , AGS 
P.AGT 
P.AGU 
P.AGV 
P.AGW 
P.AGX 
P.AGY 
P.AGZ 
P. AHA 
P.AHB 
P.AHC 
P.AHD 
P.AHE 
P . AhT 
P.AHG 
P . AHH 
P.AHI 
P. AH J 
P . AHK 
P.AHL 
P.AHM 
P.AHN 
P.AHO 
P.AHP 
AHQ 
AHR 
AHS 
AHT 
AHU 
AHV 
AHW 



P.AHX 



H c i 



.'RLW11 


RO'RX LXERCISER 


11 -Apr -1984 11:56:01 


VOL 6 


PROTECTION TABLE 


U-Apr-1984 11:45:02 


015612 


SC.EC1-* 


P.AHY 


01564.? 


SC.EC2** 


P.AHZ 


015672 


SCEC3" 


P.AIA 


015724 


SC.EC4«« 


P.AIB 


01.5/54 


SC.EC5-- 


P.AIC 


016004 


SC.EC6-- 


P.AIO 


016054 


SC.EC7-- 


P.AIE 


016066 


SC.EC8-- 


p.Air- 


016120 


SC.EC9-- 


P.AIG 


016162 


SC.SWP"- 


P.AIH 


016222 


SC.HWP«» 


P. All 


016262 


SC.ODA-- 


P.AIJ 


016512 


SC.ODB" 


P.AIK 


016334 


SC.NXM-- 


P. AIL 


016370 


SC.PAR" 


P. AIM 


016424 


5C.CT0-- 


P.AIN 


0164 76 


SC.SOS«" 


P.AIO 


016554 


SC.EDC-- 


P.AIP 


016614 


SC.IOS-- 


P.AIQ 


016664 


SC.SRT" 


P. AIR 


016/56 


SC.SRI-- 


P.AIS 


017044 


SC.POE-- 


P. AIT 


017100 


SC.RDY-* 


P.AIU 


017162 


5C.CLK-- 


P.AIV 


017210 


SC.RSP-- 


P.AIW 


017256 


SC,SUR«- 


P.AIX 


017306 


SC.PSP'- 


P.AIY 


OP 1064 


CNTR.ERR-- 


P.AI/ 


021604 


RORX.ERR*- 


P.AJX 


021622 


DF.MSG-- 


P.AKK 


021720 


HRD.MSG-* 


P.AKG 


022016 


SFT.M5G-- 


P.AKH 


022116 


HRD.SUB-- 


P.AK1 


022150 


SPACF4-- 


P.AKJ 


022154 


CRLF •■- 


P.AKK 


022160 


DASH" 


P.AKt. 


022166 


ASTERISK'* 


P.AKM 


022176 


DFPTBl --* 


I IHUi.l N»2 


0222dd 


SFPTBL *» 


L$SWLEN*2 



VAX-11 Bliss-16 V4. 0-579 

DISK «USER2:[ POWERS 1ZRQAD0.BLU6 



SEQ Oil 1 
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Psect Nam* 

JC0DF5 
$FFF$ 



PSECT SUMMAR 



Words 


Attributes 








4 709 


RO , ! . 


1 C\ , 


Rfc I , 


CON 


1538 


RW , . 


GBl , 


RFl. , 


CON 



Library Statistics 



V01. b 



HD/«X fcXFRCISER 

PROTECTION TABLt' 



file 
1 S'< *UStR«? : I POWb RS ] ZRQADO . L 16 j 3 



Total 
404 



\ ( ) 



11 -Apr-1984 ll:5b:01 
11 Apr 1964 11:45:02 



Symbols - 

Loaded Percent 



181 



44 



Pages 
Mopped 

?1 



VAX 11 Bliss ■ l'i V4.0 b7 r * 

DISK $U5ER?:[ POWERS WRQA0O,BLli6 

Process J ng 

T Ime 

00:00.1 



bBQ Oil? 
Page 11^ 
C34) 



COMMAND QUALIFIER i 
BLISS-'PDPil i*RQAD0.BLl/LlST^RQAD0.LSl/0BJLCT=/RQAD0,0Bl/S0UhCe-PAGE:b3 



J9 



7RQAN2 



:vi4 

32 I 5 

3218 
321^* 
3220 
3221 
3222 

3224 
3225 
3226 
322 * 
3228 
4-10 
4 VO 
4 .VI 
4 722 
4 723 
4 724 

4 vr> 

4 726 
4 727 
4 728 
4 729 

4 730 
4 731 
4 ,'32 
4 733 
4 734 
735 
7 36 
.'37 
7 36 
7 39 
740 
Ml 

742 

74 3 
744 
745 
4 746 
4 74 7 
4 748 
4 749 
4 750 
4 751 
4 
4 
4 

4 755 
4 756 



75 5 

754 



RD/RX EXERCISER 
PROTECTION TABLE 

module ZRQAM2 ( 

*title 'RD/RX EXERCISER- 

ident - ' V01 .6' , 
addressing. .mode (absolute), 
environment (noeis) 
) * 

beg I n 

*sbttl 'DECLARATIONS' 

library 'ZRQAQ0.L16' ; 

require 'BLSMAC.REQ* ; 

forward routine 



11 -Apr-1984 
ll-Apr-1984 



11:56:01 VAX -11 Bliss 16 V4, 0-579 

1 1 : 45 : 02 DISK SUSER2 : [ POWER? }ZRQADO . BL 1 ; 6 



SEQ 0113 
Pag« 



! RDRX EXERCISER GLOBAL L IBRARi 
! DIAGNOSTIC SUPERVISOR LIBRARY 



MEX TRAP 
EMS_01 j 

EMS_TIM 
EMS DBN 
EMS BLK 
SET_CPAR 
SET .UPAR 



: LSISR novalue, 
novalue , 

novalue. 

NOVALUE, 

NOVALUE, 
: novalue, 
t novalue; 



Mil 
Mil 



external 
CST 

CST.. 

DCT 

DCT 



"CURRENT" 

IELDS). 



CONTROLLER 



TABLE 



"CURRENT" CONTROLLER 



: blockvector [MAX_CTLR, CST^LEN. word! field (CST FIELDS) 

» RUN-TIME CONTROLLER STATUS TABLES 
ADDR j rcf block [CST LEN, word] field (CST .FIELDS) , 

• CONTROLLER STATUS TABLE ADDRESS OF 
J blockvector [MAX_CTLR, DCT_LEN, word] field (OCT F 

• DRIVER CONTROLLER TABLES 
ADDR : ref block [DCT.LEN, word] field (DCT FIELDS), 

! ADDRESS OF "CURRENT" DRIVER CONTROLLER 
RDRX_AODR : ref rdrx field (RC REG), 

! DEVICE ADDRESS OF 
IRDRX..ADDR • ref rdrx field CRC REG), 

• DEVICE ADDRESS OF 
BST : BLOCKVECTOR [MAX UNITS, 2, WORD], 

.♦CONTAINS LBNS (HI 

•I/O TRANSFER FOP EACH UNIT. 
TALLY : vector [MAX. UNITS ♦ TALLYMEN, wordl field (T FIELDS). 

! STATISTICS TABLE'S 
T ADDR • ref block [TALLYJ.EN, word] . leid (T FIELDS), 

! ADDRESS OF STATISTICS TABLE (TALLY) FOR CURRENT UNIT 
DUPPKT : BLOCK [257, WORD] FIELD (DP FIELDS), [BUFFER FOR DUP III 

•INFO FROM RECEIVE AND SEND CMDS III 

TRK.SGN : VECTOR (MAX_UNIT5, BYTE, SIGNED], » CURRENT TRACK DIRECTION III 
RDM_CNT ; WORD, 'NO OF RANDOM NOS WKEEP III 

RANDOM ; VECTOR [RDM LEN, WORD], ! RANDOM NO TABLE //TOGETHER /// 
C ERR TBI. : blockvector [MAX.CTlR, C .ERR LEN, word] field (C ERR FIELDS), 

» STATISTICS TABLE FOR CONTROLLER ERRORS 
MSCP.PKT j blockvector [PKT.CNT. PKT.LEN, word] field (PKT FIELDS), 



INTERRUPTING CONTROLLER 
L.O FIELDS) FOR SEQUENTIAL 



Mil 
Mil 

Mil 



I<9 



V01. 6 



RD/RX EXERCISER 
DECLARATIONS 



11 -Apr -1984 

ll-Apr-1984 



11:56:01 VAX-11 Bliss-16 V4, 0-579 

11:45:02 DISK $ USER2 j [ POWERS ] ZRQADO . BL 1 } 6 
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4 75 7 
4 758 
4 750 
4 760 
4761 
4 7 6«> 
4 765 
7b4 
'o5 
/■(>b 
V-* 
7b8 
7bO 
?0 
71 
72 
73 
774 

'S 



4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
47 



4776 
4777 
4778 
4 7 79 

4780 
4781 
4 782 
4783 
4 784 
4 785 
4 786 
4 787 
4 788 
4 789 
4 790 
4 791 
4 792 
4793 
4 794 
4 795 
4 796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
480 7 
4808 
4809 



1 MSCP PACKET POOL 

[PKT_LEN, word] field (PKT.FIELDS ) , 
i ADDRESS OF AN MSCP PACKET (INTERRUPT PROCESSING) 
PKTJJSE : vector [PKT.CNT, byte, signed], 

• MSCP PACKET POOL ALLOCATION TABLE 
blockvector [RP^CNT, RPJ.EN, word] field (RP FIELDS), 

! RETURN PACKET POOL 
vector [RP..CNT, byte, signed], 

! RETURN PACKET POOL ALLOCATION TABLE 
word, • CURRENT RETURN PACKET INDEX 
ref block [RP^LEN, word] field (RP FIELDS), 
! CURRENT RETURN PACKET ADDRESS 
: blockvector [EP.CNT ♦ 1, EP.LEN, word] Field (EP FIELDS), 
! ERROR-LOG PACKET SAVE AREA 
vector [MAX BUT CNT], 
vector [MAX_BUF_CNT, byte, signed], 
vector riODQ.LEN, byte], 



IPKT^ADDR : ref block 



RETPKT : 

RP_USF : 

RP INDX 
RP_.ADDR 

ELOG PKT 



BUFF ADDR 

BUFF~OWN 

10DQ 

IODQ^IN • word. 

IODQ_OUT : word, 

ENTRY REASON : byte, 

EOP_FLAG : byte, 

DUP_FLAGS : WORD 

CCTLR : word. 

CDISK : word, 

CUOFF : word, 

CTLR_CNT : word, 

DUR : vector f MAX UNITS, 

QIO ; vector [MAX CTl.R, 

FREE_MEM ADDR, 

BYT5 PER QIO : word, 

STRODE : word, 

SB_CODE 1 word, 

STEP j word, 

OF _RC : signed word, 

SA„REG : word. 

CMD^TIME : word, 

NEX : word, 

CRN„LOW : word, 

CRN HIGH : word. 

CREDIT_BAL : word. 

NEXT PKT USE : byte, 

HOURS: bvte. 

MINUTES ': byte, 

CLK. TICKS : word. 

CLK.PRESENT : byte, 

HOE. FLAG t byte, 

FORCED ERROR : byte, 

FER_LBN : word, 

FER.BC : word, 

INIT.OCCURED : byte, 

ADDR. VECT .OK : byte, 

DBM5 , 

P. INDEX ♦ SIGNED WORD, 



byte], 
byte], 



TABLE OF I/O BUFFER DESCRIPTORS 
I/O BUFFER OWNERSHIP (CONTROLLER NUMBER) 
I/O DONE QUEUE - CIRCULAR QUEUE OF RETPKT INDECES 
I/O DONE QUEUE. IN POINTER 
1/0 DONE QUEUE OUT POINTER 
CURRENT OPERATOR COMMAND 
END-OF-PASS FLAG 
DUP FLAGS 111 
NUMBER OF "CURRENT" CONTROLLER 
CURRENT DISK ADDRESS (RD/RX DISK NUMBER) 
CURRENT UNIT CST OFFSET 
TOTAL NUMBER OF CONFIGURED CONTROLLERS 
DROP UNIT REASON 

NUMBER OF OUTSTANDING QIOs PER CONTROLLER 
START OF FREE MEMORY 
SIZE (BYTES) OF AN I/O BUFFER 
CURRENT SVATUS CODE 
CURRENT SUB -CODE 
CURRENT STEP IN HARD INIT 
0FFSE1 (0 OR 2) TO RE'AD IP OR SA 
STORAGE FOR 3A REGISTER READS AND WRITES 
COMMAND TIMEOUT VALUE (IN SECONDS) 
NON -EXISTENT MEMORY TRAP INDICATOR 
COMMAND REF NUMBER OF LAST COMMAND SENT 
COMMAND REF NUMBER (HI ORDER) 
CREDIT BALANCE 

POINTER TO NEXT ENTRY IN PKT USE TABLE 
TIME OF DAY (HOURS) 
TIME OF DAY (MINUTES) 
TIME OF DAY (LINE-CLOCK TICKS) 
FLAG INDICATES IF LINE -CLOCK PRESENT 
FLAG INDICATES IF "HALT ON ERROR" FLAG SET 
"FORCED ERROR" DETECTED IN LAST READ 
LBN OF THE "FORCED ERROR" BLOCK 
BYTE COUNT Qy THE "FORCED ERROR" BLOCK 
EXERCISER INITIALIZATION COMPLETE 
FLAG INDICATES IF ADDRESS/VECTOR TEST PASSED 



i CURRENT 



iSAGE PACKET INDEX 



III 



I 9 



ZRQAM2 


RD/RX EXERCISER 


V01, 6 


DECLARATIONS 


4810 3 


I S PATTERN : WORD, 


i 48U 3 


L f> DUPPKT ; WORD, 


; 4812 J 


L 03M1O7. 


; 4813 3 


L DU..MSG, 


; 4814 3 


L OlLRSN i vector ill], 


; 4815 3 


L RPT1, 


t 4816 3 


L RPT2, 


; 481 ; ] 


L RPT3, 


i 4818 3 


L RPT4, 


I 4819 ] 


L RPT5. 


; 4820 1 


1 RPT6, 


4821 3 


L RPT7. 


l 4822 1 


RPT8, 


i 4823 3 


L RPT9, 


; 4824 3 


L RPT10, 


; 4825 : 


L HPTU, 


; 4826 3 


L MSG.01, 


; 482/ 3 


L EGS.01. 


; 4828 3 


L EBS.01, 


i 4829 1 


L EBD 10, 


; 4830 1 


L EBD..12, 


; 4831 3 


L EBD 13, 


i 4832 3 


L EBD ..14, 


; 4833 3 


L EBD..18, 


; 4834 3 


E6D..19. 


; 4835 1 


L EBD..24, 


4836 : 


L ERR^OO, 


; 4837 1 


L ERR_COD i vector [14] 


; 4838 1 


L ELG.OO. 


4839 3 


L ELG.KMT : vector [5], 


; 4840 3 


L EX_TIM, 


; 4841 3 


L XX13, 


; 4842 3 


L XX23, 


; 484 3 3 


l XX32, 


; 4844 3 


L XX33, 


: 4845 3 


L XX 34, 


; 4846 3 


L EX..SA, 


; 484 7 3 


L EX_SC, 


; 4848 3 


L EX_SBO, 


; 4849 3 


L EX_5B, 


; 4850 3 


L EX..RP, 


; 4851 3 


L EX.WRD. 


i 4852 3 


L EX_.CMD. 


; 4853 ) 


EX..RD. 


i 4854 3 


L F.X_UIR r , 


; 4855 3 


L EX_CMP, 


; 4856 3 


L EX..ONL. 


; 485/ 3 


L EX..ACC. 


; 4858 3 


L EX. OP, 


l 4859 3 


I EX_BB, 


; 4860 3 


L EX_HB1. 


; 4861 3 


EX .BBU, 


; 4862 ] 


L EX. .LBN, 



ll-Apr-1984 
11 -Apr- 1984 



11:56:01 
11:45:02 



•PATTERN LOR DUP WRITES 
,'DBN BYTE COUNTER 



VAX -11 BUss-16 V4. 0-579 
DISK$U5ER2:CP0WERS]ZRQAD0.BL1|6 

l.Zl 
III 
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Mil 
Mil 
Mil 
Ml! 
Mil 



M9 



ZRQAN? 


RO/RX EXERCISER 


V01, 6 


DECLARATIONS 


5 486? 3 


L EX.PBN, 


; 4864 3 


L FX_L.BR, 


i 4865 3 


EX..LBW. 


; 4866 3 


L EX^RBN, 


i 486 7 3 


L EX.CBC. 


i 4868 3 


L EX_CBR, 


i 4869 3 


L EX.CBU, 


4870 3 


L EX_.BC. 


; 4871 3 


L EX_BD, 


; 48 72 3 


L EX._BDR. 


; 487* 3 


L EX.BDW, 


i 48 74 3 


L SC SDI, 


; 4875 .1 


L 5C_C0N. 


i 4876 1 


L SC.DUP, 


i 487 7 : 


L SC„ONL, 


; 4878 3 


L SC SON, 


; 48 79 3 


L SC.UNK, 


; 4880 3 


L SC..VOL, 


; 4881 3 


L SC..IOP, 


; 488c 3 3 


L SC 015, 


; 4885 3 


L SC FER . 


; 4884 3 


L SC..FE2, 


; 4885 3 


L SC.ISH, 


; 4886 3 


L SC.IS?, 


; 488/ 3 


L SC.OST, 


; 4838 3 


L SC_DS2. 


; 4889 3 


L SC_D.CC. 


4890 3 


L SC_tCD. 


; 4891 3 


L 5C.RCT, 


; 489? 1 


L sc .ruL , 


; 4893 3 


L SC„576. 


; 4894 3 


L 5C.FCT, 


; 4895 ] 


L SC SUP, 


; 4896 3 


L SC HUP, 


489/ ] 


L SC_ECl. 


; 4898 3 


L SC..EC?. 


; 4899 3 


SC EC3, 


4900 3 


L SC..EC4, 


; 4901 3 


l SC„EC5, 


; 490? 3 


L SC..EC6. 


; 4903 3 


L SC F.C7, 


; 4904 3 


L SC..EC8. 


; 4905 3 


t 5C„EC9. 


; 4906 3 


L SC.ODA, 


; 490/ 1 


L !iC_GD3. 


t 4908 3 


L SC..NXM. 


; 4909 3 


L 5C_PAH. 


! 4910 * 


SC CTO. 


! 49U 3 


L _C_SD5, 


: 491? 3 


SC IDC, 


491 :< 3 


L SC IDS. 


; 4914 3 


SC SR ! , 


; 4915 3 


L 5C.SR1, 



11 Apr- 1984 
U-Apr-1984 
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N9 



/R0AN2 


RP/RX EXERCISER 




701,6 


DECLARATIONS 




; 4916 3 


5C POE. 




i 4917 3 


1 SC_RDi, 




; 4418 1 


L 5C_CLK, 




; 4919 3 


L SC R5P, 




; 4 9 JO 3 


L SC SUR, 




; 4<>21 3 


L SC_P5P. 




; 4922 3 


L CER 01, 




5 4925 3 


L CF.R *02 , 




; 4 924 3 


CNTR ERR : vector 


[25], 


l 4925 3 


L RDRX ERR : vector 


17), 


; 492b 3 


L 5PACE4 . 




; 49.?.' 3 


L OiU , 




4928 3 


L DASH, 




; 4929 3 


L ASTERISK, 




; 4950 3 


L HWQl, 




; 4951 3 


L HWQ2. 




; 4952 3 


HWQ5, 




; 4955 3 


L HUQ4 , 




; 4954 3 


HUQ5 . 




: 4955 3 


L HWQ6A, 




; 4956 3 


L HUQ6R, 




; 495? 3 


l HWQ7A, 




; 4958 3 


HUQ7B, 




; 4959 3 


L HWQ8 , 




; 4940 3 


HWQ9, 




: 4941 3 


HUQ10. 




; 4942 3 


HWU11, 




; 4945 ] 


L SUQ1. 




; 4944 3 


5WQ2, 




; 4945 3 


L SWQ4 , 




; 4946 3 


L SWQ/, 




; 494/ 3 


L SWQ9, 




; 4948 3 


L SWQ10, 




; 494*1 3 


SUQ11, 




; 4950 3 


L SWQ12, 




; 4951 3 


L SWQ15, 




; 4952 3 


L SWQ 14, 




j 4955 3 


L SWQ15, 




; 4954 3 


swqi;, 




; 4955 3 


L SWQ19, 




; 4956 3 


L SWQ20, 




; 4957 ] 


L SUQP1, 




; 49 l >8 1 


L SWQ22 . 




j 4959 3 


SWQ25 , 




; 4 960 3 


L SWQ24 , 




; 4961 3 


l SWQ25 , 




; 4962 3 


L EH 0, 




; 4965 3 


EH. 1, 




; 4964 3 


L EH. 2. 




; 4965 3 


L EH 5, 




; 4966 3 


L EH 4, 




; 496/ 3 


EH 5, 




! 496« 3 


L EH„6, 





11 Aor 1984 11 :5b: 01 
ll-Apr-l9U4 11{45?02 



VAX IV BUs-s-lf. V4.0 5/9 
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Mil 
Mil 



Mil 
Mil 
Mil 
Mil 
Mil 
Mil 
Mil 







•'RiJAtV 
^ ; , h 



4*6^ 
4^ *1 

V» V 

4 l *M 
4^» "h 
4>» ". 

4^ *ti 
4^ * * 
4 i * *8 

1 '81 

*->8 5 

-»84 

**8 ' 
4^88 
4^H^ 
49^0 
4 , *'*1 

44^V 
44t#i 

4 ( *'*4 

4 *'♦*. 

4996 



NO 


Hx t xmciSfcR 


lit CI AH AT IONS 




EH \ 




in a. 




tH 4, 




fM 10. 




t'H. 1<\ 




tM 15, 




SWH1. 




NU.l, 




SWP * t AiiS : 




I MIMIM, 




L It JN, 




I IV. #4 1 T j 


j 


Ll HRK| 



U Apr l'#B4 Hr r i6:01 
11 Apr 1984 ll!45jO«? 



own 



VAX 11 Bl ;-»s 1'. V4.0 S/9 

D I OK lUSfcRe! ; [ POWERS )/RQAOO .HI 1 j 6 



StU 01 18 

Pnge 118 
C3i) 



W^! di 



TBI SIC j vtctor (i;j Initial (NUL I . SC SDi, SC CON, NUl , SC OUP, NU I , NU i , 

NUL. SC ONI .. NUl, NU.L, NUl. I, NULL, NU I. , Nl.il, NUl. SC SON). 
HJl Of I • vtctor [9] Initial ( SC UNK , SC VOl . SC iOP, NU t , SC OUP . NUl. NUl, 

NOLI , SC.OIS). 
TBI M»F . vtctor [11] Initial ( SC FfcR, NUl, SC ISM. SC OST, sC EC9, SC r .fh t 

SC.FCT. SC.tCC. SC.RCT, SC F UL . SC *C1), 
TBI WPT : vtctor (31 Initial (NUl, SC SWP, SC MWP ) , 
IBl DPI t vtctor H6] initial (SC »'£?. NUL, SC IS* 1 . SC [)S.\ SC IC'* ( NUl , NUl . 

SC ECO. SC.f.Cl. SC EC.', SC tC3, SC IC4, SC ICS, SC K'., SC EC/. X >C EC8). 
TBI MST : vac tor ( r , ) Initial ( NU I . SC ODA, SC OOB , SC MM, SC PAR), 
TKl CNT ; vtctor (4) Initial ( SC CTQ, SC SOS. SC YDQ, SC LPS), 
TUL.ORV : vtctor 19] Initial CNU.L, SC.SRT. SC.S»I. SC.POt* bC.ROt . SCCLK. UC HSP. 

SC.SUR, SC.PSP); 







.wuv 


voi 


,b 




4^/ 1 




4^*8 1 




4 , »'»'» 1 




sooo i 




!hV1 1 




iSCHV 1 



RORX t-\bRCISE.R 

Tin AND Df- SCRIPT TON 

«sbttl * T>Pb AND m-SCRIPTlUN* 

fQUAl.Sj 

Pl-VTiP (^ascI.-'RQDXi or Ru.xSO' ^1 
OtSCRIPT (Kawct^'RD/RX tXtRClSER 1 )| 



U Apr l ( iH4 ll:Sbi01 
11 Apr-19H4 HjOfjiOi? 



VAX 11 Hiisn 1*. V4.0 S/'J 
DISKIUSt.R?ifP0WKR r i]/RQAD0.BLlt6 



SEQ oll'i 

Page 11'.* 
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I TtGT OtSCRtPUUN 



NAMt OP UtVlCl SUPPORTED «f PROGRAM 



1)10 



/RiWV 
VOL 6 



SCO 5 
5004 
5005 

5006 

500 ; 
5ooa 

5010 
5011 
5012 
5013 
5014 
5015 
5016 
5017 
5018 
501^ 
5020 
5021 

502a 

5023 
5024 
5025 
5026 
5027 
5029 
5029 
5030 
5031 
5032 
503? 
5034 
5035 
5036 



RO/RX EXERCISER 

HARDWARE PARAMETER CODING SECTION 

rfsbttl 'HARDWARE PARAMETER CODING SECTION 1 



11 Apr-lS84 
11 Apr-1984 



11:56:01 
11;45:02 



VA. V -11 B 1 !»h 16 V4.0 57') 
DISK $USER2j[ POWERS 1ZRQAD0.BL 



GEO 0120 



1»6 



Poge 120 
(5/) 



THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE- 
INTERPRETED B> THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



YF 



. D 



BGNHRD} 

GPRMA (HWQ1, 0, 0, #©' 160000' , *©' 17777/', YES 

GPRMA (HWQ2. 2. 0, *o'4', *o*774' ( YES, i)j 

GPRMO (HUQ5, 4, 0, *o* 377' , *o'0', #o' 7 

GPRMO (HWQ4. 6. D. *o'17', #dec imal' 0' , 

GPRML CHWQ10. 6, *o '000040', YES, l)j 

XFERF CN00U)i 

GPRML CHWQ11, 6, *o'000l00', YES, l)j 

$L (NOOU)} 

GPRML (HWQ5. 



l)i 



Kdecimol* 15' , YES, l)j 



6. *o' 000200' 
XFERT (T0Q8); 
GPRMO (HWQ6A. 
GPRMO (HW06B, 
GPRMO (HWQ7A, 
GPRMO (HWQ7B. 
$L (T0Q8); 

GPRML CHUQ8, 6, *o' 100000' 
XFERF (HWD0NE); 
GPRML CHWQ9, 6, *o' 100000' 
H. (HWDONE)s 

ENDHRDj 



YES, l)j 



8, 0, rto' 177777' . 
10, 0, *o' 177777' 
12, 0, *o* 177777' 
14. 0, *o' 177777' 



NO, 
NO, 



*dec imal' 0' , 
#dec I ma 1 ' ' , 
GP*AT10 (8). 
*decimai'0' , 



#o' 17/777' , 
*0' 17777/' 
*0* 177/77' 
*©' 177777' 



YES. 
YES. 
YES, 



i)i 
i)i 

i)$ 
1): 



IP ADDRESS 
VECTOR 
BR LEVEL 

RDRX DRIVE NUMBER 
ALSO RUN DO* EXERCISER 

WRITE DIAD AREA 

TEST ENTIRE CUSTOMER AREA? 
BR IF tES 

STARTING LBN 1.0 

STARTING LBN HI 

ENDING LBN LO 

ENDING LBN HI 

ExER ON CUST DATA AREA 

NO DONE 

** WARNING / CONFIRM 



III 
III 
171 
III 
III 
III 
III 
111 
III 
III 
III 



[•'10 



7RQAIV 
V01, 6 



503/ 

503tf 

5059 

5040 
504 1 
504 c? 
504 3 
5044 
5045 
5046 
504 7 
5048 
5049 
5050 
5051 
5052 
505? 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
5065 
5066 
506? 
5068 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
50 76 
50/7 
5078 
5079 
5080 
5081 
508c? 
5083 
5084 
5085 
5086 



' RO/RX EXERCISER 
SOFTWARE PARAMETER CODING SECTION 

Ksbttl 'SOFTWARE PARAMETER CODING SECTION 



11 -Apr-1984 11:56:01 
11 -Apr -1964 ll;45j02 



VAX -11 Bliss 16 V4. 0-579 

DISK KJSER2 j [ POWERS 1ZRQAD0.BL1|6 



SEQ 0121 

Page 121 
C38) 



THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



BGNSFT} 



•GPRML (SWQ16 
GPRMO CSWQ24, 
CSWQ1, 
CSWQ2, 
CSWQ17. 
(SWQ15. 
CSWQ20, 
(SWQ23, 
(SUQ21. 
(SWQ22, 



GPRMO 
GPRMO 
GPRMO 
GPRML 
GPRML 
GPRML 
GPRML 
GPRML 
GPRML 
GPRML 
XFERF 



CSWQ25, 



(SWQ4, 
CSUDi 

XFER (SW2); 

*L (SWl); 

GPRML CSUQ19, 

tl. CSW2); 

GPRML (SWQ7, 

DISPLAY (SWM1 

GPRML CSWQ9. 

XFERF (SW3); 

XFER CSW4); 

*L C3W3)j 

GPRML (SWQ10, 

*L CSW4) } 

GPRML CSWQ11, 

XFERF (SW5); 

XFER (SW6); 

*L CSW5); 

GPRMO CSUQ12, 

XFER (SW7). 

*L CSW6); 

GPRMO CSWQ13, 

GPRMD CSWQ14, 

$L (SW7)( 

ENDSFTi 



, 4, SWF_TRC, YES 
10, D, *o' 177777 

0, D. *o» 177777' , 

2. D. *o' 177777' t 
8, D, *o' 177777' 
4, SWF_CST, YES. 
4, SWF„FER, YES, 
4, SWF_BLK, YES, 
4, 5WF_HRD, >ES, 
4, SWF SFT, 
4, SWF TRY, 

4, SWF RDM, 



YES. 
YES, 



, 1)1 

' t 0, 2359, YES, 1){ 

0, 65535, YES. 1): 

0, 99, YES, 1); 
, 0, 100. YES. 1)» 

1) 

1) 

1) 

1)* 

1)1 

Dl 
1)J 



4, SWF _ SEQ, YES. 1); 

4, SWF.CRC, YES, 1); 

); 

4, SWF_CWC, YES, 1); 



4, SWF_HWC, YES, 1); 
4, SWF_UDP, YES, 1)» 

6, 0, *o'!77777', 0, DP CNT , YES, l)j 



12, D. *o'17777/». 1, MAX UDP CNT, 1ES. l)j 
14, 0, Ho' 177777', 0, *<>' 177777', NO, 12)i 



ENABLE DIAGNOSTIC TRACE 

START TIME 

ERROR LIMIT 

TRANSFER LIMIT 

PERCENT OF RD OPERATIONS 

CLEAR STATISTICAL TABLES ? 

REWRITE BLOCKS WHEN "FORCED ERROR" BIT SET? 

HALT ON BAD-BLOCK TYPE ERRORS WITH 'HOE* FLAG? 

HALT ON HARD ERRORS WITH »HOE' rLAG SET? 

HALT ON SOFT ERRORS WITH 'HOE' FLAG SET? 

COUNT EACH RETRY AS ANOTHER SOFT -ERROR? 

RANDOM SEEK MODE ? 

IF NO, DO NEXT QUESTION 



RANDOM OR SEQUENTIAL SELECTION OF DRIVES 

READ -COMPARES AT CONTROLLER ? 
REMAINING QUESTIONS ONLY APPLY ... 
WRITE -COMPARES AT CONTROLLER ? 
IF NO, DO NEXT QUESTION 



CHECK WRITES AT HOST BY READING > 



USER -DEFINED DATA PATTERN ? 
IF NO, DO NEXT QUESTION 



SELECT PRE-DEFINED DATA PATTERN 
DONE 

NO. OF WORDS IN USER DATA PATTERN 
PATTLRN VALUES 



ZRQAMc? 




V01.6 




5087 


1 


f 5088 


1 


; 5089 


1 


5090 


1 


5 5091 


1 


; 509c! 


1 


: 5093 


1 


t 5094 


1 


j 5095 


1 


I 5096 


1 


; 5097 


1 


; 5098 


2 


; 5099 


c 


J 5100 




; 5101 




; 5102 


2 


; 510? 


2 


; 5104 


2 


j 5105 


2 


5106 


2 


i 5107 


2 


; 5108 




; 5109 


2 


j 5110 


2 


i 5111 


2 


; 5112 




; 5113 


2 


; 5114 


2 


; 5115 


? 


; 5116 


3 


5117 


3 


; 5118 


3 


; 5119 


3 


; 5120 


4 


: 5121 


4 


5122 


4 


: 5123 


4 


; 5124 


4 


; 5125 


4 


: 5126 


4 


: 5127 


5 


{ P 5128 


5 


5129 


5 


; P 5130 


5 


; P 5131 


5 


; 5132 


5 


: P 5133 


5 


; P 5134 


c 


; 5135 


5 


; P 5136 


c 
.J 


; P 513/ 


5 


; 5138 


r 


; 5139 


4 



RD/RX EXERCISER 

SOFTWARE PARAMETEF CODING SECTION 



*sbttl 'REPORT CODING SECTION 1 



1 : 1 

ll-Apr-1984 11:56:01 
ll-Apr-1984 11:45:02 



VAX-U Bliss-16 V4. 0-579 
DISKSUSER2: [ POWERS ]ZRQAD0,BL1;6 



SEQ 0122 
Page 122 
(39) 



.«■ 



THE REPORT CODING SECTION CONTAINS THE 
•PRINTS' 1 CALLS THAT GENERATE STATISTICAL REPORTS. 

BGNRPT; 

local 

CU«_PRI0RITY : word? 

GETPRI (CUR PRIORITY); 
SETPRI (PRI04); 

PRINTS CRPT1); 
PRINTS (RPT2); 
PRINTS CRPT3); 
PRINTS (RPT4)j 
PRINTS CRPT5): 
PRINTS CRPT6){ 

incr CTLR from to MAX„CTLR - 1 do 

begin 

SET..CPAR (.CTLR); 

incr DISK from (0 ♦ OF. UN) to ((UNITS^PER^CNTR - 1) ♦ UNIT..SI/E * OF.. UN) by UNIT_SIZE do 

begin 

SET„UPAR ( .DISK); 

if >CST_ADDR [.DISK . 0F_DATA, D PRES] eql PRESENT 
then 

begi n 

PRINTS (RPT7, 

,U$LUN, .CST„ADOR [.DISK ♦ OF. DATA, 0_DISK_NUM], CST [.CTLR, .DISK ♦ OF NAME 0, D NAME 0)); 
PRINTS (RPT8, 

. T^ADDR [T0T^READS_HI], . T ADOR [TOT READS LO ] , 

,T_ADDR [MTOT_BYT_RED], . T ..ADDR [TOT. BYT RED HI). .T ADDR [TOT ByT RED L0)>; 
PRINTS (RPT8, " " 

.T.ADDR [T0T_WRITES_UI], . T . ADDR [TOT WRITES LO), 

,T_ADDR [MT0T„BYT_WRT], , T .ADDR [TOT BYT WR f HI}. ,T ADDR [TOT B^ T WRT LOP; 
PRINTS (RPT9, . - .. 

.T..AODR [ERR..HRD_SEK), .f^.ADDR [ FRR.HRD.nAT J , .T AODR [ERR HRD DRV). .1 ADDR tfcRR mRD HST], 
♦T„AQDR IERR„SFT^SEK), ,T_ADDR [ ERR.SFT J)AT ] , .T.ADDR [ ERR^SFT^DRVl , > T ADDR C ERR' SfThsT ] ) ; 
end} 



G1.0 



2RQAM2 




V01.6 




{ 5140 


3 


; 5141 


3 


; 5142 


3 


; 514? 


3 


; 5144 


3 


; 5145 


T 


: 5146 


4 


{ 514? 


4 


; 5146 


4 


j 5149 


3 


5150 


3 


; 5151 


3 


; 515? 


3 


; 5153 




; 5154 


? 


j 5155 


2 


; 5156 


2 


; 5157 


1 



RD/RX EXERCISER 
REPORT COOING SECTION 

end; 



ll-Apr-1984 11:56:01 
ll-Apr-1984 11:45:02 



VAX-11 Bliss-16 V4. 0-579 

DISK 5USER2 i [ POWERS URQADO . BL 1 j 6 



SEQ 0123 

Page 123 
(39) 



If ,CST CCTLR, STATE] eql PRESENT 
then 

begin 

PRINTS CRPT10); 

PRINTS (RPT11, .C_ERR_TBL [.CTLR, C.ERR.HRD?, .C.FRR..TBL CCTLR, C ERR SFT])j 
end; 

PRINTS (CRLF); 

end; 
SETPRI ( .CUR_PRIORITY); 
ENDRPT; 



000000 








000000 


122 


121 


104 


000003 


130 


061 


040 


000006 


157 


162 


040 


oooou 


122 


125 


130 


000014 


065 


060 


000 


000017 


000 






000020 


122 


104 


05 7 


000023 


122 


130 


040 


000026 


105 


130 


105 


000031 


122 


103 


111 


000034 


123 


105 


122 


000037 


000 






000040 








000042 


ooooooc 






000044 


000031 






000046 


OOOOOOG 






000050 


160000 






000052 


177777 






000054 


001031 






000056 


OOOOOOG 






000060 


000004 






000062 


000 7/4 






000064 


002032 






000066 


OOOOOOG 






0000 70 


00057 7 







.TITLE 


ZRQAM2 AD/RX EXERCISER 


.IDENT 


/V01. 6/ 


.ENABL 


AMA 


.PSECT 


SCODE*. RO 


LSDVTYP; : 




.ASCII 


/RQD/ 


.ASCII 


/Xl / 


.ASCII 


/or / 


.ASCII 


/RU)./ 


.ASCII 


/50 / <00> 


.ASCII 


<00> 


L5DESC::. ASCII 


/RC</<57> 


.ASCII 


/RX / 


.ASCII 


/EXE/ 


.ASCII 


/RCI/ 


.ASCII 


/SER/ 


.ASCII 


<00> 


.BLKB 


2 


HHRDLN: : 




.WORD 


k<\. $NDHRD -l. $HRDLN>/2> 


GP$1:: .WORD 


:u 


.WORD 


HUQJ 


.WORD 


20000 


.WORD 


1 


GP52;: .WORD 


1031 


.WORD 


HWQ2 


.WORD 


4 


.WORD 


7 74 


GPJ3:: .WORD 


2032 


.WORD 


HWQ3 


.WORD 


377 



1> 



H 1 



ZRQAIV 
V01. 6 

OOOO 7 2 
000074 
000076 

000100 
000102 
000104 
000106 
000110 
000112 
000114 
000116 
000120 
000120 
000124 
000126 
000130 
000132 
000134 
0001.36 
000140 
000142 
000144 
000146 
000150 
000152 
000154 
000156 
000160 
000162 
000164 
000166 
000170 
00017: 
000174 
000176 
000200 
000202 
000204 
000206 
000210 
000212 
000214 
000216 
000220 
000222 
000224 
000226 
0002 50 
000232 

000234 



RO/RX EXERCISER 
REPORT CODING SECTION 



000000 

000007 

003052 

OOCOOOG 

000017 

000000 

000017 

003130 

OOOOOOG 

00CO40 

OOOOOOC 

003130 

OOOOOOG 

000100 

001004 

C03130 

OOOOOOG 

000200 

OOOOOOC 

004032 

OOOOOOG 

177777 

000000 

177777 

005032 

OOOOOOG 

177 777 

000000 

1 '7777 

0064 32 

OOOOOOG 

1 7 7 7 7 7 

000004 

17 7777 

000001 

007032 

OOOOOOG 

177/77 

000000 

1 7 7 7 7 7 

001004 

003120 

OOOOOOG 

100000 

OOOOOOC 

003120 

OOOOOOG 

100000 

001004 



000236 OOOOOOC 







11 -Apr- 1984 11:56:01 V 






ll-Apr-1964 11:45:02 D 




.WORD 







.WORD 


7 


GP«4; : 


.WORD 


3052 




.WORD 


HWQ4 




.WORD 


17 




.WORD 







.WORD 


1/ 


GP$5: : 


.WORD 


3130 




.WORD 


HWQ10 




.WORD 


40 


$NODU: 


.WORD 


<<<<$LN0DU-$NODU>+400>*4>f40> 


GP$6: r 


.WORD 


3130 




.WORD 


HWQ11 




.WORD 


100 


U.NODU; 


.WORD 


1004 


GP*7j: 


.WORD 


3130 




.WORD 


HWQ5 




.WORD 


200 


$T0Q8: 


.WORD 


< < < < $L T0Q8 - $ T0Q8 > +400 > >4 > * 20> 


GP$8; : 


.WORD 


4032 




.WORD 


HWQ6A 




.WORD 


-1 




.WORD 







.WORD 


-1 


GP*9t • 


.WORD 


5032 




.WORD 


HWQ6B 




.WORD 


1 




.WORD 







.WORD 


-1 


GPUO: : 


.WORD 


6432 




.WORD 


HWQ7A 




.WORD 


-1 




.WORD 


4 




.WORD 


- 1 




.WORD 


1 


GPSll:: 


.WORD 


7032 




.WORD 


HWQ7B 




.WORD 


-1 




.WORD 







.WORD 


■1 


ILT0Q8: 


.WORD 


1004 


GP$12:: 


.WORO 


3120 




.WORD 


HWQ8 




.WORD 


100000 


JHWDONEj 


i .WORD 


< < < < U.HWDONE - $HWU0NE>*400> »4> *40^ 


GPS 13: : 


.WORD 


3120 




. WORD 


HWQ^ 




.WORD 


- 100000 


JLHWDONl 








" ! WORD 


1004 


t $NDHRD; 


; ; 






.BLKW 


1 


LJSFTLN: 


; ; 





VAX-11 Bliss-16 V4. 0-579 

DISK $USER2 : [ POWERS URQADO . BL 1 j 6 



5EQ 0124 



Page 124 
(39; 



no 



VOl.t* 



000240 
000242 
000244 
000 ( 74b 
000250 
000252 
000254 
000?. 56 
000260 
000i-:62 
000264 
000266 
000? 70 
0002 V 

0002 74 
0002^6 
000300 
000302 
000304 
000306 
000310 
000312 
000314 
000316 
000320 
000322 
000324 
000326 
000330 
000332 
000334 
000336 
000340 
000342 
000344 
000346 
000350 
000 352 
000354 
000356 
000360 
000362 
000364 
000366 
000370 
000372 
000 3 74 

0003 76 
000400 
000402 
000404 
000406 



RD RX EXERCISER 
REPORT CODING SECTION 



11 -Apr -1984 11:56:01 

11 -Apr-1984 11:45:02 



VAX-ll BUss-16 V4, 0-579 

DISK JUSER2 : C POWERS ] ZRQADO , BL 1 j 6 



SEQ 0125 
Page 125 
C39) 



005052 

OOOOOOG 

lrr.v; 

000000 
0044t>7 
000052 
OOOOOOG 
i 7777** 

oocooo 
i v- 

001052 
OOOOOOG 

000000 

00014 3 

004052 

OOOOOOG 

177777 

000000 

000144 

002130 

OOOOOOG 

000200 

002130 

OOOOOOG 

004000 

002130 

OOOOOOG 

040000 

002130 

OOOOOOG 

010000 

002130 

OOOOOOG 

020000 

002130 

OOOOOOG 

100000 

002130 

OOOOOOG 

000002 

OOOOOOC 

OOOOOOC 

001004 

002130 

OOOOOOG 

001000 

001004 

002130 

OOOOOOG 

000004 

000003 





.WORD 


<<<L$NDSFT-L$SFTLN>/2>-l> 


GPU4: : 


.WORD 


5052 




.WORD 


SWQ24 




.WORD 


1 




.WORD 







.WORD 


'146/ 


GP$15:: 


.WORD 


52 




. WORD 


SWQ1 




. WORD 


1 




.WORD 







.WORD 


■1 


GPS16t : 


.WORD 


1052 




.WORD 


SWQ2 




.WORD 


1 




.WORD 







.WORD 


143 


GP$17: : 


.WORD 


4052 




.WORD 


SWQ17 




.WORD 


-1 




.WORD 







.WORD 


144 


GPIlflM 


.WORD 


2130 




.WORD 


SWQ15 




.WORD 


200 


GP$19:: 


.WORD 


2130 




.WORD 


SWQ20 




.WORD 


4000 


GP$20:: 


.WORD 


2130 




.WORD 


SWQ23 




.WORD 


40000 


GP*21:: 


.WORD 


2130 




.WORD 


SWQ21 




.WORD 


10000 


GP*22: : 


.WORD 


2130 




.WORD 


SWQ22 




.WORD 


20000 


GP$23: : 


.WORD 


2130 




.WORD 


SWQ25 




.WORD 


100000 


GP$24: : 


.WORD 


2130 




.WORD 


SWQ4 




.WORD 


c 


ISWl! 


.WORD 


<«<<HSU1 i^Wl »«400>»4>*4 


*5U2: 


.WORD 


<<< *LSW2-$SW2»*400^»4> 


$l.SWl: 


.WORD 


1004 


GPJ25: : 


.WORD 


2130 




.WORD 


SWQ19 




.WORD 


1000 


$LSU2: 


.WORD 


1004 


UP $26: : 


.WORD 


2130 




.WORD 


5WQ7 




.WORD 


4 


GPiOISP; 


; ; 





J10 






000410 
00041.? 
000414 
000416 
000420 
000422 
0004 24 
C004J6 
0004 30 
000452 
000454 
000456 
000440 
000442 
000444 
000446 
000450 
000452 
000454 
000456 
000460 
000462 
000464 
000466 
0004 70 
0004 72 

0004 74 
0004 76 
000500 
000502 
0001j04 
000506 
000510 
000512 
000514 
000516 
000520 



OOOOOOG 
002 1 50 

OOOOOOG 

000020 

OOOOOOC 

ooooooc 

001004 

002150 

OOOOOOG 

000040 

001004 

002150 

OOOOOOG. 

000100 

OOOOOOC 

OOOOOOC 

001004 

005052 

OOOOOOG 

177777 

000000 

000025 

OOOOOOC 

001004 

006052 

OOOOOOG 

17 7777 

000001 

000020 

00 7222 

OOOOOOG 

177777 

000000 

177777 

000006 

001004 



RO RX EXERCISER 
REPORT CODING SECTION 







11 -Apr -1984 11:56:01 






ll-Apr-1984 11:45:02 




.WORD 


5 




.WORD 


SWM1 


GP$27: : 


.WORD 


2150 




.WORD 


SWQ9 




.WORD 


20 


JSW3; 


.WORD 


<<<<$LSW3- *SW3-**400>»4>*40> 


$SW4: 


.WORD 


<<<il.SW4-$SW4>+400> *4> 


*LSW3: 


.WORD 


1004 


GP$28: : 


.WORD 


2130 




.WORD 


SWQ10 




.WORD 


40 


U.SW4t 


.WORD 


1004 


GP*29: : 


.WORD 


2130 




.WORD 


SWQ11 




.WORD 


100 


*SW5; 


.WORD 


<<<<-$l.SW5-$SW5>*400>*4> f40> 


JSW6* 


.WORD 


<<<ILSW6-$SW6>*400>*4> 


U SW5: 


.WORD 


1004 


GP$30: ; 


.WORD 


3052 




.WORD 


SWQ12 




.WORD 


-1 




.WORD 







.WORD 


25 


*SW7 : 


.WORD 


«.'<<«LSW7-$SW7>+400**4> 


*LSW6; 


.WORD 


1004 


GPJ31:: 


.WORD 


6052 




.WORD 


SWQ13 




.WORD 


-1 




.WORD 


1 




.WORD 


20 


GP*32;: 


.WORD 


7222 




.WORD 


SWQ14 




.WORD 


-1 




.WORD 







.WORD 


-1 




.WORD 


6 


5LSW7- 


.WORD 


1004 


LJNDSFT 


: 





VAX-11 Bliss- 16 V4. 0-579 

DISK JUSER2 : t POWERS 1ZRQAD0 . BL 1 ; 6 



3EQ 0126 
Page 126 
(39) 



BLKW 



oooooo 

000000 
000002 
000004 
000006 
000010 
000012 
000014 
000016 
000020 
000022 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

ooooooc; 

OOOOOOG 



.PSECT 


$OWN$, 


TBL.SUCj.WORD 


NULL. 


.WORD 


sc.sor 


.WORD 


SC.CON 


.WORD 


NUL L 


.WORD 


SC.DUP 


.WORD 


NULL 


.WORD 


NULL 


.WORD 


N2LL 


.WORD 


GCONL 


.WORD 


NULL 







K 1 



/RQAM2 

VOL, 6 

000024 
000026 
000030 
000032 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000052 
000054 
000056 
000060 
000062 
000064 
000066 
000070 
000072 
000074 
000076 
000100 
000102 
000104 
000106 
000110 
000112 
000114 
000116 
000120 
000122 
000124 
000126 
000130 
000132 
000134 
000136 
000140 
000142 
000144 
000146 
000150 
000152 
000154 
000156 
000160 
000162 
000164 
000166 
000170 
0001/2 
000174 



RD/RX EXERCISER 
REPORT CODING SECTION 



ll-Apr-1984 
11 -Apr- 1984 



11:56:01 VAX -11 Bliss-16 V4 , 0-579 
11:45:02 DISK SUSER2: [POWERS 1ZRQAD0.BL1; 6 



SEQ 0127 
Page 12 7 
(39) 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

TBL.OFLt.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

TBL.MFE: .WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

TBL.WPT: .WORD 
.WORD 
.WORD 

TBL. DAT:. WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
, WORD 
.WORD 
.WORC 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
. WORD 
.WORD 
.WORD 
.WORD 



TBL.HST 



TBL.CNT 



NULL 

NULL 

NULL 

NULL 

NULL 

NULL 

SC.SON 

SC . UNK 

SC.VOL 

SC.IOP 

NULL 

SC.UUP 

NULL 

NULL 

NULL 

SC.DIS 

SC.FER 

NULL 

SC.aSH 

SC.DST 

SC.EC9 

SC.576 

sc.Fcr 

SC.ECC 

sc.ncr 

SC.FUL 

SC.EC1 

NULL 

SC.5WP 

SC.HWP 

SC.FE2 

NULL 

SC.IS2 

SC.DS2 

SC.EC9 

NULL 

NULL 

SC.ECD 

sc.fcci 

SC.EC2 
EC 3 

LC4 

LC5 

F.CG 

EC 7 

EC8 

L. 

ODA 

ODB 

NXM 

PAR 

cro 



SC, 
SC. 
SC, 
SC. 
SC. 
SC. 
NUl 
SC. 
SC, 
SC. 
SC. 
SC. 
SC. 



7RQAIV 
VOl. 6 

000176 

000200 

000202 

000204 
000206 
000210 

000212 

000214 

000216 
000220 

000222 



RO/RX EXERCISER 
REPORT CODING SECTION 



OOO0OOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



.WORD SC.EDC 

.WORD SC.IDS 

TBL.DRV: .WORD NULL 

.WORD SC.SRT 

.WORD SC.SRI 

.WORD SC.POE 

,WORO SC.RDY 

.WORD SC.CLK 

.WORD SC.RSP 

.WORD SC.SUR 

.WORD SC.PSP 



L10 



11 -Apr- 1984 
U-Apr-1984 



11:56:01 VAX-11 Bliss-16 V4 . 0-579 
11:45:02 DISKSUSER2: [POWERS'JZRQADO.BLl 5 6 



SEQ 0128 
Page 128 
C39) 



.GLOBL 

.GLOBl 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBl. 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GL08L 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GL061- 

. GLOBL 

. GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 



CST, CST.ADDR, OCT, DCT.ADDR, RDRX.ADDR 
IRDRX.ADDR, BST , TALLY, T . ADDR 
DUPPKT, TRK.SGN, RDM.CNT, RANDOM 
C.ERR.TBL, M5CP.PKT, IPKT.ADDR 
PKT.USE, RETPKT, RP.USE, RP.INDX 
RP.ADDR. ELOG.PKT, BUFF.ADOR, CUFF, OWN 
IODQ, IODQ, IN, IOOQ.OUT, ENTRY . REASON 
EOP.FLAG, DUP. FLAGS, CCTLR, COISK 
CUOFF, CTLR.CNT, DUR, QIO, TREE .MEM. ADDR 
BYTS.PER.QIO, ST. CODE, SB.CCRE 
STEP, OF.RC, SA.REG, CMD. ! .'.ME 
NEX, CRN. LOW, CRN. HIGH, CREDIT. BAL 
NEXT, PKT.USE, HOURS, MINUTES, CLX, TICKS 
CLK. PRESENT, HOE. FLAG. FORCED. ERROR 
FER.LBN. FER.BC. INIT.OCCURED 
ADDR.VECT.OK, DBM5 , P.INOEX, S. PATTERN 
S, DUPPKT, DBM107, DU.MSG, DU.RSN 
RPT1, RPT2, RPT3, RPT4, RPT5, RPT6 
RPT7, RPT8, RPT9, RPT10, RP.ll 
MSG.01, EGS.01, EBS.01, EB0.10 
EBD.12, EBD.13, EBD.14, EBD.18 
EBD.19, EBD.24, ERR. 00, ERR. COD 
EL.G.OO, ELG.FMT. EX. TIM, XX13 
XX23, XX32, XX33, XX34 , EX.SA 
EX.SC, EX.SBO, EX. SB, EX.RP, EX.WRD 
EX.CMD, EX.RD, EX.WRT, EX. CMP 

EX. ACT. EX. OP, EX.BB, EX.BB1 

EX. LBN. EX.PBN. EX.LBR 

EX.RBN, EX.CBC, EX.CBR 

EX.BC, EX.BD, EX.BDR. EX.BDW 



EX . ONL 

EX.BBU, 

fcX.LBW, 

EX.CBW, 

SC.SDI. 

SC.SON, 

SC.DIS, 

SC.IS2, 

SC.ECD, 

SC.»'CT, 

SC.EC2. 

SC.EC6, 

SC.ODA. 

SC.CTU, 



SC.CON. 
SC.UNK, 
SC.FER, 
SC.DST, 
SC.RCT, 
SC.SWP, 
SC.EC3. 
SC.EC?, 
SC . ODB . 
SC.SDS, 



SC.DUP 

SC.VOL, 

SC.FE2, 

SC.DS2, 

SC.FUL, 

SC.HWP, 

SC.EC4, 

SC.EC8, 

SC.NXM, 

SC.EDC, 



SC 
SC 
SC 
SC 
SC 
SC 



ONL 
IOP 
ISH 

ECC 
576 
EC1 



SC.ECS 
5C.EC9 

SC.PAR 
SC.IDS 



ZRQAMJ 
VOL 6 



RD/RX EXERCISER 
REPORT COOING SECTION 



MIO 



11 Apr-1984 11:56:01 
ll-Apr-1984 llt45:02 



VAX -11 Bliss-16 V4.0-579 
DISK$USER2{[P0WERS]ZRQAD0.BL1?6 



SEQ 0129 
Page 129 
(39) 



.GLOPL SC.SRT, SC.SRI, SC.POE, SC.RDY 

.GLOBL SC.CI.K, SC.RSP, SC.SUR, 5C.PSP 

.GLOBL CER.01, CER.02, CNTR.ERR, RORX.ERR 

.GLOBL SPACE4, CRI.F, OASH, ASTERISK, HWQ1 

.GLOBL HWQ2, HWQ3 , HWQ4 , HWQ5, HWQ6A 

.GLOBL HUQ6B, HWQ7A, HWQ7B, HWQ8 , HWQ9 

.GLOBL HWQ10, HWQ11, SWQ1, SWQ2, SWQ4 

.GLOBL SWQ7, SWQ9, SWQ10, SWQ11. SWQ12 

.GLOBL SWQ13. 3WQ14. 5WQ15, SWQ17, SWQ19 

.GLOBL SUQ20, SWQ21, SWQ22, SWQ23, SWQ24 

.GLOBL SWQ25, EH.O. Cri.l, EH. 2, EH. 3 

.GLOBL EH. 4, EH. 5, EH. 6, EH. 7, EH. 8, EH.O 

.GLOBL EH. 10, EH. 12, EH, 13, SWM1, NULL 

.GLOBL SWP. FLAGS. L$HIMEM, L$LUN, L$UNIT 



100000 
040000 
020000 
OlOOOO 
00^000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
0000 10 
000004 
000002 
000001 
000040 
00003/ 
000036 
00003b 
000034 
000 MO 
000300 
000240 
000200 
000140 
000100 



BIT15-* 

BJT14 — 

BIT13-- 

BIT12-- 

BIT11-- 

BIT10-- 

BIT09" 

BIT08*- 

BIT07--- 

BIT06-* 

BIT05-- 

BIT04-** 

BIT03-* 

BIT02-- 

BIT01-- 

BIT0O»» 

BIT9-- 

HIT8" 

BIT7*« 

BIT6*» 

BITS-* 

BH4-" 

B1T3" 

BIT?*- 

B I T I - - 

BTT0-- 

EF. START- ■• 

EF .RESTART^ 

r.r. CONTINUE *« 

EF.NEW-* 
EF.PWR*" 
PRIO/*-- 
PRIOb" 
PR 105 •- 
PR T04-* 
PR.IO'^ = 
PRI02*- 



-100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 



1 

1000 

400 

200 

100 

40 

20 

10 



1 

40 

37 

36 

35 

34 

34 

300 

240 

200 

140 

100 



N10 



7R0AM2 

VOL 6 



000040 
000000 
000004 
00001C 
000020 
000040 
000100 

000200 

000400 

001000 

002000 

004000 

010000 

020000 

040000 

100000 

000044' 

000240' 



RO/RX EXERCISER 
REPORT CODING SECTION 



PRI01-* 

PR 100"" 

L:VL-« 

LOT-- 

ADR«« 

IDU*» 

I5R«- 

UAM" 

BOt>« 

PNI = - 

PRI* = 

IXE-- 

IBE" 

IER-- 

LOE-- 

HOF. - - 

l.$HAHt)«« 
L$S0FT=>» 



11 Apr-1984 11:56:01 
ll'Apr-1904 11:45:02 



SEQ 0130 
VAX 11 Bliss -16 V4.0-579 Page i3o 

DISK$USER2:[POWERS]ZRQADO,BL1;6 (39) 



40 

4 

10 
20 
40 
100 
200 
40C 
1000 
2000 
4000 
10000 
20000 
40000 
-100000 
LSHRDLN+2 
L$SFTL.N*2 



000522 

000000 
000004 
000006 

000010 

000014 

000016 

000022 

000026 

000030 

000032 

000036 

00004, 

00004 • ; 

00004c 

000052 

000056 

000060 

000062 

000066 

000072 

0000/4 

000076 

000102 

000106 

000110 

000112 

000116 

0001, V 

000124 

000126 



00413 7 
104440 
010004 
012 700 
10444 1 
012/46 
012746 
010600 
1.04416 
012716 
012746 
010600 
104416 
012716 
012746 
010600 
104416 
012716 
012746 
010600 
104416 
012716 
012746 
010600 
104416 
012 716 
012 746 
010600 
104416 
005003 



OOOOOOG 



000200 

OOOOOOG 

000001 



OOOOOOG 
000001 



OOOOOOG 
000001 



OOOOOOG 
000001 



OOOOOOG 
000001 



OOOOOOG 
000001 



. SBTTl. LRPT REPORT CODING SECTION 

•PSECT JCODE*. RO 

LRPT • JSR R1.$5AVE4 

TRAP 40 

MOV R0.R4 

MOV 3200.R0 

TRAP 41 

MOV rtRPTi, (SP) 

MOV 01, CSP) 

MOV SP.RO 

TRAP 16 

MOV #RPT2,CSP) 

MOV #1, -CSP) 

MOV SP.RO 

TRAP 16 

MOV ARPT3.1SP) 

MOV til. CSP) 

MOV SP.RO 

TRAP 16 

MOV #RPT4,(SP) 

MOV 41, (SP) 

MOV SP.RO 

TRAP 16 

MOV OHPTS.tSP) 

MOV HI, (SP) 

MOV SP.RO 

FRAP 16 

MOV GRPTfc.lSP) 

MOV #1, CSP) 

MOV SP.RO 

TRAP 16 

CLR R3 



; *,CUR. PRIORITY 

J SP.* 

SP,* 

: SP,* 

SP,* 

SP.* 

SP. > 
j CTt.R 



S046 
M03 

M04 

MOO 

5107 
MOB 
M09 
M10 
Mil 
5113 



/RQAM/ 
V01 .6 

OOO 1 30 
000 1 5. ' 
00013*. 
000 1 4 v 1 
000144 
O001S0 
000 IV 
000 1 S4 
0001 to 
000164 
000166 

oooi :o 

000 1 "4 

000/00 
000/0/ 
000^04 
000/10 
000/1/ 
000/16 

ooo/zo 

000/24 
000/30 

000/34 
000/4 
000/4/ 
000/44 

ooo/so 

000/M 
000/60 
000/64 
000/ 70 
000/ ,*4 
000300 
000 504 
000306 
000 3 1 
"00 314 
0003/0 
000 3/4 
000 3 50 
000 3 54 
000 340 
000 344 
000350 
000 5 V 
000 3 %4 
000 560 
000 36/ 
000 366 
000 3/0 
000 5/4 
O00 5 V 
00040 j 



010316 
004'3 7 
01/70/ 
010/16 
004 7 3 7 
010/01 
006 301 
063 701 
05/711 
001V5S 
010316 
01/. '46 
004 73 7 
060/00 
QOt> 500 
06/ '00 
010016 
06/716 
111146 
04/716 
013746 
01/746 
01/746 
010600 
104416 
013 7 00 
016016 
016046 
016046 
016046 
016046 
01/746 
01/746 
010600 
1044 16 
013700 
016016 
016046 
016046 
016046 
01604b 
01/746 
01/746 
010600 
104416 
01 5700 
00S016 
1160 16 
00*. 04*. 
IU-016 
OOV'46 
116016 
O0UO46 



RO Rx EXERCISER 
REPORT CODING SECTION 



000000 V 
000003 



oooooov 



ooooooo 

040000 



OOOO^ 5 
0000000 



0000000 

00001/ 

1 7 ? 760 
OOOOOOO 
OOOOOOG 
000004 



ooooooc, 

0000 5/ 

0000 34 

000056 

000016 

0000/0 

OOOOOOG 

000006 



OOOOOOO 

00004 

00004/ 

000044 

0000/4 

0000/6 

OOOOOOG 

000006 



OOOOOOG 
OOOO*, 1 . 

000. ;S4 

OOOOSi 







11 A 






11 A 


It: 


MOV 


R ^, ( SP 1 




JSR 


PC.'.f T .CPAR 




MOV 


05, R/ 


/i: 


MOV 


R/,(SP) 




JSR 


PC.SF T.UPAR 




MOV 


R/.Nt 




ASl 


Rl 




AOU 


CST . A00R.R1 




HIT 


040000 ,iHH 




OKQ 


51 




M')v 


R3,( SP) 




MOV 


OS 5, ( SP 1 




JSR 


PC.Bl IMUt 




AOO 


R/.RO 




AM 


RO 




AOO 


•CST ,R0 




MOV 


RO , ( SP ) 




ADD 


01/, (SP > 




IKJVB 


( R 1 ) , ( SP ) 




HIC 


01 7/760,1 SP ) 




MOV 


EH. UN, (SP) 




MOV 


^9U , (SP) 




MOV 


04 , ( SP ) 




MOV 


SP.RO 




TRAP 


16 




MOV 


T.AODR,RO 




MUV 


3/(R0),CSP ) 




MOV 


54(RO), i SP ) 




MOV 


56(RO), (SP) 




MCV 


16(R0). 1 SP ) 




MOV 


/0(RO)» (SP) 




MOV 


ORPTfl, l SP ) 




MOV 


06, (SP) 




MOV 


SP.RO 




TRAP 


16 




MOV 


T .ADOR.RO 




MOV 


40( RO ),( SP ' 




MOV 


4/( '-iO ). ( SP ) 




MOV 


441 RO), ISP) 




MOV 


/4iR0), ( sp ) 




MOV 


/6(R0). i-.P) 




MOV 


ORPTfl , iSP) 




MOV 


Of., 1 *,P ) 




MUV 


SP.RO 




TRAP 


\t 




MUV 


f .AOOR.RO 




Ct R 


^ SP > 




MOVH 


v.(Ro ) t r sp ) 




a r 


(SP j 




MOVH 


•»4l RO i,( SP *■ 




Ci R 


(,P ) 




MUVU 


snwo j.vspi 




CLH 


(SP) 



1«*H4 H:S6i01 
1^84 Ili45j0i? 



'itG 0131 
VAX 11 flli»»i 16 V4.0 S/'i Pao* 151 

r>ISK|iJSER/:tPOWERS]/RQADO.Bl 1|6 M»* > 



I CTI R,# 

j ♦.DISK 

I DISK,* 

j DISK,* 



» cn r, ♦ 



j DISK,* 



SI 16 

Si 1M 
M.'l 

''■1/4 



i >P.» 



; »P.* 



• . ■ **» 



i ,P»* 



s;<s 



1 i 



/RiJAM/ 
voi ,t» 

000404 
0004 10 
0004 1/ 
00041b 
0004^0 
0004 J 4 
0004 /6 
0004 5^ 
0004 54 
000440 
000444 
0004 SO 
00045/ 
0004 r >4 
•)004t»0 
000464 
0004 70 
0004 7/ 

0004 *4 
000500 
000504 

000 5 Of 

00051/ 

000514 
0005/0 
000524 
0005/6 

000530 
00053/ 
000554 
000536 
00054/ 
000544 
000550 
000554 
000560 
00056c 1 
000564 

0005 70 
0005 74 
000600 
00060/ 
O00604 
000606 

uoofio 

000614? 
000614 
O00*>/0 
0006// 
0006/4 
000630 



116016 
005046 
116016 
005046 
116016 
005046 
116016 
00504 6 
116016 
01/746 
01cV4t) 
010600 
104416 
Of/ 706 

06/ ;o/ 
o/o// * 

0036/4 

010316 
01/746 
004/5/ 

005 7/6 
005/60 
1000/6 
01/ 716 
01/ .'46 
010600 
104416 
010300 

006 300 
005016 
116016 
005046 
116016 
01/746 
01/746 
010600 
104416 
06/ 706 
01/ fib 
01/ 746 
010600 
104416 
005 7/6 
005/03 
000/4 3 

00 300/ 
00013 7 
010400 
10^44 1 
06/ /Oft 
000/0/ 



MO R\ rM HC1M.H 

Rt POUT CODlNLi 5* L'UUN 

00005/ 

000051 

000050 

00004 ; 

000046 

oooooix; 
oooou 



0000t»4 

00001/ 
000041 



11 Apr 1**84 llj5f,;01 
11 Apr 1<>H4 11 {45jO/ 



VAX 11 Hlin-t 16 V4.0 5/'* ^"Vagi'l V 

Dl5KiU5tR/j( POWERS 1/PUAOO. HI. i;6 ( '/>) 



0001/6 

0000001 » 

ooooo/c. 

OOOOOOLi 
000001 



00000 1G 

OOOOOOG 
OOOOOOG 
000003 



000010 

OOOOOOG 

000001 



00065/' 
000016 



3? 



4*{ 



5*{ 



HOVfl 


vcro.csp) 




Cl.R 


(SP) 




MOVH 


51(R0),(SP) 




CI R 


( sp ) 




MOVH 


50(R0),(5P) 




CI R 


(SP) 




MOVO 


4 7(RO),(5P) 




Ct R 


(SP) 




MOVH 


461 RO MSP) 




MOV 


0RPT9, (SP) 




MOV 


#11, (SP) 




MUV 


SP.RO 




TRAP 


16 




AOD 


OM , 5P 




ADD 


01/, R/ 




CMP 


R/,041 




HI £ 


/> 




MOV 


R3,(5P) 




MOV 


#1/6. (SP) 




JSR 


PC.BLtMUL. 




rsr 


( SP ) • 




1ST 


CST /(RO) 




UPl 


4$ 




MOV 


ORPTIO.(SP) 




MOV 


#1, (SP) 




MOV 


SP,RO 




TRAP 


16 




MOV 


R5.R0 




ASl 


RO 




CLR 


(SP) 




MOVH 


C.fcRR.TRL .»URO) ( D',P 


) 


CL R 


(SP) 




MOVB 


C.ERR. TBI (RO).(SP) 




MOV 


0RP111, (SP) 




MOV 


03, (SP) 




MOV 


SP,RO 




TRAP 


16 




ADD 


010, SP 




MOV 


OCRl i ,(sP) 




MOV 


01, (SP) 




MOV 


SP , RO 




TRAP 


16 




TV 


I SP > . 




INC 


R< 




.UURO 


Cl \ !Cl C 




DM 


J 




IMP 


li 




MOV 


R4 ,R0 




TRAP 


41 




ADD 


"U.SP 




WIS 


PC 





I ''P.* 



i ♦,DIM' 
i DISK,* 

j CTl.R,* 



51.-.' 
51 18 



5145 



, SP,* 
; CUR,* 






M48 



5 SP.* 
> 

J SP f * 

• CTl.R 

; CUR,Pi.r».rtlTl ,* 

1 



1 '14» 



S^v 



VOl.b 



RO/RX HXfcRClSfcR 
REPORT CODING SFCTION 



000000 
000004 
000006 



004 : ^ : 

1044^5 

ooc^o : 



000 V?' 



.SBTTL. 
L*RPT:j JSR 

TRAP 
RTS 



OIL 



11 Apr I9fl4 11 : r>e>:01 
11 Apr-19»4 Uj45s02 



VAX 11 BUss if, V4.0 bf'i 
DISK5U5fR2j[POWKRSl/RQA00.BLlj6 



SfeQ 01', 
Page 



tvn 



Routine Si_*e: ^05 words, Routine Baie: ICODK* » 05c?2 
MA\!mum stack depth per invocation; 40 words 



l.iRPT REPORT CODING SECTION 

PL'.LRPT 

,:5 

PC 



515! 



; Routine si*e: 4 word-i, Routine Base: iCODfc* • 1554 
; Maximum stack depth per invocation; d words 



51!>tf 1 



[.:' 1 1 



/ROAM. 1 




VOl. 6 




; 5159 


1 


; 5160 


1 


; MM 




; 5162 




51t>3 




; MM 


'I 


; 5165 


J 


; 51bb 




; 51*7 


C 


; 51W 


■^ 


; 5169 




: 5170 




; Sl'i 


i. 


; 5172 


t- 


; 517? 


2 


; 5174 


2 


5175 


2 


; 5176 


3 


; 517- 


3 


: 5178 


3 


; 51^9 


4 


; 5180 


3 


; 5181 


3 


; 5182 


3 


; 5183 


? 


; 5184 


3 


; 3185 




; 5186 


2 


; 518? 




; 5188 


2 


; 5189 


3 


j 5190 


3 


; 5191 


3 


519c? 


3 


; 519? 


3 


; 5194 


3 


; 5195 


2 


; 5196 


2 


; 5197 


2 


j 5198 


2 


i 5199 


3 


j 5500 


3 


; 5201 


3 


; 520? 


2 


; 5203 


2 


; 5204 


2 


; 5205 


2 


i 5206 


3 


; 520 7 


3 


; 5208 


7 
-1 


5209 


4 


; 5210 


T 


j 5211 


3 



11 Apr-1984 11:56:01 
ll-Apr-1984 11:45:02 



RIVRX EXERCISER 
INITIALISE SECTION 

*sbttl 'INITIALIZE SECTION' 

BGNINITi 

local 

DELAt.MULT j word. 

FLAG t byte, 

TEMP : word. 

HWPT_REF : ref block IHWPT.LEN, word) field ( HWP FIE1DS), 

CLEAR TABLES : byte, 

SMALLEST ORIVE : byte. 

HUP r. ADDRESS : vector [MAX..UN1TS. word]; 

SETPRI CPRI07). 

If READEF CEF^NEW) 
then 

begin 

ENTRY, REASON - NEU.PASSf 

if not BIT_TST CSWP. FLAGS, SWF CST) 
then 

CLEAR .TABLES • FALSE 
else 

CLEAR^TMBLES - TRUE; 

en<j; 

if READEF (EF. START) 
then 

begin 

BRESETj 

ENTRY^REASON - START; 
CLEAR TABLES - TRUE; 
ADDR VECT OK - FALSE; 
INIT_OCCURED - FALSE; 
end; 

if READEF (EF_RESTART) 
then 

beg i n 

ENTRY_REAS0N - RESTART; 

CLEAR_TABLES - TRUE; 

end; 

if READEF (tr .CONTINUE) 
then 

begin 

ENTRY..REASQN - CONT; 

If not BIT. 1ST (SWP FlACS, SWF CST) 
then 

CLEAR^TABLES - FALSE 



VAX-ll Bliss-16 V4.0 5/9 

DISK 5USER2 : [ POWERS 1ZRQAD0 . BL 1 j 6 



SEQ 0134 
Page 134 
C40) 



! NO INTERRUPTS ALLOWED DURING INIT 
! IS THIS A NEW PASS? 



» IS THIS A START? 



! IS THIS A RESTART? 



! IS THIS A CONTINUE? 



r 1 1 



7RQAM2 
VOL 6 



5212 
5213 

5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5225 
5224 
5225 
5226 
5227 
5228 
5229 
5230 
5231 
5232 
5233 
5234 
5235 
5236 
5237 
5238 
5239 
5240 
5241 
5242 
5243 
5244 
5245 
5246 
524 7 
5243 
5249 
5250 
5251 
5252 
5253 
5254 
5255 
5256 
525/ 
5258 
5259 
5260 
5261 
5262 
526 5 
5264 



RD/RX EXERCISER 
INITIALIZE SFXTION 



ll-Apr-1984 11:56:01 
ll-Apr-1984 11:45:02 



SEQ 0135 
VAX-11 Bliss-16 V4. 0-579 Pege 135 

DISK $U5ER2 • f POWERS ]ZRQADO . BL 1 ; 6 ( 40 ) 



else 



CLEAFLTABLES " TRUE; 

end; 

if READEF (EF* PWR ) 
then 

begin 

ENTRY_REASON ■ PUR FAIL; 

AODR_VECT OK - FALSE; 

INIT.OCCURED « FALSE; 

CLEAR^TABLES - TRUE; 

PRINTF CMSG.01); 

incr COUNT from to 60 do 
begin 

DELAY .MULT - 333; 
DELAY (,DELAY_MULT); 
BREAK; 
end; 

end; 

•SETVEC (O.TVEC, 0_BRK, PRI07); 



! ARE WE HERE BECAUSE OF POWER FAIL 



! "POWER DELAr - WAITING" 
J WAIT APPROX. 60 SECONDS 

• BREAK FOR ACT 

! SET UOT TRAP VECTOR 



MAKE SURE THAT NOT MORE THAN MAX UNITS HAVE BEEN SPECIFIED. 
IF THERE ARE TOO MANY, NOTIFY USER AND RETURN TO SUPERVISOR 
(DIAGNOSTIC IS ABORTED), 



If .LiUNIT gtru MAX UNITS 
then 

begin 

ERRSF (1, EGS.Ol, EMS_Ol); 

DOCLN; 

end; 

THE FOLLOWING CODE IS EXECUTED FOR ALL ENTRY REASONS EXCEPT NEW PASS 
ALL RUN- TIME CONTROLLER STATUS TABLES CCSTs) ARE CLEARED TO 0. THEN 
LOADED WITH CONFIGURATION DATA FROM THE HARDWARE P -TABLES, 



If .ENTRY.REASON neq NEW^PASS 
then 

begin 

SMALLEST _DRIVE « 255; 

incr COUNT from to ((MAX CTI.R * CST LEN + 2) 
(CST * .COUNT) - 0; 

incr UNIT from to C.LSUNXT - 1) do 



2) by 2 do 



! LARGEST DISK NO, ALLOWED B> MSCP 



J LOOP THROUGH ALL UNITS 



G'l 1 



ZRQAM<? 




VOL 6 




i 5*365 


3 


; 5c?to6 


3 


; 526 7 


3 


5.568 


3 


; 5^69 


3 


; 5^70 


3 


; 5271 


3 


: 52 ?2 


3 


; 5273 


3 


; 5274 


3 


; 5275 


3 


; 52 76 


3 


j 527 7 


4 


; 5278 


4 


; 5279 


4 


I 5280 


4 


; 5281 


4 


; 5232 


4 


; 5283 


4 


; 5284 


4 


; 5285 


4 


; 5286 


4 


; 5287 


4 


i 5288 


4 


; 5289 


5 


j 5290 


5 


5291 


5 


; 5292 


5 


; 5293 


5 


5294 


5 


: 5295 


5 


; 5296 


5 


; 529 7 


5 


S298 


5 


; 5299 


5 


j 5300 


5 


; 5301 


5 


j 5302 


5 


; 5303 


5 


; 5304 


5 


; 5305 


5 


; 5306 


5 


; 5307 


5 


; 5308 


5 


; 5309 


5 


; 5310 


5 


; 5311 


5 


; 531? 


5 


; 5313 


5 


; 5314 


c 


{ 5315 


J 


; 5316 


4 


j 5317 


5 



RD/RX EXERCISER 
INITIALIZE SECTION 



11 -Apr -1984 11:56:01 
11 -Apr -1964 11:45:02 



VAX-11 Bliss-16 V4. 0-579 

DISK 5USER2 : [ POWERS 1ZRQAD0 , BL 1 j 6 



SEQ 0136 
Page 136 
C40) 



If (HWPT.ADDRESS [.UNIT] - GPHARD C.UNIT, HWPT REF)) neqa 
then 

IF .HWPT.REF [HWP..DISK NUM] Issu .SMALLEST DRIVE 
then 

SMALIEST„DRIVE - ,HWPT_REF I HWP.DISK _NUM] j 

incr UNIT from to C.L$UNIT - 1) do 

If .HWPT .ADDRESS [.UNIT] neqa 
then 

begin 

FLAG = NOT FOUND; 

HWPT_REF » .HWPT^ADDRESS [.UNITli 

incr CTLR from to (MAX.CTLR - 1 ) do 

IF .CST [.CTLR, IP_ADDR] eqla .HWPT REF [HWP IP AUDR] 
then 



! IF KWP TABLE FOUND 

! FIND OUT THE SMALLEST DISK NUMBER 

! LOOP THROUGH ALL UNITS 

! IF HWP TABLE FOUND 



J LOOP THROUGH ALL CSTs 



If .CST [.CTLR, C. HWPT. REF ( HWP. .DISK _NUM] - .SMALLEST DRIVE) * UNIT SIZE 

♦ OF_UN f OF_DATA, D„PRES] eql NOT PRESENT 
then 

begin j if EMPTY SLOT FOUrJD 

TEMP > C.HWPT..REF [HWP.OISK _NUM] - .SMALLEST DRIVE) * UNIT SIZE * OF UN; 
CST [.CTLR, .TEMP ♦ OF_DATA, D ALL] - .HWPT REF [HWP DISK]; 



else 



CST f.CTLR, .TEMP 
CST [.CTLR, .TEMP 
CST [.CTLR, .TEMP 

CST ( .CTLR, .TEMP 

.HWPT REF 
CS1 [.CTLR, .TEMP 

.HWPT REF 
CST [ .CTLR, .TEMP 

.f-'WPT REF 
CST [ .CTLR, .TEMP 

.HWPT. .REF 

CST f.CTLR, .TEMP 
CST [.CTLR, .TEMP 
NOT ( .HWPT 

CST [ .CTL.R. .TEMP 
( .HWPT Rt-I- 
CST [ .CTLR, .TEMP 
FLAG - FOUND: 
e*. I tloopi 
end 

begin 



OF^DATA, D UNIT ] « .UNIT; 
OF_DATA, D FATAL] > FALSE: 
OF ..DATA, D PRES] - PRESENT; 

OF ..BEG, D BEGO) ■- 

[HWP BEG TRK]; Mil 

0F_BEG1, D .BEG1 ] - Mil 

[HWP_BEG TRK1]; Ml I 

OFFEND, D ENDO] • Mil 

[HWP END TRK] j Mil 

OF END1, D END1] = Mil 

[HWP..F.ND..TRK11: Ml? 

OF„DUPFi.AGS, D DBN] - 0: Mil 

OF.DUPFLAGS, NODUPMFDIA) - Mil 

REF [HWP.DISK.DUPEX]); MIT 

OF.DUPFLAUS, DUPWRITE] = Mil 

[HWP DISK DUPWT1 ); Mil 

OF COUNT, D. COUNT] « 0; Mil 



COP' DISK ADDR AND PROT BIT 



! DUPL ICATE UN L T 



H 1 1 



,TRQAN2 




V01, 6 




; 5318 


5 


; 5319 


5 


; 5320 


5 


: 5321 


s 


; 5322 


5 


; 5323 


5 


: 5324 


4 


; 5325 


4 


5326 


4 


; 5327 


4 


; 5328 


5 


; 532^ 


5 


; 5330 


5 


t 5331 


s 


j 5332 


5 


5333 


5 


; 5334 


6 


; 5335 


6 


; 5336 


6 


5337 


b 


j 5338 


6 


; 5339 


6 


; 5340 


6 


; 5341 


6 


: 5342 


6 


: 5343 


6 


; 5344 


6 


: 5345 


6 


; 5346 


6 


; 5347 


6 


: 5340 


6 


; 5349 


6 


; 5350 


6 


; 5351 


6 


; 5352 


6 


; 5353 


6 


; 5354 


6 


i 5355 


6 


J 5356 


6 


5357 


6 


; 5358 


6 


; 5359 


6 


; 5360 


6 


; 5361 


6 


; 5 362 


6 


; 5363 


6 


i 5364 


6 


; 5365 


6 


; 5366 


5 


; 536/ 


.j 


; 5 568 


5 


; 5369 


.) 


; 5570 


6 



RD/RX EXERCISER 
INITIALIZE SECTION 



11 -Apr-1984 11:56:01 
U-Apr-19B4 11:45:02 



SEQ 013/ 
VAX-U BlIss-16 V4. 0-579 P Qg * 15/ 

D ISK SUSER2 j [ POWERS ] ZRQADO . BL 1 ; 6 ( 40 ) 



PRINTF (CER.Ol, .HWPT_REF [HWP..DISK>IUM] . .HWPT REF [HWP IP ADDR}); 

DUR f.UNITl ■ DU CONF; ' " RUPl ICflTE ^ ' * AT "»« «XXXX- 

DODU ( .UNIT)} 
FLAG - FOUND: 
ex it loop} 
end: 



! CONFIGURATION ERROR 
! DROP UNIT 



if .FLAG eql NOT_FOUND 
then 

begin 

incr CTLR from to (MAX.CTLR 1 ) do 



! IF NO IP MATCH TO EXISTING CST 

! LOOP THROUGH EACH CST 
! IF EMPTY CST FOUND 



if ,CST [.CTLR, IP.ADDR) eqLo 
then 

begin 

CST [.CTLR, IP..ADDR) - .HUPT REF [HWP IP ADDR ] 

CST [.CTLR, VEC_ADDR] - .HWPT_REF (HWP VECTOR] 

CST [.CTLR, BR_LEV) - .HWPT REF [HWP BR LEVEL) 

TEMP - (.H'!PT„REF [HWP ..DISK NUM] - .SMALLEST DRIVE) ♦ UNIT SI/F * OF UN; 

CST r.CTLI. .TEMP > OF_OATA, D..ALL) - .HWPT_REF [HUP .DISK ]• 

. r ! COPr DISK ADDR AND PROT BIT 

CST [.CTLR, .TEMP > OF DATA. D_UNIT] * .UNIT; 

CST [.CTLR, .TEMP ♦ OF DATA, D FATAL) * FALSE; 

CST [.CTLR. .TEMP ♦ OF~DATA, D*>RES) - PRESENT; 



IF .HWPT_REF (HWP ENTIRE) EQL TRUF 
THEN HWPT.REF [HWP_END„TRK ) » ALL_0NES| 



CST [ .CT^R, .TEMP 

,HWPT_REF 
CST [ .CTLR, .TEMP 

.HWPT REF 
CST [ .CTLR, .TEMP 

.HWPT REF 
CST [ .CTLR. .TEMP 

.HWPT..RFF 

CST [ .CTLR, .TEMP 
CST [.CTLR. .TEMP 

NOT ( .HWPT 
CST [ .CTLR, . TEMP 

C .HWPT Rt-K 
CST [ .CTLR, .TEMP 
H.AG - FOUND; 
e\ i t loop; 
end: 

if .H AG eql NOT FOUND 
then 

begin 



- OF, BEG. D_8EG0) - 

[HWP BEG TRK]j 
» OF BEG1, D BEG1) = 

[HWP BEG TRKlli 
«■ OF END, D ENDO) * 

[HWP END TRK]j 

♦ OF .END 1, D END1 ] = 
[HWP. END .TRKlli 

♦ OF_DUPFLAGS, OBN| - 0; 

* OF_DUPFLAGS, NODUPMEDIA] 
.REF [HWP DISK DUPfcX) ); 

* OF DUPFl.AGS, OUPWRITE) * 
(HWP DISK DUPWT ) ) ; 

> OF COUNT, D„C0UN1 ) * 0; 



Mil IF DEFAULT TEST RANGF , 
Mil MAKE HI ADDR ALL ONES 



III 
27.2 
221 
III 

212 
222 
122 
222 

212 

222 

222 
222 
222 



1 7 ? ? 



\2 



! 1 1 f.mpt* c-y *■ ouno 

! U NO EHPTi CST f AND 



ZRQAN2 
VOL 6 



53 71 
53 ,V 
5573 
53 74 
5375 
5376 

53 7" 
53 '3 
53^9 

5380 
5381 
5382 
538? 
5384 
5385 
538b 
5387 
5388 
5389 
5390 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5401 
5402 
5403 
5404 
5405 
5406 
540 7 
5408 
5409 
5410 
5411 

54 1 L ? 
541? 
5414 
5415 
5416 
5417 
5418 
5419 
5420 
5421 
54.' 2 
5423 



2 
3 
3 
3 
3 
S 
? 
4 
4 
4 
4 
4 
4 
3 
3 
2 
2 
2 
2 
3 
3 

3 
3 
3 
3 
3 
3 
3 
3 
2 
2 



2 



RD'RX EXERCISER 
INITIALIZE SECTION 



1 1. 1 

11 -Apr -1984 11:56:01 
11 -Apr -1984 11:45:02 



PRINTF CCER 02, MAX CTLR)} 
OUR [ .UNIT J * DU CONF; 
OODU ( .UNIT)} 
end: 



end; 



end} 



SEU 0138 

VAX-11 Hliss-16 V4. 0-579 P age 138 

DISK $U5ER2 : [ POWERS l/RQADO . BL 1 ; 6 ( 40 ) 

! "MORE THAN X IP ADDRESSES." 
! CONFIGURATION ERROR 
! DROP UNIT 



J IF NO IP ADOR MATCH IN CST 
! IF GPHARD RETURNS A HWP TABLE 



CONFIGURATON CHECK FOR LEGAL RDRX UNIT MIX BECAUSE WE HAVE DIFFERENT 



DRIVES 
(NEEDED?) 



THE RD51, RD52, AND RX50. 



! END OF "NON NEW PASS" INIT 



If .ENTRt REASON eql NEW PASS 
then 

begin 

incr UNIT from to C.L$UNIT 

GPHARD (.UNIT, HWPT..REF); 

incr CTLR from to (MAX_CTLR 
begin 

CST [ .CTLR, U.CNT] * 0; 



1) do 
1) do 



I DUMMY GPHARDs FOR NEW PASS 



! REINITIALIZE UNIT COUNT 



incr OFFSET from CO ♦ OF_UN) to ((UNITS PER.CNTR 1) ♦ UNIT SIZE * OF UN) by UNIT SIZE do 

CST [.CTLR, .OFFSET ♦ OF.DATA, D_STAT1 * OFFLINE} " " ! START EACH UNIT AS OFFLINE 

end: 

end; 

if .ENTRY REASON eql START 
then 

begin 

CTLR..CNT » Oj 



incr CTLR from to (MAX..CTLR - 1 ) do 

if .CST [.CTLR, IP ADDR] neqa 
then 

CTLR..CNT - .CTLR_CNT ♦ 1; 

MEMORY (FREE. MEM, ADDR)} 

end: 



! NUMBER OF CONFIGURED CONTROLLERS 

IF CONTROLLER IS PRESENT 
INCREMENT CONTROLLER COUNT 
GET START OF FREE MEMORY 
END OF "START" INITIALIZATION 



J ♦ 

i 
i 



CLEAR STATISTICS TABtFS 
incr UNITS from to MAX. UNITS 1 do 



I CLEAR CURRENT STATISTICS 



J 11 



ZRQAM? 
V01.6 



54 24 
54? 5 
54?b 
5427 

5428 
54 ?9 

5450 

54 31 
54 5? 
54 35 
54 34 
5435 
5*36 

5438 
54 3 9 

5440 
544 1 
544? 
5443 
5444 
5445 
5446 

544 7 
5448 
5449 
5450 
5451 
5452 
5453 
5454 
5455 
5456 

545 7 
5458 
5459 



RO/RX EXERCISER 
INITIALIZE SECTION 

incr COUNT from to TALLY CLEAR 1 do 
TAl.n [.UNITS * TALLYMEN * .COUNT] 



ll-Apr-1984 11:56:01 
ll-Apr-19U4 11 S 45:02 



Oj 



If .CLEAR TABLES 
then 

Incr UNITS from to MAX UNITS - 1 do 

Incr COUNT from TALLY ..CLEAR to TALL T lEN - 1 do 
TALL* {.UNITS * TALLY. LEN ► .COUNT] - 0; 

If .CLEAR TABLES 
then 

incr CTLR from to MAX. CTLR - 1 do 

begin 

C_ERR THL r.CTLR, C ERR HRD] - 0; 

C.ERRJBL [.CTLR, CERlTSFT] 8 0; 

end i 



MISCELLANEOUS INITIALIZATON 

1) do 
1) do 



Incr CTLR from to (MAX CTLR 
QIO (.CTLR] * 0; 



incr COUNT from to (RP CNT 
RP.USE [ .COUNT ] = -lj 

If .CLK PRESENT 
then 

LINE_CLOCK ■ Os 

IODQ IN - IODQ OUT « o 5 
CRN.LOU * CRN HIGH * Oj 
SF.TPRI (PRIOO); 

ENDINIT? 



SEQ 0139 
VAX -11 Bliss-16 V4.0-5V9 Page 139 

DISK $USER2 1 [ POWERS JZRQADO . BL 1 ; 6 ( 40 ) 



! IF CLEAR TABLES ON EVERY PASS 



! INITIALIZE TOTALS 



! INITALIZE CONTROLLER ERRORS 



! INIT NO. OF OUTSTANDING QIOi 



J INITIALIZE RETURN PACKET POOL 



! STOP CLOCK IF PRESENT 



INIT I/O DONE QUEUE POINTERS 
INIT COMMAND REFERENCE NUMBER 
SET PROGRAM PRIORITY TO 



.GLOUL LSDLY 



000000 
000004 
000010 
000014 
000016 
00002? 
0000?4 
000026 
000034 
000040 
00004? 



004137 
162706 
012700 
104441 
01?700 
104447 
103014 
112737 
10573 7 
100403 
105066 



OOOOOOG 

000030 

000340 

000035 



000005 OOOOOOG 
OOOOOOG 

000010 



LINIT: 



.5BTTL 


LINIT INITIALIZE SECTION 


JSR 


R1,$SAVE5 


SUB 


O30.SP 


MOV 


>'M40,R0 


IRAP 


41 


MOV 


#35,R0 


TRAP 


4/ 


BHIS 


2* 


MOVB 


45.ENTR} .REASON 


TSTB 


SWP. FLAGS 


BMI 


1* 


CLRB 


10CSP) 



: CLEAR. TABLES 



515 " 
C M *? 
SI "4 



5 i ' : 
5UU 



K 1 1 



ZRQAM2 
VOL 6 

000046 
000050 
000056 
000065 
000064 
000066 
000070 
000076 
000104 
000110 
000114 
000120 
000152 
000124 
000132 
000140 
000144 
000146 
000150 
000156 
000162 
000164 
000170 
000172 
000200 
000204 
000206 
000210 
000216 
000222 
000226 
000234 
000240 
000244 
000246 
000250 
000254 
000260 
000262 
000264 
000270 
000272 
000276 
000300 
000302 
000304 
000306 
000310 
000312 
000314 
000316 
000324 
000326 



000403 
112766 
012700 
10444 7 
103013 
104433 
112737 
112766 
105037 
105037 
012700 
10444 7 
103006 
112737 
112766 
012700 
104447 
103014 
112737 
105737 
100403 
105066 
000403 
112766 
012700 
104447 
103043 
112737 
105037 
105037 
112766 
012746 
012746 
010600 
104417 
0127C5 
012703 
010301 
001411 
013700 
001404 
005066 
005300 
0013/4 
005301 
000766 
104452 
005502 
001360 
022626 
02372/ 
101405 
104454 



RD/RX EXERCISER 
INITIALIZE SECTION 



000001 000010 
000040 



000001 OOOOOOG 
000001 000010 
OOOOOOG 
OOOOOOG 
000037 



000002 OOOOOOG 
000001 000010 
000036 



000003 OOOOOOG 
OOOOOOG 

000010 

000001 000010 
000034 



000004 OOOOOOG 

OOOOOOG 

OOOOOOG 

000001 000010 

OOOOOOG 

000001 



000075 
000515 



OOOOOOG 
000022 



11 -Apr- 1984 11:56:01 
lt-Apr-19«4 il;45j02 



VAX-11 GUss-16 V4. 0-579 Poqe 140 

DISK $ USER2 : [ POWER S J ZRQADO . BL 1 } 6 ( 40 ) 



OOOOQQG 000004 





BR 


2$ 


1$: 


MOVB 


n.iocsp) 


2$} 


MOV 


#40 f R0 




TRAP 


47 




BHIS 


3$ 




TRAP 


33 




MOVB 


#1, ENTRY. REASON 




MOVB 


01.10c sp) 




CLRB 


ADDR.VECT.OK 




CLRB 


INIT.OCCURED 


3$: 


MOV 


037 ,R0 




TRAP 


47 




BHIS 


4$ 




MOVB 


02, ENTRY. REASON 




MOVB 


01.1OCSP) 


4$: 


MOV 


036.RO 




TRAP 


47 




BHIS 


6$ 




MOVB 


03, ENTRY, REASON 




TSTB 


SWP. FLAGS 




BMI 


5$ 




CLRB 


10CSP) 




BR 


6$ 


5$: 


MOVB 


41.10CSP) 


6$; 


MOV 


034 ,R0 




TRAP 


47 




BHIS 


12$ 




MOVB 


04. ENTRY .REASON 




CLRB 


AOOR.VECT.OK 




CLRB 


INIT.OCCURED 




MOVB 


#1,10(SP) 




MO J 


0MSG.O1 I -(SP) 




MOV 


01. -CSP) 




MOV 


SP.RO 




TRAP 


17 




MOV 


075. R2 


7$: 


MOV 


0515, R3 




MCV 


R3.R1 


6$: 


BEQ 


115 




MOV 


I $0LY,RO 




BEQ 


10$ 


9$: 


CLR 


22CSP) 




DF.C 


RO 




BNL 


9$ 


10$; 


DEC 


Rl 




BR 


8$ 


11$: 


TRAP 


■ i i 




DEC 


R2 




ONE 


7 4 




CMP 


( SP ) » , ( SP ) * 


12$: 


CMP 


L$UNIT,04 




Ul 05 


13$ 




TRAP 


54 



*, CLEAR. TABLES 



*, CLEAR. TABLES 



* .CLEAR. TABLES 



CLEAR. TABl IS 
*, CLEAR. TABLES 



*, CLEAR. TABLES 



SP,* 

♦.COUNT 

* .DELAY .MULT 

DELA1 l MUl.T,$$TMP2 

*. $$TMP1 

$$TMP 

SJTMP1 

$$TMP2 



j COUNT 



5179 

5183 
5187 



5189 
5191 
5192 
5193 
5194 
5107 



5200 
5201 
5204 



5207 
5209 

5211 
5209 
5213 

5217 



5220 
5221 

5222 

5224 



52> 
5228 
5229 



52 '^> 
524 n 



Lit 



ZRQAM? 




RO/RX EXERCISER 


VOL.6 




INITIALIZE SECTION 


000350 


O000O1 




00033c? 


OOOOOOG 




000334 


OCOOOOV 




000336 


1044^4 




000 340 


123727 


OOOOOOG 000005 


000346 


001002 




0003130 


000137 


00336c' 


000354 


112766 


00037 7 000006 


00036? 


005000 




000364 


005060 


OOOOOOG 


000370 


062700 


00000? 


000374 


02002 7 


000124 


000400 


0037^1 




000402 


013704 


OOOOOOG 


000406 


or:soo3 




000410 


000435 




00041c? 


010302 




0C04K 


006302 




000^16 


012700 


000020 


00042? 


060600 




01)0424 


060002 




000426 


010300 




0004 30 


104442 




0004 32 


010001 




0004 34 


010112 




000436 


001421 




000440 


005002 




000442 


156602 


000006 


000446 


116100 


000006 


000452 


042700 


177760 


000456 


020002 




000460 


103010 




000462 


116100 


00OOC6 


000466 


042 700 


177760 


0004 72 


105066 


000006 


000476 


050066 


000006 


000502 


005203 




000504 


020304 




000506 


002 741 




000510 


013766 


OOOOOOG 000014 


000516 


005004 




000520 


000137 


003340' 


000524 


010400 




000526 


006300 




000530 


012703 


000020 


000534 


060603 




000536 


060300 




000540 


005 /it; 




000542 


00 1002 




000544 


0001*7 


001336' 


000550 


105066 


000004 


000554 


01! 001 




000556 


005016 
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SEQ 0141 
VAX -11 Bliss -16 V4. 0-579 p afle 141 

UI5l<*USeR2:[P0WERS]ZRQADQ.BLli& (40) 





,UORD 


1 




.WORD 


EG5.01 




.WORD 


EMS. 01 




TRAP 


44 


13$: 


CMPB 


ENTRY. REASON, OS 




BNE 


14 i 




JMP 


41$ 


14$: 


MOVB 


0377, 6(SP) 




CLR 


RO 


15$: 


CLR 


CSTCRO) 




ADD 


42, RO 




CMP 


R0.0124 




BLE 


15$ 




MOV 


L$UNIT,R4 




CLR 


R3 




BR 


18$ 


16$: 


MOV 


l!3,R2 




ASl 


R2 




MOV 


020. RO 




ADD 


SP.RO 




ADD 


R0.R2 




MOV 


R3,R0 




TRAP 


42 




MOV 


R0.R1 




MOV 


R1.CR2) 




BEQ 


17$ 




CLR 


R2 




BISB 


6(SP),R2 




MOVB 


6CRD.R0 




BIC 


#1/7 760.R0 




CMP 


R0.R2 




BHIS 


17$ 




MOVB 


6CR1),R0 




BIC 


4177760.R0 




CLRH 


6CSP) 




BIS 


R0.6CSP) 


1 ?%i 


INC 


R3 


18$: 


CMP 


R3.R4 




BL T 


16$ 




MOV 


L$UNir,14lSP) 




CLR 


R4 




JMP 


39$ 


19$: 


MOV 


R4.R0 




ASl 


RO 




MOV 


020, R 3 




ADD 


5P.R3 




ADD 


R3.R0 




TST 


(RO) 




BNf- 


20$ 




JMP 


38$ 


ao$: 


Ct RB 


4l SP) 




MOV 


(HO.l.Rl 




CLR 


(SP) 



*, SMALLEST. DRIVE 

COUNT 

*C COUNT) 

*, COUNT 
COUNT,* 



: UNIT 
; UNIT,* 

; HWPT, ADDRESS,* 
{ UNIT,* 

j ♦ , HWPT. RET 
: HWPT.REF,* 



SMALLEST. DRIVE,* 
♦ (HWPT. RED,* 



: *CHUPT.REF), * 

SMALL EST. DRIVE 
*, SMALLEST. DRIVE 
UN1I 
UNIT,* 



; UNIT 
; UNIT,* 

i HWPT, ADDRESS,* 



s n AG 

j ♦.HWPT.REK 
t CTLR 



5256 



5259 
5261 
526? 
5261 



5264 
5266 



52o9 



5271 

5264 

52*75 



5J-81 



Mil 



ZRQAM2 
VOL 6 

000560 
00056c') 

000566 
00057c? 

000574 
000600 
000602 
000606 
000614 
000622 
000o?6 
000630 
000632 
000636 
000640 
000644 
000646 
000652 
000656 
00066? 
000664 
000666 
000672 

0006 76 
000 700 
Or 0702 

000 r06 
000710 
000 .' 16 
000 20 

0007 54 
000/30 
000 73? 
000/34 
000/36 
00074? 
000/4*4 
000 746 
000 /SO 
000 /54 
000760 
000 /62 
000 766 
000 //2 
000774 
000 7 76 
001000 
001006 
001010 
00101? 
001014 
0010?? 
001024 



011646 
012746 
004737 
022626 
026011 
001402 
000137 
012/66 
112766 
012705 
060105 
111546 
042716 
005000 
156600 
160016 
012746 
004 737 
010066 
022626 
011646 
012746 
004737 
010003 
022626 
066600 
006300 
032760 
021121 
016602 
062702 
010300 
060200 
006300 
062/00 
011510 
010446 
000316 
042/16 
042/10 
052610 
042/10 
052/10 
010300 
060200 
006300 
016160 
010^00 
060200 
006300 
016160 
010300 
060200 



RD/RX EXERCISER 
INITIALIZE SECTION 



000126 
OOOOOOG 

OOOOOOG 

002612' 
000001 
000001 
000006 



21$ 



000012 
000004 



22$ 



177760 

000010 

000012 

OOOOOOG 

000006 



000053 
OOOOOOG 



000002 

040000 000006G 

00000? 
000003 

OOOOOOG 



17037 7 
007400 

010000 
040000 



000010 000002G 



000012 000004G 



HOV 

MOV 

JSR 

CMP 

CMP 

BEQ 

JMP 

MOV 

MOVB 

MOV 

ADD 

MOVB 

BIC 

CLR 

BISB 

SUB 

MOV 

JSR 

MOV 

CMP 

MOV 

MOV 

JSR 

MOV 

CMP 

ADO 

ASL 

BIT 

BNE 

MOV 

ADD 

MOV 

ADD 

ASL 

ADD 

MOV 

MOV 

SWAD 

BIC 

BIC 

BIS 

BIC 

BIS 

MOV 

ADD 

ASL 

MOV 

MOV 

ADO 

ASL 

MOV 

MOV 

AUO 



11 -Apr- 1984 

H-Apr-1984 

(SP).-(SP) 

#126, -(SP) 

PC.BUMUL 

(SP^.CSP)* 

CST(R0),(R1) 

22$ 

27$ 

«1,12CSP> 

#1,4(SP) 

#6,R5 

R1.R5 

(R5), (SP) 

#177760, (SP) 

RO 

10CSP),R0 

RO.(SP) 

#12, (SP) 

PC.BL$MUL 

R0,6(SP) 

(SP)*,(SP)* 

(SP).-(SP) 

#53, (SP) 

PC.BL$MUL 

R0.R3 

CSP)*,(SP)* 

2(5P).R0 

RO 

#40000, CST*6(R0) 

26$ 

2(SP),R2 

#3.R2 

R3.R0 

R2.R0 

RO 

#CST,R0 

(R5),(R0) 

R4, (SP) 

(SP) 

#1703/.\(SP) 

#/400,(R01 

( SP ) * , ( R0 1 

#10000. CRO) 

#40000, (RO) 

R3.R0 

R?,R0 

RO 

tO(Rl),CST*i?CRO) 

R3.R0 

R2.R0 

RO 

l?(Rl),CST*4(R0) 

R^,RO 

R2.R0 



. .- ~. „ . SE.U 0142 

11:56:01 VAX-11 Bliss 16 V4.0 5/9 p oac 142 

11:45:02 DISK $USER2i [POWERS JZRQAD0.BL1 ;6 (40) 



i CTLR,* 

; *,HWPT.REF 

*,Fl AG 

HWPT.REF,* 

j SMALLEST. DRIVE,* 



5283 



5313 

5266 



j CTLR.+ 



5267 



*,TEMP 

*,TFMP 

TEMP,* 



5 UNIT,* 



; 1EMP.+ 

♦CHWPT.RKK),* 

TEMP, i 
{ *(HWPT.REF),* 
1 TEMP,* 



5? c *0 
5291 

5293 



5?94 
5? l »5 

5?9 * 



5?99 



5301 



N 1 .!. 



7RUAM2 
VOL 6 

001026 

001050 
001036 
001040 
001042 
001044 

001052 

001054 
001056 
001060 
001064 
001066 
0010/0 
00107c* 
001100 
001102 
001104 
001106 
001110 
0011 in 
001116 
001120 
001124 
001126 
001130 
001134 
001140 
001 142 
001146 
001150 
001152 
001154 
001160 
001162 
001164 
001166 
001172 
001176 
001202 
001204 
001206 
001212 
001220 
001222 
001224 
001226 
001230 

001232 
001234 
001240 
001244 
001246 



006300 

016160 

010300 

060200 

006300 

016160 

010300 

060200 

006300 

062 700 

105010 

11.1546 

005046 

032766 

001401 

005216 

00511.6 

01164* 

0427H) 

006026 

103002 

052710 

005726 

111516 

042710 

032 726 

001402 

052710 

010300 

060200 

006300 

005060 

00042/ 

011146 

111546 

042716 

012/46 

012746 

010600 

10441/ 

062 706 

112764 

010400 

104451 

000405 

005216 

00024 3 

003002 

000137 
105/66 
001402 
000137 



RO/RX EXERCISER 

INITIALIZE SECTION 



000014 000006G 
000016 0000 10G 
000020G 
000040 000002 

100000 
100000 



010000 
000100 

010000 



000022G 



1/7760 

OOOOOOG 
000003 



000010 

000001 OOOOOOG 



002144' 

000004 

003336* 



11 -Apr-1984 
11 -Apr -1984 

ASL RO 

MOV 14(R1),CST*6(R0) 

MOV R3.R0 

ADD R2.R0 

ASL RO 

MOV 16CR1),CST»10(R0) 

MOV R3.R0 

ADO R2 , RO 

ASL. RO 

WO flCST*20,R0 

Ci Id (RO) 

(R5), (SP) 

v..'< (SP) 

bif 440>2(SP) 

BF.Q 23$ 

INC (SP) 

23$ : COM (SP) 

MOV (SP).-(SP) 

BIC 4100000, (RO) 

ROR (SP)* 

BCC 24$ 

BIS 4100000, (RO) 

24$ ? TST (SP)* 

MOVR (R5),(SP) 

BIC 410000, (RO) 

BIT #100, (SP)* 

BEQ 25$ 

BIS 410000, (RO) 

25$s MOV R3,R0 

ADD R2 . RO 

ASL RO 

CLR C5W22(R0^ 

BR 28$ 

26$: MOV (Rl).-(SP) 

MOVB (R5),-(SP) 

BIC *17/760, (SP) 

MOV ACER. 01, -(SP) 

MOV 43, (SP) 

MOV SP.RO 

TRAP 17 

AOO 410, SP 

MOVB 41.DURCR4) 

MUV R4.R0 

TRAP 51 

BR 2«$ 

2/$: INC (SP") 

.WORD CL.VJCl C 

BGT 28$ 

JMP 21$ 

26$: T l '. 4(5P) 

bi. . vn 

JMP 38 $ 



11:56:01 VAX-11 Bliss- If. V4.0 579 Page 14 3 

11:45:02 DISK$USER2: [ POWERS URQAD0.HL1 ;6 (40) 



±(HWPT.REF),* 

TEMP,* 
: *(HWPT.REF , >,* 
j TEMP,* 



5303 



.306 



5308 



; TEMP,* 



; HWPT.RtF.f 



J SP,* 



{ *,*UINIT) 
; UNIT,* 



S CTL.R 



j FLAG 



5310 



531J 



VU8 



5<20 
5321 

S31 ■' 
5281 



532b 



/ROAM/ 
V 1 , 6 

001/5/ 

('Oi.'V 
OOl/*/ 
001/66 
001/ V 
001/ *4 
00 1 500 
00150/ 
vHi 1 50* 
00151.' 
001 5 U, 
001 5/4 
0015 5^ 
00155*, 
00154/ 
00154 4 
00154* 
00155/ 
001 5S4 
001560 
00 1 56/ 
00 15** 
0015 7/ 
001 5/4 
0015 76 
00140c' 
00140** 

00141,: 

001416 
0014/0 
0014// 
0014,-4 

0014/6 
00145,' 
«>01454 
0014 56 
O01440 

00 1450 
00145/ 
im)14S* 
O014*/ 
DO 14M 
0014M. 
0014 /4 
OOl 4 .'6 
OOP, 00 
00 ISO. • 

"<)1M. 
ooi',14 
tiolS l# 
0G1V4 



005066 

016646 
01.V46 

004 / 5 ; 
o//*/* 

005 .'60 

ooii '4 

011160 
01610 5 
04/70 5 
04/ '60 
050 5*0 
116160 
01 /-'OS 
0*01 OS 
11154* 
04/ M* 

005000 

1S6600 
160016 
012746 

004 ? 5 7 

005 7/6 
01000/ 
06/70/ 
016616 
01/74* 
004 75 7 
01000 5 
00S//6 
060/00 

006 500 
06.* 700 
01 IS 10 
01041* 
000 5 1 6 
04/71* 
04/710 
OS/610 

04/ 7;o 

OS/ 710 

105715 
1 0000 5 
01/761 
010. 500 
060/00 
00*500 
016160 
Olu50() 
060/00 
00*500 
»fl*l*u 
010500 



RO R5 t.MRCISlR 

iNirirti i/t st-cnoN 

OCK.KM/ 
00001/ 

0001/6 
QOOOOOi* 

OOOOOOO 

OOOOOOO 
00000/ 

l : 7ooo 

000 7 V OiUMUS'l. 

ooooosu 

0<\^00A 0000040 
000006 



1 7 7 7*0 

000010 

00001/ 
00000 ex, 



11 Apr l'*A4 ll: r s;01 
11 Aprl9H4 Ili45j0^ 



SEU 0144 
VAX 11 Hlifl-i 16 V4.0 S/'# p ao€ 144 

l>ISM"J5rR/j[PUW(-R5]/RQAD0,Hl 1|6 f 40 * 



000005 
000014 
00005 5 

0000000 



ooooooo 



170 5*7 

00 74 00 

1 000 J 

0400C0 



1/7/7/ 000C14 



ooooio ooooo/r 



00001/ 000004U 



."•I: 


u w 


UiSP) 


501: 


MOV 


IcMSP). (SP) 




MOV 


1 /6 , f SP ) 




JSR 


PC. Hi IMu. 




CMP 


i SP ) • , ( SP ) • 




Tsr 


CST(RO) 




HNI 


551 




MOV 


<R1 J.CSTlRO) 




MOV 


2(R1 ).R5 




Bit 


♦1 7/000, R5 




ric 


0///.C5T ./1R0) 




HI'. 


R5,CS T ./(R0) 




MOVH 


4(Rl ),CST»4tW0) 




MUV 


0* t R5 




rtt)0 


Rl.RS 




MOVH 


( R5 ) , ( SP ) 




HIC 


9\ N /60, ( SP ) 




Cl R 


RO 




HI SB 


10(SP),R0 




sue 


RO , ( SP ) 




MOV 


*U*\ (SP) 




JSR 


pc. hi imn. 




TST 


( SP ) ♦ 




MOV 


no,R/ 




ADD 


• 5,iV 




MUV 


14 (SP >,(5P) 




MUV 


05 5, ( SP ) 




JSR 


PC JU H'iU 




MOV 


RO # rt 5 




I'iT 


( SP > . 




ADC 


R/.RO 




AM 


RO 




ADO 


ocst .flO 




MOv 


(RS )/ RO) 




MUV 


R4 , . SP ) 




SWAB 


«, SP ) 




HIC 


«1 70* 7 7 t i ,P ) 




HIC 


74O0, { RO ■) 




HIS 


( ',P ) » ,i RO ' 




HIC 


01000 \ vRO ) 




HIS 


040000, (RO 1 




»SIH 


(RS ) 




HP i 


511 




MOV 


I , 141R1 > 


iU: 


MOV 


H5 .RO 




AOO 


R. ,Ro 




AM 


RO 




MOV 


lOi Rl '.CST »/(R0) 




M('v 


R5.Ro 




AOO 


R/.RO 




AM 


RO 




Mi ; , 


t/l Rl j ( CSt *<URU> 




MOV 


HS,RO 



i Cll.f? 
j CUR,* 



I HWP T . MM , ♦ 

j ♦IHUPT.RM ), ♦ 



l *( HWPT ,W|t i, ♦ 

J 

j HWPT ,RM .* 



I SMAl t t'ST .OHtVt , ♦ 



l * . U MP 

i *,Ump 

j COR,* 



I MMP, 



i -iNIT,* 



i • . ♦< mup ? .Rl ► 

i 

{ Hmp,. 

I 6Hw>'! .RM \ * 

I MMP,. 

I »vMk*MT % Rt> \ t * 

1 



s'.v 



S5 5S 

'.'.56 



S55 J , 



5 5 l * 



' .5.11 



S'4 

S< H . 

'.'■4*. 



, V. ! 



SJ^J 



/HiMM/ 
VO i . 6 

0015/6 

00 IS 50 

00 IS V 

001540 

00154/ 

00 1S44 

001b4t> 

001554 

001? $6 

001560 

00156/ 

0015bi 

0015/0 

00 157/ 

00 IS. '4 

00160.' 

001*. 04 

001606 

001610 

ooie.i/ 

00 lb 16 

00 lb/0 
0016// 
0016/6 

oou.v) 

00165.' 
00163b 
00164,:' 
001644 
00 I 6 SO 
0016 V 
001654 
0016S6 
0016b* 1 
0016 70 
001'. V 
0016 '6 

001 ;oo 

001 '0/ 

o«u /06 

ooi n? 

|'K)1 /14 

ooi //o 

001 <*/4 
Col MO 
001 M/ 
00 1 / '.4 
001/4,' 
001 /44 
001 /4*> 

ooi ;s.- 

001754 



ObO/00 
00b 500 
016160 
010500 

Ob 0/00 
006 500 
016160 
010500 
060/00 
006500 

06,-? ;oo 

10S010 
111646 

00504b 
05/ /bb 
001401 
005/ lb 
00S116 
01164b 
04/7 10 
0060/6 
10500/ 
OS// 10 

oo s ;/b 

111516 

04/ no 

OW/b 
00140/ 
OS// 10 
O1O3C0 
06.0/00 
006 500 
005060 
11//66 
000410 
005/66 
000/4 5 

00 500 / 

00015/ 
105/66 
00101 / 
01//46 
01/ Mb 
01//46 
010600 
10441 / 
11/ /64 
010400 
104451 
06/ .'06 
OOS/04 
0/0466 



WO H\ t M KCISI It 
INJUAl I/t SICUUN 



000014 OOOOObH 



ooooib ooooiot; 



11 Apr 1«>H4 HjSbjOl 
11 Apr 1*)H4 11:45:0/ 



oooo/ot; 



O0004O 00000/ 



100000 
100000 



010000 
000100 

010000 



0000//G 

OOOOO 1 000004 

00001/ 



00/64/' 
000004 

OOOOO 1 
000000* > 

OOOOO/ 



000001 OOOOOOG 

000006 

000014 





ADO 


R/.MO 




AM 


MO 




MOV 


14(H1 ),CST.6(R0) 




MOV 


R5,R0 




MOO 


R/.RO 




ASl 


MO 




MOV 


lb(Rl).C5T»10CR0) 




MOV 


H5.H0 




ADD 


R/.RO 




ASl 


RO 




ADD 


OCST */0,H0 




Cl RH 


< WO) 




MOVH 


CHS), ISPl 




Cl R 


( SP ) 




HIT 


040,/CSP) 




M U 


5/$ 




INC 


ISM ) 


5/); 


rnn 


(SP) 




MOV 


( SP ) , ( SP ) 




HIC 


•100000, I RO) 




RON 


(SP w 




ncc 


55$ 




H I 5 


0100000, (KO) 


55$: 


TST 


C SP ) ♦ 




MOVH 


( rs ) . c *;p ) 




BIC 


010000, (RO) 




BIT 


• 100,(SP)» 




Bl (J 


14$ 




HIS 


OIOOOO.(RO) 


54$: 


MOV 


R5.R0 




ADD 


R/.RO 




ASL 


RO 




CL.R 


CST.//(MO) 




MOVH 


01.4CSM) 




HM 


5/1 


55$: 


INC 


l/l SP) 




.UORD 


Cl V!C1 C 




HOT 


36$ 




JMP 


50$ 


3b i i 


I STB 


4l SP1 


.VM: 


BN* 


5H$ 




MOV 


ol # v -,P i 




MOV 


OCt-H ,0/, ( SP1 




MOV 


0. . C'iP> 




MOV 


■M.RO 




TRAP 


I ■ 




MOVH 


1 ,[)i4u R4 ) 




MOv 


H4.M0 




TRAP 


61 




ADO 


06 , SP 


:«.*$ : 


INC 


R4 


i**l 


CMP 


H4 1 14(* J P) 



VAX U Ulln-i 16 V4.0 S/0 ^Va^'l A'. 

DISK tW FM/ j | POWERS J/RQAOO .HI 1 j6 ( 40 ) 

i TfMP,* 

: ♦ tnwpr ,ri> ),♦ 

i MMP,* 

; ♦(HWPf .RtF ),♦ 

J S55ft 

s n-.rir*,* 



t TI.MP,* 

; • , M A'., 

! CTi M 

j * I AG 

• 

; *»P,» 

; *,-^ ; NlTi 

i ON IT,. 



i "NIT 
i UNIT,* 



5 5^4 
S<<4 

5 <*o 



.<♦.'< 



',< y 

s/r< 



)l 



.'RUAM2 
V i . f > 

001 :to 

oo i /62 

001 7h* 
0017/4 

001 Vh 

002002 

00.7004 
00.7006 
00 JO 10 
002012 
002014 
0020 lt> 

002020 
002022 
002024 

002026 

002032 
002056 
00 J 04 2 
002044 
002050 
002054 
002060 
002062 
002064 
002066 
002074 
002100 
002104 

002 ICC 
002112 
002114 

00211'. 
002120 
002126 
002150 
002154 
002136 
002142 
002144 
002 ISO 
002154 

002156 
002160 
002162 
002166 
0021/0 
0021/2 
002W4 
0021- '6 
002200 



000137 
123727 
001051 
013704 
00500? 
000401 
010300 
104442 
010001 
005203 
020304 

002 / 72 
005005 
010346 
012746 
004/37 
105060 
010316 
012746 

004 737 
012701 
010002 
060102 
006302 
042762 
062 701 
02012 7 
003765 
OC2 706 
005203 
00024 3 

003/42 
125727 
00101 / 
00503 7 
005000 

005 7b0 
001402 
00523 7 
062700 
00024 3 

00576 7 
104431 

01003/ 
005001 
005003 
010500 
060100 
00' '00 
005060 



HO H\ \ XERCI C .ER 
INTTIALI/E SECTION 



002 110 ■ 
OOOOOOG 000005 



11 -Mpr 19H4 11:56:01 
U Apr 19H4 11:45:02 



VAX 11 HI!™ 16 V4.0 5/9 bE °Pao« f, 146 

DI5l<$U5ER2i[POWLRS)/RQADO,Bl.l;6 (40) 



OOOOOOG 



OOOOOOG 



000126 

oooooog 

000005G 

000053 

OOOOOOG 

000003 



020000 
000012 
00004 i 

000006 



OOOOOOG 000001 

OOOOOOG 

OOOOOOG 

OOOOOOG 
000126 



OOOOOOG 



OOOOOOG 





ElGt 


40$ 




JMP 


191 


40$ j 


CMPR 


ENTRY .REASON, 05 




HN( 


46$ 


41$; 


MOV 


I $UNIT,R4 




CLR 


R3 




BR 


43$ 


4 c? I| 


MOV 


R5.R0 




TRAP 


42 




MOV 


RO.Rl 




INC 


R3 


43$: 


CitP 


R3.R4 




HIT 


42$ 




CLR 


R5 


44$: 


MOV 


R3,-CSP) 




MOV 


0126, (SP) 




JSR 


PC.BLIMLH. 




Ct.RB 


CST»5(R0) 




MOV 


R3.CSP) 




MOV 


053, -CSP) 




JSR 


PC.BI.IMUL 




MOV 


03. Rl 


45$: 


MOV 


R0,R2 




ADO 


R1.R2 




ASL 


R2 




BIC 


020000, CSTCR2) 




ADO 


012, Rl 




CMP 


H1.041 




Hl.fr 


45$ 




ADD 


06 , SP 




INC 


Wi 




.WORD 


CLVJCLC 




file 


44$ 


46$; 


CMPB 


ENTRY , Rt ASON.01 




BNfc 


49$ 




CLR 


CTI.R.CNT 




CLR 


RO 


47$: 


T5T 


CSURO) 




HEQ 


4tt$ 




INC 


CTLR.CNf 


48$: 


ADO 


Q126.R0 




.WORD 


CLVJCLC 




Hi E 


4/$ 




TRAP 


51 




MOV 


HO.KREE.MEM.AOOR 


49$: 


CLR 


Rl 


50 $ : 


CI R 


R3 


r>i$i 


MOV 


R3.R0 




ADD 


Rl.RO 




AM 


RO 




CLR 


TAU it HO) 



j UNIT 

i UNIT,* 

i *,HWPT,REF 

I UNIT 

j UNIT,* 

j CUR 

j CTLR,* 



j CTIR,* 

♦.OFFSET 
OFFSET,* 



; *,OFf 51 T 
; OFFSET,* 



s CTLR 



CUR 
♦ vCTl R^ 

; *,Cri.R 



{ 

l UN I ! ; 

j COUNT 

l CUUNT.* 

j UNITS,* 



5586 
5390 

5391 

5 <90 



5 5 >5 

'.595 



5 598 



Y5#.' 
r .598 



•,<9 ' 



5 3 , *4 
5 393 



5404 

54 * 

S40* 

5411 

54 ! 5 

5409 



S42 < 
l -V4 
S42 l * 



t : l c 



7RQAN2 




RQ/RX EXERCISER 


VOL 6 




INITIALIZE SECTION 


002204 


005203 






002206 


02032 7 


000006 




002212 


00376 7 






002214 


062701 


000033 




002220 


02012 7 


000121 




002224 


003761 






002226 


032766 


000001 


000010 


002234 


001436 






002236 


005001 






002240 


012703 


000007 




002244 


010300 






002246 


060100 






002250 


006300 






002252 


005060 


OOOOOOG 




002256 


005203 






002260 


02032 '7 


000032 




002264 


003767 






002266 


062 701 


000033 




0022?2 


020127 


000121 




0022 7 6 


003760 






002300 


032766 


OOOOOl 


000010 


002306 


001411 






002310 


005000 






002312 


105060 


OOOOOOG 




002316 


105060 


00000 1G 




002322 


062700 


000002 




002326 


00024 3 






002330 


003770 






002332 


005000 






002334 


105060 


OOOOOOG 




002340 


005200 






00234 2 


00024,3 






002344 


003773 






002346 


005000 






002350 


112760 


000377 


OOOOOOG 


002356 


005200 






002360 


02002 / 


000007 




002364 


003771 






002366 


132737 


00000 1 


OOOOOOG 


002374 


001402 






002376 


005037 


17 7546 




002402 


005037 


OOOOOOG 




002406 


00503 7 


OOOOOOG 




002412 


005037 


OOOOOOG 




00241 6 


00503 7 


OOOOOOG 




002422 


005000 






002424 


104441 






002426 


062 706 


000030 




0024 52 


00020 7 






; Rout J 


r>e $'>zet 


654 words, Ro 



11 -Apr-19fl4 11:56:01 
11 -Apr -1964 11:45:02 





INC 


R3 




CMP 


R5,#6 




BLE 


51$ 




ADD 


433, Rl 




CMP 


R1.0121 




BLE 


50$ 




BIT 


ai.lO('JP) 




BEQ 


55$ 




CLR 


Rl 


52$: 


MOV 


*7,R3 


53$: 


MOV 


R3,R0 




ADD 


Rl.RO 




ASL 


RO 




CLR 


TALLY(RO) 




INC 


R3 




CMP 


R3.432 




BLE 


53$ 




ADD 


033, Rl 




CMP 


R1.0121 




BLE 


52$ 




BIT 


*1.10CSP) 




BEQ 


55$ 




CLR 


RO 


54$: 


CLRB 


C.ERR.TBl.CRO) 




CLRB 


C.FRR.TBL»1(R0) 




ADD 


02, RO 




.WORD 


CLViCLC 




BLE 


54$ 


55$: 


CLR 


RO 


56$: 


CLRB 


QIOCRO) 




INC 


RO 




.WORD 


CLVJCLC 




BLE 


56$ 




CLR 


RO 


57$: 


MOVB 


03/7,RP.US£HRO} 




INC 


RO 




CMP 


RO.fl/ 




BLE 


57$ 




BITB 


Ol.CI.K. PRE SENT 




BEQ 


53$ 




CLH 


aoi 7/546 


58$: 


CLR 


IODG.OUt 




CLR 


1000. IN 




CLR 


CRN. HIGH 




CI R 


CRN. LOW 




CLR 


HO 




THAP 


41 




ADD 


030, SP 




RT5 


PC 



VAX- U Bliss 16 V4.0 579 

DISK $USfcR2: [POWERS J/RQADO. BL I ;f> 

; COUNT 
j COUNT,* 

; ♦ , UNITS 

; UNITS,* 

; ♦.CLEAR. TABLES 

UNITS 
*, COUNT 
COUNT,* 
UNITS,* 



COUNT 
COUNT,* 

♦.UNITS 

UNITS,* 

♦ .CLEAR. T ABIES 

CTl.H 

*(CTLR) 

♦CCTIR) 

♦,CTLR 



; CTLR 

t ♦ (CTLR) 

; CTLR 



COUNT 
♦.♦C COUNT) 

COUNT 
COUNT,* 



SEO 014 / 
Page 14/ 
C40) 

5424 
5423 



542/ 

5429 
54 30 
5431 



5430 



54 29 



54 33 

5435 
54 3 '' 
54*8 

5435 



544 5 
544b 
5445 



54 48 
5449 

544 8 



S451 
ll 45S 

515:* 



Routine Baoe: $CODF $ » I3b4 



ric 



ZRQnM2 
V0K6 



RO/RX EXERCISER 
INITIALIZE SECTION 



} Maximum stack depth per invocation: 24 words 



11 -Apr-1964 11:56:01 
11 -Apr -1984 11:45:02 



VAX-U BUss-16 V4. 0-579 
DISIOU5ER2: [ POWERS 1ZRQAD0.BL1;* 



SEQ 0148 
Page Ha 

C40) 



000000 

000004 
000006 



004 73 7 
104411 
000207 



001364 



.S8TU 
L$rNIT: :JSR 
TRAP 
RTS 



L$INIT INITIALIZE SECTION 

PC.LINIT 

11 

PC 



,457 



j Routine Sl^e: 4 words, Routine Base: $C0DE$ ♦ 4020 
; Maximum stack depth per invocation: 2 words 



i ; 1. 



c. 



*!RQAM2 

V0L6 



5460 
54b 1 
5462 

546? 
54b4 
5465 
5466 
54b? 
54b8 
5469 
54 ;o 

54 71 

54? 2 

54 73 

54 74 
5475 
54 .'6 

54 7" 



RO/RX EXERCISER 
AUTODROP SECTION 

#sbttl 'AUTODROP SECTION 



11 -Apr -1934 
11 Apr-l964 



11:56:01 
11:45:02 



VAX-1 1 Bliss- 16 V4.0 5/9 

DISK $USER2:[ POWERS ]/RQAD0.BLl;6 



SEQ 0149 
Page 149 
( 4 1 "; 



THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
THE "ADR" FLAG WAS SET. THE UNITCS) UNDER TEST ARE CHECKED TO 
SEE IE THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 
DROPPED FROM TESTING, 



BGNAUTOj 



if BIT. 1ST (SWP FLAGS, SWF TRC ) 
then 

PRINTF (DBM3); 

return; 

ENDAUTO; 



000000 00020? 

; Routine S'/e; 
; Maximum stac^ 



LAUTO: 

1 word, Routine Base: 
depth per invocation; words 



.SBTTL 
RTS 



LAUTO 
PC 



AUTODROP SECTION 



5459 



$CODE$ ♦ 4030 



000000 
000004 
000006 



004 737 
104461 
000207 



Rout ' ne 

Ma*. « mum 



-i • .~e: 
stacW 



004030 



4 words , 

depth per 



.SBTTL 
LSAurO: zJSR 
TRAP 
RTS 



Rout Irte Base: 
Invocation; 2 words 



L$AU10 AUTODROP SECTION 
PC, LAUTO 

61 
PC 



5475 



$CODt$ ♦ 4032 



JRCWV 
VOt .6 



54 78 
54 79 
5480 

5481 
5482 
5485 
5484 
5485 
548b 
548 7 
5488 
548^ 
54^0 
5491 
54 92 
549? 
5494 
5495 
5496 
549^ 
5498 
5499 
5500 
5501 
5502 
5503 
5504 
5505 
5506 
550 7 
5508 
5509 
5510 
5511 
5512 
5513 
5514 
551.5 
5516 

551 ; 

5518 
5519 
5520 
55cH 
5522 
55;.' 3 
5524 
5525 
5526 
552 7 



RIVRX EXERCISER 
CLEANUP CODING SECTION 

*sbttl 'CLEANUP COOING SECTION 1 



11 -Apr- 1984 11:56:01 
11 Apr-1984 11:45:02 



, , , . SEQ 0150 

VAX -U Bliss- 16 V4.0 b/9 Pa Q e 150 

DISK *USER2:[ POWERS ]ZRQAD0,BLlj6 (42) 



THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED, 



BGNCLNj 

DORP T j 

•CLRVEC (0_TVEC); 



If ,CLK PRESENT 
then 

beg I n 

LTNE ..CLOCK - 0; 
! CLRVEC C*o' 100* )j 

end: 

Incr CTLR from to (MAX_CU.R • 1 ) do 

If (RDRX_ADDR - ,CST [.CTLR. IP.ADDR]) neqa 
then 

beg i n 

if . ADDR.,VECT,OI< 
then 

begin 

If .DCT [.CTLR. STAT] eql ONLINE 
then 

incr COUNT from 1 to 10000 do 
begin 
DELAY (1), 

If .DCT [.CTLR, CRING.CNT] eql 
then 

ex I Hoop ; 

er\di 

WRT.RDRX (RCIP. RC.AL.L, All ONES): 

end: 

CLRVEC ( .CST( .CTLR, VEC.ADDRDs 
end*, 

ENDCLNj 



! RETURN ODT TRAP TO DIAGNOSTIC SUPERVISER 



J STOP THE LINE -CLOCK 

! RETURN LINE -CLOCK'S VECTOR TO SUPERVISOR 



• FOR EACH CONTROLLER 
! IF CONTROLLER EXISTS 



! IF CONTROLLER ALIVE 



! WAIT TILL OUTSTANDING COMMANDS FINISHED 



! WRITE IP TO STOP DEVICE 



! RETURN CONTROLLER'S TRAP VECTOR TO SUPERVISOR 



.SUTTL LCLEAN CLEANUP CODING SECTION 



IT 2 



ZRQAM2 
V0\ .6 

ooooco 

000004 
000006 
000010 
000016 
000020 
000024 
000026 
000030 
000034 
000040 
000042 
000044 
000052 
000054 
000062 
000064 
000066 
000072 
0000 76 
000100 
000104 
000106 
000112 
000116 
000120 
000124 
00012o 
000130 
000132 
000134 
000136 
000140 
000144 
000146 
000150 
000152 
000156 
000162 
000166 
000172 

000174 
000176 

000200 

000202 
000204 



004137 
005746 
104424 
132737 
001402 
005037 
005005 
010546 
012746 
004 73 7 
010001 
022626 
016137 
001450 
132737 
001437 
010546 
012746 
004737 
022626 
005760 
100022 
012704 
012705 
001410 
013702 
001403 
005016 
005302 
001375 
0053C3 
000767 
105760 
001402 
005304 
001360 
012700 
010077 
016100 
042700 
104436 
005205 



003712 
005 726 
00020 7 



RO/RX KXERCISER 
CLEANUP CODING SECTION 

OOOOOOG 



000001 OOOOOOG 
177546 



000126 
OOOOOOG 



OOOOOOG OOOOOOG 
000001 OOOOOOG 



000022 
OOOOOOG 

OOOOOOG 

023420 
000001 

OOOOOOG 



OOOOOOG 



177777 
OOOOOOG 
O00OO2G 
177000 







U-Apr-1984 U :56:01 






11 -Apr -1964 11:45*02 


LCLEAN: 


JSR 


R1,$SAVE5 




T5T 


■CSP) 




TRAP 


24 




BUB 


#1,CLK. PRESENT 




BEQ 


1$ 




CLR 


S0177546 


1$: 


CLR 


R5 


2$: 


MOV 


R5, -CSP) 




MOV 


#126. -CSP) 




JSR 


PC.BLMUL 




MOV 


R0.R1 




CMP 


(SP)*.(SP)» 




MOV 


CSTCRD.RDRX.ADDR 




BEQ 


10$ 




BITB 


#1,ADDR.VECT,0K 




BEQ 


9$ 




MOV 


R5, -CSP) 




MOV 


#22, -CSP) 




JSR 


PC.Bl.5MUi. 




CMP 


CSP)»,(SP)» 




TST 


DCT(RO) 




BPL 


9$ 




MOV 


#23420,R4 


3$: 


MOV 


#1,R3 


4$; 


BEQ 


7$ 




MOV 


L$DLY,R2 




BEQ 


6$ 


5$5 


CLR 


(SP) 




DEC 


R2 




BNE 


5$ 


6$: 


UtC 


R3 




BR 


4$ 


7$: 


TSTB 


DCTCRO) 




BEQ 


8$ 




DEC 


R4 




BNE 


3$ 


8$: 


MOV 


# l.RO 




MOV 


RO.tfRDRX, ADDR 


95: 


MOV 


CST»2(R1).RC 




BIC 


#177000>R0 




TRAP 


36 


10$: 


INC 


RS 




.WORD 


CI VICIC 




BL> 


2J 




TST 


(.^P)* 




RTS 


PC 



SEQ 0151 
VAX11 Bliss-16 V4. 0-579 Page 151 

DISK$USER2:[P0WERS]ZRQAD0.BL1;6 (42; 

! 5477 



5485 
5491 

5494 
5498 
5500 



CTLR 

CTLR,* 



; CTLR,* 



», COUNT 

♦,$$TMP2 

*,$$TMP1 

S$ TMP 

$JTMP1 

$STMP2 



j COUNT 

5 *.HC.RLli 
: RCREG,* 



i CTLR 



5504 
5508 



5511 

5513 



5515 
S517 

5511 

5521 
S524 

S498 
54"»7 



Routine 5; fc -e: 67 words, Routing Base: J CODE* ► 
Maximum stack depth per invocation: 10 words 



4042 



ZRQAIV 
V01»6 



RD/RX EXERCISER 

CLEANUP CODING SECTION 



J 1.2 



11 
11 



Apr -1984 
Apr -1984 



11:56:01 VAX-11 Bliss 16 V4. 0-579 

11 : 45 : 02 DISK 5USER2 s [ POWERS 1ZRQAD0 . BL 1 j 6 



SEQ 0152 
Page 152 

(421 



000000 004 73? 004042' 



000004 
00000b 



104412 
00020V 



.SBTTL L. MCLEAN CLEANUP CODING SECTION 
LSCLEAN: : 

JSR PC.LCLEAN 

TRAP 12 

RTS PC 



5525 



; Routine S i .re : 4 words, Routine Base: $CODE$ * 4250 
j Maximum stock depth per invocation-. 2 words 



ZRQAN2 
VOl, 6 



5528 
5529 
5530 
5531 

5532 
5533 
5534 
5535 
553b 
5537 
5538 
5539 
5540 
554 1 
5542 
5543 
5544 
5545 
5546 
554 7 
5548 
5549 
5550 
5551 
5552 
5553 
5554 
5555 
5556 
5557 
555H 
5559 
5560 
5561 
5562 
5563 
5564 
5565 
5566 
556 / 
5568 
5569 
5570 
5571 
55 /2 
55/3 
55/4 
55/5 



'6 



55 /H 
55/'* 
5580 



2 



RO/RX EXERCISER 
DROP UNIT SECTION 

Hsbttl 'DROP UNIT SECTION' 



<12 



ll~Apr-l964 11:56:01 
11 -Apr -1984 11:45:02 



VAX-11 Bliss 16 V4. 0-579 

DISK $USER2 : [ POWERS URQADO . BL 1 j 6 



SEQ 0155 
Page 153 
(43) 



THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO NO LONGER BE TESTED, 



BGNDU; 

local 

UNIT : word, 

PRINT : byte initial (byte (FALSE)): 

label 

SEARCH; 

begin 

register 

INPUT - 0: 

UNIT * .INPUT: 
cr\6\ 

if BIT. .1ST (SUP. FLAGS, SWF TRC) 
then 

PRINTF (DBM5, .UNIT); 

SEARCH : 
begin 

incr CTLR from to (MAX.CTLR • 1) do 

incr OFFSET from (0 ♦ OF. .UN) to ( ( UNI TS PER CNTR 1) ♦ UNIT 51/fc * OF UN) by UNIT.Sl/t do 

if (.CST [.CTLR. .OFFSET * OF. DATA, D UN It J eql ,UNII' and 

C.CST [.CTLR, .OFFSET * OF_DATA, D.PRES) eql PRESENT) 
then 

begin 

if C.CST [.CUR, .OFFSET » OF. OAT A, D STPT] eql ONLINE) or 
C.DUR [.UNIT] eql DU.ONL INE ) or 
(.OUR (.UNIT] eql DU PROTECT) 

then 

beg I n 

PRINT - TRUE: 

if C.CST [.CTLR. U.CNT] gtru (n and 

(.CST l.CrtR, .OFFSfT * Of DATA, STAT] eql ONLINE) 
then 

CST [.CUR, U CNT] - .CST l.CTlR, U.CNT] lj 

'^ (.CST I. CTLR. U.CNT] eql 0) and 



! UNIT NWMRFR 
! NO PRINTING 



! RO -■ UNIT NO. 

J lit I UNIT NUMBER 
! UNDECLARE RO 



! SEARCH BLOCK 

! FUR EACH CNTR 

I l-OR EACH UN! 1 

! ]>' UNIT MATCHES 

' IF UNIT ALIVE 

! O.K. TO PRINT 

! DECREMENT COUNT 



/ROAM? 
V01. 6 



5581 
558? 

5585 
5584 
5585 
5586 
556/ 
5583 
5589 
1)590 
5591 
559? 
5591? 
5594 
5595 
5596 
5597 
5598 
5599 
5600 
5601 
560? 
5603 
5604 



5 
5 
5 

5 
4 
4 
4 
3 
3 
? 



RD/RX EXERCISER 
DROP UNIT SECTION 



LI? 

ll-Apr-1984 11:56:01 
U-Apr-1984 11:45:02 



C.CST f.CTLR, .OFFSET » OF..DATA, D„STAT] eql ONLINE) 
then 

EOP FLAG * TRUE: 

CST l.CTLR, .OFFSET ♦ OF..DATA, D.STAT] - OFFLINE} 
end; 

leave SEARCH; 
end; 

end; 

If .PRINT or 

C.DUR [.UNIT] eql DU CONK) or 
(.DUR [.UNIT] eql DU INIT) or 
C.DUR [.UNIT] eql DU^ONLINE) or 
(.DUR [.UNIT] eql DU .PROTECT) 
then 

begin 

PRINTF (DU MSG, .UNIT); 

PRI.NTF C.DU.RSN [.DUR [.UNIT]])| 

end; 

ENDDU; 



SEQ 0154 
VAX-11 Bliss 16 V4. 0-579 Page 154 

DISK$USER2:[POWERS]ZRQAD0.BLli6 (43) 



J ALL UNITS OFFLINE 

• MARK UNIT OFFLINE 

! IF UNIT ALIVE 

! EXIT SEARCH BLOCK 

J IF UNIT FOUND 



! IF OK TO PRINT 



! "UNIT XX DROPPED" 
! REASON 



000000 
000004 
000006 
000010 
00001? 
0000?0 
0000?? 
000024 
000030 
000034 
000036 
000040 
000044 
000046 
000050 
000054 
000060 
000064 
0000/0 
0000/? 
0000/6 
000100 
000104 
000106 
000110 
000X12 



00413/ 
005746 
105046 
010001 
032737 
001411 
010146 
01? 746 
012746 
010600 
104417 
062/06 
005005 
010546 
012/46 
004/57 
010066 
012703 
010300 
066600 
006300 
012/02 
060002 
010104 
011200 
000300 



OOOOOOG 



000001 OOOOOOG 



LOU 



OOOOOOG 
000002 



000006 

000053 

OOOOOOG 

000006 

000003 

000006 

OOOOOOG 



1$ 
2* 



34: 



. SB1TL 


L.DU DROP UNIT SECTION 


J5R 


R1.9SAVF.5 


1ST 


-(SP) 


CLRB 


- ( SP ) 


MOV 


R0.R1 


BIT 


Ol.SWP.FI AGS 


BEQ 


1$ 


MOV 


Rl, (SP) 


MOV 


4DBM5, (SP) 


MOV 


02. (SP) 


MOV 


SP.HO 


TRAP 


17 


ADD 


06 , SP 


CLR 


R5 


MOV 


R5. (SP) 


MOV 


053, (SP) 


JSR 


PC,BL*MUL 


MOV 


R0,6(SP) 


MOV 


VM , R S 


MOV 


R3.R0 


ADD 


t>(SP),RO 


ASL 


RO 


MOV 


0C5T ,R? 


ADD 


RO.H? 


MOV 


R1.R4 


MUV 


(R?),RO 


SWAB 


RO 



i PRINT 

; INPUT .UNIT 



; UNIT.* 



5527 



554^ 
5552 

5554 



: SP.* 



s CTLR 
j CTLR,* 



j ♦.OMMT 
; OFFSET,* 



i UNIT,* 



* 563 



*'■** 



5563 



Ml. 2 



7RQAM2 
VOL 6 

000114 
000 120 
000122 

000124 
000130 
000132 
000134 
000140 
000142 
000144 
000146 
000154 
000156 
000164 
000166 
0001/4 
000176 
000202 
000206 
000210 
000214 
000220 
000222 
000224 
000230 
000232 
000236 
000240 
000246 
000252 
000254 
000256 
000262 
000266 
0002/0 
000272 
0002 /4 

0002/6 

000300 
000304 
000306 
000314 
000316 
000324 
000326 
000334 
000336 
000344 
000346 
000 350 
000354 
000360 



042700 
020004 
001055 
032/12 
001452 
005004 
032712 
001402 
005204 
000410 
12612/ 
001404 
126127 
001032 
112766 
010516 
012746 
004 73 7 
005726 
062700 
105760 
001404 
006004 
105660 
001006 
032 712 
001403 
11273/ 
042712 
022626 
0004U 
062 703 
02032/ 
003/00 
022626 
005205 
000243 

0036M 
032/16 

001020 
126127 
001414 
12612/ 
001410 
126127 
001404 
12612/ 
001024 
010146 
012/46 
012/46 
010600 



RD/RX EXERCISER 
DROP UNIT SECTION 

177760 



040000 
020000 

OOOOOOG 000007 
OOOOOOG 000011 
000001 000004 

000126 

OOOOOOG 

000004G 

000001 

000001 

020000 

000001 OOOOOOG 
020000 



000012 
000041 



4$: 



5$: 



6$: 



7$: 
8$: 

9$: 



000001 

OOOOOOG 000001 
OOOOOOG 000002 
OOOOOOG 00000/ 
OOOOOOG OOOOU 



OOOOOOG 
000002 



10$ 



11 -Apr- 1984 11:56:01 
ll-Apr-1984 11:45:02 



11$ 



BIC 


4177760, RO 


CMP 


RO t R4 


BNE 


9$ 


BIT 


440000, (R2) 


BEU 


9$ 


CLR 


R4 


RTT 


420000, (R2) 


BEQ 


4$ 


INC 


R4 


BR 


5$ 


CMPB 


DUR(R1),47 


beu 


5$ 


CMPB 


DUR(Rl),ni 


BNF 


8$ 


MOVB 


41.4CSP) 


MOV 


R5.C5P) 


MOV 


4126, (SP) 


JSR 


PC,BL$HUl. 


TST 


(sp)* 


ADD 


*CST#4,R0 


TSTB 


URO) 


BEU 


6$ 


ROR 


R4 


SBCB 


KHO) 


BNE 


7$ 


BIT 


420000, (R2) 


BEQ 


/$ 


MOVB 


41.E0P.Fl AG 


BIC 


420000 . C R2 ) 


CMP 


CSP)*,<SP)» 


BR 


10$ 


ADD 


412.H3 


CMP 


R3.441 


BLE 


3$ 


CMP 


( SP ) ♦ , ( SP ) ♦ 


INC 


R5 


.WORD 


CLV'CLC 


BLE 


2$ 


BIT 


41. CSP) 


BNE 


11$ 


CMPB 


IHJRCRi ),41 


BEQ 


11$ 


CMPB 


nURC'Rl. i ,«2 


BEU 


11$ 


CMPB 


0URCR1 \4/ 


BEU 


11$ 


CMPB 


DURUU ),ni 


BNF 


12$ 


MOV 


Ri, -r.iPi 


MOV 


40U.MSG, ISP) 


MOV 


4.\ (SP) 


MOV 


SP.RO 



SEQ 0155 
VAX 11 Bliss 16 V4. 0-5/9 Page 155 

DISK$USER2:[P0WHRS]/RQAD0 t BLl;6 (43) 



5564 

5568 



; +CUNIT),* 

j +CUNIT),* 

; ♦.PRINT 
5 CTLR.+ 



; ♦ . Of ■* St I 
i OFFSET , * 



; CT1.R 

♦ .PRINT 
♦ (UNIT ),♦ 
+ 1 UN IT ) . + 
KUNIT).* 
*U'Nll 'I,* 
UNIT , * 

J SP,* 



5569 



t rr 


■'0 


55 
55 


.'3 
75 



55 /*< 
55 /H 
5580 
l -58l 



'I'M 



5583 
5585 
55ht. 



5561 

5559 

S5'M 
55' U 
55*>5 
55*)*, 
55*1 .' 

SoOO 



/RQAM2 
VOL 6 

000362 

000364 
000570 
000574 
0003/6 
000402 
000406 
000410 
00041? 
000416 
000420 



1044 17 
11.6101 
042701 
006301 
016116 
lr» 74 6 
010600 
104417 
06? 706 
022626 
000207 



RD/RX t-.XtrtCISLR 
DROP UNIT SECTION 



000000b 
177400 



OOOOOOG 
000001 



000010 



12$: 



N12 



11 Apr 1984 11:56:01 
ll-Apr-1904 11:45:02 



VAX -11 HI i sb -16 V4.0 - r i7<) Paae^lS^ 

DISK*USER2:[P0WhRSl/RQAD0.BLl|6 (43) 



TRAP 


17 


MOVB 


DURCRD.Rl 


tux 


tH 77400, Rl 


ASl. 


Ri 


MOV 


DU.RSNCRD.lSP) 


MOV 


01. CSP) 


MOV 


SP.RO 


TRAP 


17 


ADD 


#10, SP 


CMP 


(SP)»,(SP)» 


RTS 


PC 



[ *(UNIT).* 



i SP,* 



S601 



M'i27 



: Routine Sire: 137 words, Routine Base: $CODE$ ♦ 4260 
: Maximum stock depth per invocation: 14 words 



000000 
000004 
000006 



004 ry? 

1044S3 
000207 



004260 



Rout i ne Si re : 4 words , 
Maximum stack depth per 



L$DU:: 



Rout Ine Hose: 
invocation: 2 words 



.SBTTL 


L$0U DROP 


JSP 


PC.LDU 


TRAP 


!i3 


RTS 


PC 



UNIT SECTION 



5602 



$ CODES ♦ 4 702 



'ROAM/ 
01 % h 



v.o; 

'■M I 

»»M < 
St«l4 

'.elf. 
■»f-i ' 

S?»;^ 

''f'.'o 
'»»•.' 1 

SfnV 
S«V* 

St.**'. 

StV * 

S#. V 

Sr..V 

V»ti 5 X 



MO ^ t «tRClMH 
AOP <MIT SfCTION 

***bttl 'ADD L»N1T SECTION 



11 Apr I<*fl4 Ui'-fijO' 
11 Apr ViHA 11 !4S|O t > 



smj op./ 

VAX 11 HLi-i-i 1'. V4.0 !*/'* Par* i*,/ 

niSKfiJHtt^:(Pawt.R?j)/RUADO.BLl|ft f44j 



It* ADD UNIT SI CI ION CONTAIN', ANi CUD! TM1 PHlX.RAMMlH WISH*', 
TO Ht fcXfCUHD IN CONJUNCTION WITH THl ADDINU OF A UNIT HACK 
TO THt TtST ClCl.l. 



m-NAUi 

local 

SUNOx : *ord, 
INOIOx : MO rdi 

regl *t»r 

l *fM I T - Oj 

:f HI r f si (SWP .» I tti;s. "W* CST ) 

then 

b«a'n 

STINOX • . L*4l T . TAIL t I t.Ni 

I NOIDX • .STINOX . TAl I i I E N 1 i 

incr COl^T fro* .bTINO* to .tNOIDX do 
TAU t t ,r0UNT) * Oj 



end 
I NO Au i 



» UNIT NVJMtHM APPf APS IN HO UPUN hNTMi 



» V C\ \ AW STAT, TAHl tS TRW 

• /IRQ Out 

• Aotn o 

• tiNM -i 

» STATISTICS 



»H>Oi>00 
O 00004 
OOOO10 
0001*1,' 
i >OGO 1 4 
uoOO '0 
v '000/4 
UOOO/fc 
* '000 V 
t'OOO.U 
m 000 5b 
000040 
UOU04,' 
O00044 
uOOoS. 

oooos, ' 

OOO0S4 
0000* »*. 
0*X)»w.O 



004 1 * ; 
10VM/ 
1000/< 
01004f> 

0l/.'4fc 

o<>4 : x : 

01 000*' 
0*>//0/ 

oioooi 

005 SO 1 
00O404 
1 1 00 
00*, SOO 

OOSOf.O 
OOS/Ol 
0/010,' 

<>.')«, ■ /■ I 



000000<» 

ockxxxx, 



0000 5 5 
OOOOOOii 

0000 V 



I AU 



OOOOOOU 



II: 



/»: 



SI: 



. SttT n. 


t AU ADD »tJlT St CT ION 


JSM 


RI.ISAV* ,.' 


TSTH 


SWIM I At,', 


HPl 


Si 


hov 


WO. 1 SIM 


MOV 


«M, ( sP 


JSW 


PC. Ml IMi.ll 


MOV 


RO.H/ 


ADD 


OV'.W/ 


M()V 


Mo.Ml 


DFC 


HI 


BR 


.'1 


MOV 


Ml ,M0 


ASi 


Ur 


Cl » 


■ At i HH0 1 


I NC 


MI 


rut 1 


Ml ,M/ 


Hi t 


It 


C^H' 


V '.(' ). ,l^l» 


HT, 


»>C 



'N I T , * 



; sr INt)* .1 NOlDx 

i ♦.INOIOX 

I sTlNPx,CO"NT 

j COi^T 

j CiH'NT,* 



) CO«'N? 



'■•-.'M 



, M 



'T' . 






WO'jt : ^« «,;«;e 



t'U WO^d*i» 



Routine Httiutt icouti * a:u 



V01 .r* 



HO W\ I Xf PC 1st P 



; M^v ; mutn stacW depth per J rivoc.it » on t h words 



I 1 Apr WM4 

II Apr-l r JH4 






vax n hi ;♦>•. 



1*. VI .(J *»/'* 
PUWtHSl/RQADO.OLij^ 



C44 ; 



OOiMOO 

000004 



004 • 5 * 

1044V 



004 /1*V 



11 All; 



. soth 
ihap 



Ko.it "ne s : .-e; 4 words, Routine tlase: JCUQL* 

Ma\imum ♦itacw. depth per invocation; 0. word>J 



I I All AUIl UNIT U.C T ION 
PC, I AU 

PC 

♦ 4 7/4 



be»5i 



[) 



/ 






f ■» 



So.'.S 
So.M. 
So '. •' 

SO.Xtf 

So*' 
So 40 

soa 1 

So4^ 
So 4 * 
So 4 4 

So4'* 
S'-4o 
So 4 ' 



HD''HX FXFRCISFR 

NON I XIS1LNT * MF.MORl TRAP HANOI t H 

*sbttl 'NON LXISTINT MEMORY TRAP HANOI FR 



11 Apr -1984 11: So 2 01 
11 Apr 1984 il{45{0^ 



VAX 11 HI \h» lo V4.0 S/9 

DISK $USE.R^:[ POWERS 17RUAD0.BI 1(6 



btU 01S9 
Page ISM 

C4S; 



THIS TRAP HANDLER IS VECTORf-D FROM LOCATION 4 TOR ALL UNIBUS UMH/Ul 
FRRORS, INDICATING THAT AN ATTEMPT WAS MAUI TU REFERENCE A NON I xiSll NT 
MF.MORl LOCATION. IT 11 MAIN PURPOSE IS TO St T A Ft.Af; FOR THF RDRa 
REGISTER FXISTfcNCE TEST, INDICATING TMt ABSENCE. OF A DEVICE RtlilSTF.R. 



Hi'.NSRV (.NFX TRAP)} 
Nt * ■■ TRUE t 
ENDSRVj 



OOOOOO 01.' ",W 00000 1 OOOOOOG 
000006 ooooo/? 



! NLX TRAP OCCURRED 



. SHTTl. NEX.TRAP NUN EXISTENT MEMORf TRAP HANOI fc R 
NFX. TRAP: : 

MOV 01, NFX . 



5 Rout'ne S'.-e: 4 words. Routine Base: 
; Maximum stack depth per Invocation; words 



RTI 
JCODE* ♦ 5004 



So4S 
504 5 



/RUA'V 



5b4W 
5b4^» 

5b50 
5b 51 

5b52 
5b 5 3 
5b 54 

5655 
565b 

w* : 
5b5« 

5bb0 
5bbl 
5bb2 
5663 
5bb4 
566 5 
566b 
56b •' 
5668 
566^ 
56 70 

5b :i 

56 7? 
56/3 
56/4 
5o /5 

5676 



RD'RX EXERCISER 
TIME UJ' DAI 



11 Apr-19fl4 11:56:01 
11 -Apr -19*54 11:45:05 



vax -n bi ;»r, ib v4,o r>/'i 

DISK*USER?{[ POWERS IZRQADO.BLljb 



Page 160 
Mb; 



**bttl 'TIME OF DAi ' 

» ♦ 

! THIS INTERRUPT SERVICE ROUTINE KEEPS TRACK Of THE TIME-OF-DAr 



tUiNSRV ( TIME); 

Cl.K.. TICKS ' .Cl.K .TICKS ♦ lj 

if .CL.K TICKS gequ 3600 
then 

begin 

MINUTES - .MINUTES ♦ I; 

CLK.. TICKS - 0, 

! f .MINUTES gequ 60 
then 

begin 

HOURS - .HOURS • It 

MINUTES - 0{ 

end; 

i f .HOURS gequ 24 

then 

HOLERS = Oj 

ENOSRV; 



! INCREMENT CLOCK TICKS 



! UPDATE MINUTE COUNT 



I UPDATE HOUR COUNT 



! RATIONALIZE HOURS 



000000 
000004 
00001? 
000014 
00002C 
000024 
00003? 
000034 
000040 
000044 
000052 
000054 
000060 



005? 3/ 
023 727 
103404 
105237 
005037 
123727 
103404 
105237 
105037 
123 721 
103402 
1050 3 7 
OOOOO? 



OOOOOOG 
OOOOOOG 007020 

OOOOOOG 
OOOOOOG 
OOOOOOG 0000 74 

OOOOOOG 

OOOOOOG 
OOOOOOG 000030 

OOOOOOG 



TIME- 



IS; 



2$; 
3$: 



.SBTTL 

TNC 

CMP 

BlO 

INCB 

CLR 

CMPO 

DIO 

INCB 

Cl rb 

CMPB 
Rl.O 

Cl MB 
RTI 



Routine Si.-e: .'5 words, Routine Base : $CODE* 
Maximum stack depth per invocation: words 



TIME I I ME OK DA" 

CLK. TICKS 

CLK. TICKS, 7020 

II 

MINUTES 
CLK. TICKS 

MINUTES, 0/4 

2$ 

HOURS 

MINUH 

HOUR 1 

M 

HOUR' 



5014 



/MO 



V<5*> 
'.*58 

5br,l 

Sb"5 

•l»,f, ^ 
56 V 



5b54 



V 



/RdAM? 
VCi.6 



56 .'8 
56 *o 

5680 
5681 
5682 
5685 

5685 

5b 86 
568.' 
5o88 
5t,8> 
5690 
5^9 1 
569? 
564? 
5t>94 
5695 
56^6 
569? 
5698 
5699 
5700 



RD/RX EXERCISER 
GLOBAL ROUT [NFS 

*sbttl 'GLOBAL ROUTINES' 

global routine SET.CPAR (CTLR) : novalue - 



11 Apr- 1984 
ll-Apr-1984 



11:56:01 
11:45:02 



VAX -11 HI! oh 1'. V4.Q 5/9 

DISK *U5ER2 : ( POWERS J/RQAUO . BL 1 ; 6 



SEU 016] 
Page 161 



THIS ROUTINE SL. r S UP THE COMMONL 
FOR THF GIVEN CONTROLLER NUMBER. 



Y-USED CONTROLLER -RELATED DATA ITEMS 



INPUTS 



CTLR CONTROLLER NUMBER 



IMPLICIT OUTPUTS: 

CCTLR - CURRENT CONTROLLER NUMBER 
CST..ADDR - ADDRESS OF CONTROLLER'S 
DCT_ADDR - ADDRESS OF CONTROLLER'S 
RDRX.ADDR - ADDRESS OF CONTROLLER" 



STATUS 

DRIVER 



TABLE 
TABLE 



IP REGISTER 



beg! n 

CCTLR - .CTLR; 

CST_AOOR * CST » (.CTLR ♦ CSf -EN 

DCT .ADDR * OCT CCTLR ♦ OCT LEN 

RDRX..ADDR * .CST^ADDR [IP^ADDRlj 

end; 



2); 



! SET CURRENT CONTROLLER NUMBER 

! CALCULATE ADDRESS OF CONTROLLER'S 

! CALCULATE ADDRESS OF CONTROILERS 

} GET CONTROLLER'S DEVICE ADDRESS 



DCT 



000000 OKU 4 6 



000002 
000006 
00001? 

000014 
0000?0 
000024 
0000 50 
000054 
000036 

00004;? 

000046 
00005? 
000056 
000064 
000070 
0000 7? 



016601 
0101.57 
010146 
01?746 
004757 
06? 700 
01005? 
010116 
012/46 
004 73/ 
06? 700 
010037 
017737 
06? 706 
012601 
00020 7 



000004 
OOOOOOG 

000126 

OOOOOOG 
OOOOOOG 
OOOOOOG 

000022 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

000006 



SET.CPAR; : 

MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
ADD 
MOV 
MOV 
MOV 
JSR 
ADD 
MOV 
MOV 
ADO 
MOV 
RTS 



BTTL SET.CPAR GLOBAL ROUTINES 



Rl. (SP) 

4(SP).R1 

Rl, CCTLR 

Rl, (SP) 

0126, (SP) 

PC.BLIMUL 

OCST.RO 

RO, CST. ADDR 

R 1 , ( SP ) 

«?? , - 1 SP ) 

PC.BLIMUL 

0OCT.RO 

RO, OCT, ADDR 

WCST . ADDR, RDRX, ADDR 

i>h , SP 

iSP^.Rl 
Pf 



; CTLR,* 



5697 



5»>98 



\*^i i 



St>"9 



Rout ' ne S ■ /e: 
Maximum stack 



50 words, Routine Base: 
depth per invocation: 5 wordc 



*CO0t* * 5076 



/R0AM2 
VOL 6 



S.'Ol 1 

S \V 1 

5703 1 

5 704 1 

5 :os 1 

5 *0o 1 

r > ;o : l 

5 :od l 

5 *o^ 1 

5'10 I 

5711 1 

s;t^ i 

p*i* i 

5;i4 i 

5 • i r -. i 

571^ 1 

571/ l 

5''ltf I 

571Q 2 

5721 2 

5/22 ;■? 

5/23 2 

5754 1 



000000 010146 



000002 
000010 
000014 
000016 
00002c? 
0000?6 
000034 
000056 
000040 
000044 
000050 
000052 
000056 
000063 
000066 
0000/2 
0000/4 
0000 ?f> 



016637 
016600 
0063C0 
063 700 
111.03 7 

042 737 

011001 
000301 
042701 
01013/ 
010146 
012746 
004737 
062 /OO 
010037 

022626 

012601 
00020 7 



G 1 3 



RO/Rx exerciser 

Gl OBAl. ROUTINES 

global routine SE T UPAR (OFFSET) : novolue * 



11 Apr- 1984 11:56:01 
ll-Apr-1984 11:45:02 



VAX-11 OUss-16 V4.0 579 

DISK SUSER2 : [ POWERS 1ZRQAD0 . BL 1 ; 6 



StO 0162 
Page 162 
(48) 



THIS ROUTINE SETS UP THE COMMONLY -USED UNIT -RELATED DATA ITEMS FOR 
THE CURRENT CONTROLLER AND GIVEN CST OFFSET. 



INPUTS: 



OFFSET 



WORD OFFSET INTO CURRENT 
DESCRIBES A UNIT 



CONTROLLER'S CST WHICH 



IMPLICIT INPUTS: 
CST ADDR 



ADDRESS OF CURRENT CONTROLLER'S CST 



IMPLICIT OUTPUTS: 

CUOFF - CURRENT UNIT'S CST OFFSET 

CDISK - CURRENT DISK ADDRESS (RO/RX DISK NUMBER) 

LSLUN - CURRENT UNIT NUMBER 



T..ADDR - ADDRESS OF CURRENT 



(DRS UNIT NUMBER) 
UNIT'S STATISTICS 



BLOCK ( TALL if ) 



begin 
CUOFF 
CDISK 
L U.UN 
7 .ADDR 



.OFFSET; 

.CST. ADDR [.OFFSET ♦ 0F_DATA. D DISK NUM]j 

.CST ADDR [.OFFSET ♦ OF DATA, D UNIT]} 

TALLY > C.LJLUN ♦ TALLi LEN * 2); 



.SBTTL SET.UPAR GLOBAL ROUTINES 



000004 OOOOOOG 
000004 

OOOOOOG 
OOOOOOG 
177760 OOOOOOG 



17/ 760 
OOOOOOG 

000066 
OOOOOOG 
OOOOOOG 
OOOOOOG 



SET.UPAR: : 




MOV 


Rl, -(SP"> 


MOV 


4(SP), CUOFF 


MOV 


4(SP).R0 


ASL 


RO 


ADD 


CST.AUDR,RO 


MOVB 


(RC), CDISK 


BIC 


Ol/if 760, CDISK 


MOV 


(R0),R1 


SWAB 


Rl 


BIC 


01/ '7hO,Rl 


MOV 


Rl ,1 it »'N 


MOV 


Rl. (SP) 


MOV 


066, CSP) 


JSR 


PC, HI. $ mui 


ADD 


#TAl t ! .HO 


MOV 


RO. r . ADDR 


CMP 


< '->M. ,( ,P)» 


MOV 


i. ^P).,R1 


HT'i 


PC 



()» > '-FT . * 
CUOFF , ♦ 



■. L U.UN,* 



5-^1 
5 \.0 
5VH 



5 'c^?. 



'23 



5"0l 



Routine 'w.-e: V words, Routine Base: 
M»v. idhjm stock depth per invocation: 4 words 



$C0DE* » 51/,' 



■II 



/ 



/RiWV 




VOL 6 




; 5 7,^S 


1 


j 5 \?6 


1 


; 5V7 


1 


; S -V8 


1 


; 5 ??9 


1 


; 5 T 3o 


1 


; 5/31 


1 


; 5/ 3.-' 


1 


: 5 733 


1 


; 5734 


1 


; 5 735 


1 


; 5736 


1 


; 5 73' 


1 


j 5738 




; 5 739 


i. 


; 5 740 




5 741 


<? 


; 5 74.? 




; 5 74 3 


c. 


; 5744 


t-. 


; 5745 


? 


; 5 746 


1 


; 5 74 7 


( - 


; 5 748 


c 


; 5749 


2 


; 5 750 


3 


; 5/51 


3 


; 5 75? 


?i 


; 5753 


3 


; 5754 


3 


j 5 755 


? 


; 5 756 


4 


i 5757 


4 


; 5 758 


4 


; 5 759 


4 


; 5 760 


4 


: 5 761 


4 


; 5 76;' 


5 


; 576? 


5 


; 5764 


4 


; 5 765 


5 


; 5 766 


5 


; 5 76 7 


5 


5 768 


r 
.j 


; 5769 


4 


; 5 7 70 


4 


; 5 771 


4 


i 5 7 7J? 


4 


; 5 7 7 *. 


4 


t 5 7 74 


4 


; 5 -'"?5 


r 

J 


5 5 7 76 


5 


; 5777 





RO'RX EXERCISER 

GLOBAL ROUTINES 



global routine GET.PKT (CTLR) => 



11 -Apr 1984 11:56:01 
ll-Apr-19«4 11:45:02 



VAX U Hllr,-) 16 V4.0 579 
DISK$USER^:( POWERS J/RQADO.BL 1 ;6 



SEU 0165 



Page 163 
(49) 



THIS ROUTINE St ARCHES THt MSCP PACKET POOL ALLOCATION TABLE CPKT USE O 
FOR A FREE MSCP PACKET TO ALLOCATE TO THE GIVEN CONTROLLER. IF ONE 15 
FOUND. THE PACKET IS ZEROED OUT, AND THE PACKET INDEX IS RETURNED 
TO THE CALLER. OTHERWISE, A -1 IS RETURNED INDICATING NONE AVAILABLE. 



INPUTS; 



CTLR - CONTROLLER NUMBER REQUESTING ALLOCATION 



begin 



local 

index ; signed word initial (-1), 
RING^ADDR : word, 
PACKET OWNED : byte, 
NEXT PACKET : bytei 



NEXT., PACKET * . NFXT^PKT JJSE ; 

incr COUNT from to (PKT„CNT - 1 ) do 
begin 

PACKET. .OWNED •* FALSE { 



I NEXT PACKET TO TRr 

! FOR EACH ENTRY IN ALLOCATION TABLE 

! IF ENTRY INDICATES FRht PACKET 



if .PKTJJSE [.NEXT ^PACKET] lss 

then 

beg i n 

RING .ADDR - .DCT.ADDR tRR.BEGh ! FIRST RESPONSE PACKET'S ADDRESS 

incr I from 1 to (RRING„uEN ♦ CRING.LEN) do J FOR EACH PACKET ADDRESS 



If ( . .RING. .ADDR eqla .MSCP PKT t'.NEXl PACKET, PKT LOl) and 
CC( .RING.ADDR ♦ 2) ond ED, OWN) eql tD_OWN) 



then 



begin 

PACKET OWNED « TRUE; 
exi tloop; 
end 
else 

RING ADDR - .RING, ADDR ► 4j 

i f not .PACKET. OWNED 

then 

beg! n 

PKT U5t t .NEXT .PACKLI J - .CTLRj 

indev - .NEXT. PACKET; 



• CHECK ADDRESS AND OWNERSHIP 

• PACKET OWNED BY CONTROLLER 



! ADDRt S5 Oh NEXT PACKET IN RING 
! IF NOT ALREADt USED 

» ALLOCATE PACKET TO CONTROLLER 



/ 

- ; 



JRQAIV 
V01, 6 



RD/RX EXERCISER 
GLOBAL ROUTINES 



11 -Apr- 1984 11:56:01 
ll-Apr-1984 11 j45:0a 



SF.Q 0164 
VAX - 1 1 B 1 1 ss ■ 16 V4 . ■ 5 79 p OQ e 164 

DISK JUSER2 : [ POWERS )ZRQADO . BL1 }6 C 49) 



5 / 78 5 
5 ' *9 5 

5780 5 

5781 5 
578.? 
5 .'85 
5784 
5 785 
573^ 
5787 
5 788 
5789 
S7O0 
5791 
5 792 
5795 
5794 
5/95 
5796 
579/ 
5798 
5799 
5800 
5801 
580.? 
5803 
5804 
5605 
5806 
5807 
5808 
5B0« 
5810 
5811 
5812 
5815 
5814 



000004 
000010 
000014 

oooo?;> 

000050 
00005? 
000054 
000040 
000044 
000046 



162/06 
012/04 
113/66 
012766 
105016 
005001 
156601 
105/61 
0020/2 
013/00 
016005 



incr J from 2 to (PKT. I. EN - n do ! ZERO OUT PACKET 
HSCP PKT f .NEXT .PACKET, .J, 0, 16, 0] * 0} 



es It loop} 

end} 

ends 

NEXT. PACKET * .NEXT .PACKET ♦ 1; 

if .NEXT .PACKET g<jqu PKT_CNT 

then 

NEXT_PACKET » 0; 

if ( . inde\ geq 0) and 

( .PKT. USE [, index] geq 0) 
then 

beain 

MSCP..PKT [.index, MSGLEN] - S2 GEN} 
MSCP_PKT [.index, CREDITS) * lj 
NEXT _PKT. USE * .NEXT PACKET , 1; 

if. NEXT PKT USE gequ PKT CNT 
then 

NEXT_PKT_USE - 0} 

end} 

return . index } 

end; 



! DONE 



! TRY NEXT PACKET IN RING 



! IF BEYOND ALL PACKETS. START AT THE TOP 



! IF PACKET FOUND 



• PACKET SIZE • ONI t ONI TNE AND SCC CHANGE IT 

! CREDIT Sl/t 

» NEXT PACKET TO ALLOCATE 



! CtCLE BACK TQ B( CUNNING IF AT END 



000000 004157 OOOOOOG 



000006 
177/77 

OOOOOOG 000004 
000014 00000.2 



000004 
OOOOOOG 



.SBTTL GET. PKT GLOBAL ROUTINES 



MSP) 



OOOOOOG 
000004 



GET 


PKT: : 






JSR 


Hi, $ SAVE 5 




SOB 


t>i> , SP 




MOV 


#-l.R4 




MOVB 


Nt- XT. PKT, USE 




MOV 


.'>14 lf ?(SP) 


1*: 


CLRB 


C SP ) 




CL.H 


Rl 




HI SB 


4 ( SP ) , R 1 




TSTB 


PKT.USt (HI ) 




Hut 


/$ 




MOV 


DC T ,ADDR,RO 




MOV 


4(R0),R5 



i ♦ , INOI X 

} *,Nt X! .PACKET 

*, COUNT 

PACKET .OWNED 

Nr XT, PACKET, * 



i +,R1NG.ADDR 



> V^ 



4 ' 
4'-* 

5 1 

l v< 



5 5 < 



J'l 



s 



ZRQAM2 
V01 ,6 

000056 
0000*0 

000064 
000070 
000074 
000100 
000102 
000106 
000110 
000114 
000 IPO 

000122 

000130 
000132 
000136 
000140 
000142 
000150 
000152 
000160 
000162 
000164 
000170 
000174 
000176 
000202 
000204 
00020o 
000210 
000214 
000216 
000222 
0C0224 
000226 
000230 
000232 
000236 
000244 
000246 
000252 
000256 
000260 
000262 
00.264 
000270 
0002 /2 
0002/4 
000300 
000304 
000312 
000320 
000 3 2 6 
000330 



010146 
012/46 
004 737 
012702 
021560 
001014 
012703 
060503 
042703 
020327 
001004 
112766 
000404 
062705 
005302 
001355 
032766 
001027 
116661 
010104 
010116 
012746 

004 737 

005 726 
012702 
010003 
060203 
006303 
005063 
005202 
020227 
003767 
022626 
000414 
022626 
105266 
126627 
103402 
105066 
005366 
001264 
005704 
002435 
105764 
0024 32 
010446 
012746 
004/3/ 
012760 
142/60 
152 7bO 
005000 
156600 



RO/RX EXERCISER 
GLOBAL ROUTINES 



000106 
OOOOOOG 
000010 
OOOOOOG 

000002 

077777 
100000 

000001 000004 

000004 

000001 000004 
000030 OOOOOOG 

00004 3 
OOOOOOG 

000002 

000000'*i 

000042 



000004 

000004 000014 

000004 
000002 



OOOOOOG 



11 -Apr -1984 11 : 56: 01 
11 Apr-1984 11:45:02 



SEQ 0165 
VAX 11 Bliss 16 V4 .0-579 Po gc 165 

D ISK $ USER2 : [ POWERS "J ZRQADO , BL 1 j 6 ( 49 ) 



2$; 



3$: 
4$: 



5$ 



6$ 

7$ 



8$ 
9$ 



000106 

OOOOOOG 

000040 

00001/ 

000001 

000010 



000006G 
00001 01 i 
000010G 



MOV 


Rl, (SP) 


MOV 


OlOf , (SP) 


JSR 


PC.BMMUl 


MOV 


#10,R2 


CMP 


(R5),MSCP,PKT(R0) 


BNE 


3$ 


MOV 


C2.R3 


AOD 


R5.R3 


BIC 


*77777,R3 


CMP 


R3, #-100000 


BNE 


3$ 


POVB 


n,4(sp) 


BR 


4$ 


ADD 


44, R5 


DEC 


R2 


BNE. 


2* 


BIT 


&1.4CSP) 


BNE 


6$ 


MOVB 


30(SP),PKT,USE(R1) 


MOV 


R1.R4 


MOV 


Rl.CSP) 


MOV 


#43. (SP) 


JSR 


PC.BL $MUL 


TST 


( SP ) * 


MOV 


*2,R2 


MOV 


R0.R3 


ADD 


R2.R3 


A 51 


R3 


CLR 


MSCP.PKTCR3) 


INC 


R2 


CMP 


R2.042 


BLE 


5$ 


CMP 


< SP ) ♦ . ( SP ) ♦ 


BR 


9$ 


CMP 


( SP ) ♦ , ( SP ) * 


INCB 


4(SP) 


CMPB 


4CSP),#14 


Bl.O 


H$ 


Cl.RB 


4(5P) 


DEC 


2CSP) 


BNE 


U 


1ST 


N4 


BL T 


in 


TSTO 


PKT ,USE(R4) 


BL r 


\\% 


MOV 


R4, (SP) 


MOV 


4106, ■■( SP ) 


JSR 


PC. HI $MUL 


MOV 


040,M5CP.PKT.*iRO) 


B1CB 


i>\ /.MSCP.PKf . 10(R0) 


B15H 


41.MSCP.PK1 »10(R0) 


Cl R 


RO 


B1SB 


10iSP),R0 



J *.I 

j RING.ADDR,* 



j RING.ADDR.+ 



+, PACKET. OWNED 

*.RING.ADDR 

I 

♦.PACKET, OWNED 

CTi R,* 
♦.INDEX 



*,J 
J.* 

j 
J» + 



NEXT.PACKE T 
NEXT .PACK* 1 .♦ 

NE- X T . PACKt. V 
COUNT 

INW X 

*i INDEX) 

INDEX,* 



5/61 



5/5'* 
5761 

5/62 



S/f 


* ) 


5/>" 


[ 
1 


5 7 : 





S ;r 


r * 


57 1 




5 / 7 


h, 


t 1 


t 



l NEXT. PACKET,* 



5790 



5/ ■"» 
5 780 



'79 



5,'5#, 
5/88 
5 /9p 

5 W5 
5 M'» 

5 >* " 

5 '■»* 

5H02 



'i-v ^ 



5304 



i< '! 6 



/RQrtM^ 




RO/RX EXERCISER 


VOL 6 




GLOBAL ROUTINES 


000534 


005^00 




000336 


110037 


OOOOOOG 


00034.? 


1«?00^7 


000014 


000346 


10340^ 




000350 


105037 


OOOOOOG 


000354 


0^6,^6 




00035*. 


010400 




000360 


06 t v /06 


000006 


000364 


000207 




; Rout i 


n< 5 I _:e \ 


1^3 words, 


j Masimum stnck 


depth per irwoc 


; 581 


5 1 




5tfl6 1 







INC 


RO 




MOVB 


RO.Nfc XT.PKT. 




CMPB 


R0,^14 




BLO 


10$ 




Cl.RB 


NF XT.PKT. USE 


10$: 


CMP 


(SP).,(SP)» 


11$ t 


MOV 


R4.R0 




ADD 


i>6 , SP 




RTS 


PC 



11 -Apr -1984 11:56 {01 
11 -Apr -1984 11:45:02 



USE 



VAX U Hi i*;s 16 V4.0 b?*) 
DTSK$USER^:[P0WFRSl/RUAD0.BLlj6 



NEXT. PKT. USE,* 



SEQ 0166 
Page 166 
(49) 



>fl06 



INDEX,* 



580H 
SttOl 
fW3tt 

5736 



Routine Base: $COl)L$ * S272 
*tion: 13 words 



1 



3 



.'RiJAM? 
V01. 6 



RD/Rx EXERCISER 

GLOBAL ROUTINES 



11 -Apr -1904 11 j 56:01 
ll-Apr-1984 llj45 ; oa 



VAX -11 Bliss 16 V4. 0-579 ^ * p og e 16/ 

DISK *U5ERL> t { POWERS 1ZRUAD0 . BL 1 ; 6 ( 50 ) 



581/ 
5818 
5»l l » 

58?o 

59 J I 
58?? 
58?5 
58?4 
58?5 
58?' 

58?/ 

58?8 
58?9 

68 50 
5831 
5 S3? 
5833 
5834 
5835 
5856 
583/ 
5858 
5839 
5840 
584 1 
584? 
584 3 
5644 

584 S 
5846 
584/ 
5848 
584') 
5850 
5851 
585? 

585 * 
5854 



global routine PUT .PKT (index) : novalue * 

THE MSCP PACKbT DESIGNATED UY "INDEX" IS RtTURNF.D TO THE POOL Br THIS 
ROUTINE. 



begin 



local 

RING. ADDR : word, 
OWNER : word? 

RING ADDR ■» .DCT.APDR (RR^BF.G]; 

incr COUNT From 1 to CRRTNG ..l.F.N » CRING..LEN) do 
begin 

if .MSCP ..PKT t. index, PKT.LO] eqia ..RING ..ADDR 

then 

begi n 

OWNER - .RING ADUR » ?j 

.OWNER - ..OWNER and tnot U.D..OWN)) and (not (ED..FI AG)) { 



RING ..ADDR ■ .RING„ADDR • 4; 
end j 



PKT USE t . Index] = -1 j 
end} 



! ADDRESS IN FIRST RESPONSE RING 
.» FOR EACH ADDRESS IN THE RINGS 

! IF ADDRESS MATCHES 



! ADDRESS OK OWNERSHIP WORD 
! GIVE OWNERSHIP TO HOST 



• LOOK AT NEXT PACKET ADDRESS IN RING 



000000 004137 OOOOOOG 



SBfTl. PUT. PKT Gt DUAL ROUTINES 



000004 
000010 
000014 
OOOtVO 
0000?? 
0000?* . 
00005/' 
000056 
00004/ 
00Q044 



01W00 
016001 
01660? 
010?46 
01? /4t 
004 /*>/ 
01.'/04 

o.'t.oti 

00 1005 



OOOOOOG 

000004 
000014 

000106' 

ooou .; 
oooob' 

OOOOOOG 

00000? 



PUT. PKT: : 




JSR 


Rl . , *6AVf 4 


MOV 


OCT .AOUR.RO 


MOV 


Af RO),Rl 


MOV 


141 SP),R? 


MOV 


R?. tSP) 


MOV 


010*., dPt 


JSR 


PC. HI $MU 


MOV 


010.R4 


1 * ; CMP 


MSCP.PKT(RO),tRl ) 


UN* 


?i 


MOV 


ft?,R3 



♦.hLNG.AUDR 

INDEX,* 



♦ , CO* in I 

♦, RING. ADDR 



j ♦.OWNER 



58 14 
68 5^ 



5343 



M 1 3 



/ROAM/ 




RD/KX fcXLRCISLR 


VO 1 . 6 




GLOBAL ROUTINES 


oooo so 


060105 




0000V 


042715 


140000 


000056 


062701 


000004 


OOOCW 


00S304 




000064 


001364 




00006b 


Hi?/**/ 


000377 OOOOOOG 


0000 ,M 


0..'/?K?6 




0000/6 


00020 v 





Rov.it I ne Jii/e; 5 t .' words, Routine Base; 

Maximum stack depth per invocation: ti words 





11 Apr 1"«4 11 :!■(>: 01 




U-Apr-19H4 11}45j02 


ADO 


Rl ,R'. 


FUC 


0140000, (R3) 


ADD 


04.R1 


DEC 


R4 


HNK 


1* 


Mova 


037 /.PKI .Ui.P.CRS) 


CMP 


(SP)*.(SP)* 


RTS 


PC 



$cuut? 



t>660 



VAX 11 Bl i 



I''. V4.0 S/<> 



seu 01.68 



DISK IUSFJte:r POWERS ]2RQAD0.BL1*6 

; RTNG.ADDR, OWNER 
i *,OWNLR 

5 *,RENU.ADUR 
i COUNT 



Poqc 16« 
(SO) 



S«44 
SM4>J 
SH56 

3cv:.2 

Sfl2/ 
S8l<J 



SHV> 



HIS 



/ROAM, 1 
V0K6 



S8:w 

S8 l >9 
IS 860 
5861 
S8«v* 
J.863 
!>8b4 
S86S 
I>86b 
S86.' 
S868 
5869 

58 /o 

5871 



RD/RX EXERCISER 
GLOBAL ROUTINES 

routine PUTA.PKT (CTLR) : novalue « 



11 -Apr- 1984 11:56:01 
ll-Apr-1984 11:45:02 



SfcO 0169 
VAX 11 Bliss- 1'. V4. 0-5/9 p 0fl e 169 

DISK $USER2 : [ POWERS UROADO . BL 1 1 6 ( 51 ) 



THIS ROUTINE DEALLOCATES AIL MSCP PACKETS WHICH HAVE BEEN ALLOCATED 
TO A PARTICULAR CONTROLLER, 



INPUTS: 



CTLR - CONTROLLER NUMBER 



incr COUNT from to (PKT_CNT - l) do 

if . PKT. USE [.COUNi] *ql .CTLR 
then 

PKT^USE I .COUNT] * -lj 



FOR EACH ENTRY IN Al I OCATTON TABU 

IE PACKET IS ALLOCATED TO GIVEN CONTROLLER 

DEALt OCATE IT 



000000 01014b 



OOOOOi? 

000004 
000010 
000014 
00001b 
O0OO t M 
000026 
00005? 
000034 
000036 



OOSOOO 
116001 

Or?01bb 
001003 
lU-VbO 

oos^oo 

0?00« , 7 
003/64 
012601 
000207 



OOOOOOG 

000004 

00057 7 OOOOOOG 
000013 





, SNTTL 


PUTA.PKT GLOBAL 


PUTA 


PKT: 






MOV 


Ri, (SP) 




CL.R 


RO 


1$: 


MOVB 


PKT.USl.(RO),Rl 




CMP 


Rl.4(SP) 




BNE 


2* 




MOVB 


</377,PKT.USL(RO) 


2$: 


INC 


RO 




CMP 


RO.01S 




BLI 


1 $ 




MOV 


(5P)+,R1 




RTS 


PC 



; Routine Si/e: lh words, Routine Base: $COOE$ » 5760 
j Maximum stack depth per invocation: 2 words 



COUNI 

♦(COUNT),* 
+ ,CTt R 

♦ ,♦1 COUNT) 

COUNT 
COUNT,* 



SMS / 

586/ 

5860 



58/1 
586/ 



5tf57 



/RUAMV 




\o\ ,♦■ 




j !^V 


1 


: SA *5 


1 


; '.A '4 


1 

4 


; '^.". 


1 


; Sfl >. 


1 


i SA " ' 


1 


i V* \H 


1 


; 'iH ''« 


1 


; SA*V 


1 

i 


J 'tAAl 


1 


; SA.V 


1 


; SAH< 


I 


; S^4 


, 


; *iMMS 


t 


; ' -Irtf. 




; 't^H ' 


4 


; r -AHf* 


4 


; '.MA 1 * 


t 


; SH'K 


4 


j SH^l 


,* 


; '•fl*V 


4 


; '.H»J* 


% 


j Srt-M 


\ 


; SM'# 4 . 


5 


; r iA v *> 


V 


; VM 1 -* * 


«. 


; *ifl f *8 


J 


; •iM'#'i 


< 


; VMO 


< 


; 'i'*oi 


. 


; '■•»0 l ' 


t 


; V»o« 


> 


; *>*04 


1 

4 



HO H\ i Xf HCISIH 
ill OpAi ROUT IN* s 

global routine Of I RMPKT (CUR) 



11 Apr t'#H4 I 1 :"*f*:01 
11 Apr 1**84 11 t4 r »j(V 



VAX li Hi :•»•» l>. V4 , o ■./'# 
l)I r »KIU , ^R. J i|Pnw(-H f jJ/HQA0O 1 BL i|#j 



Pag* 1 f u 
( V i 



THIS HOUTINt MARCH! , TM| HMUHN PACKM POOl AtlOCAUON T AMI I f HP ' iSf ) 
» OR A »HM RMURN PACKI I It) AUOCATt TO TW GIVl N CONIRtHlfR. II ONI 1', 
IOUND, THf PACK!! I;, /FROtt) OUT, A NO TMf PACKM INCH X IS HI M WNffi TO 
TMf CAIU-R. OTHfRwini , A 1 ISHMUWNH) INU ICAT IN(. NONI AVA II AMI I , 



INPUT 



CTlR CONTRUU.FR NUMHFH RFQUt ST INO All MOW ION 



bey ' n 

locnl 

« nde* : •» ! gnet) wo»*o ! n ! t ! nl t 1 ) j 

In C r ClKUl fro^ to l RP CNT \) do 

: f .RP "SI ( .COUNT ] \hh 
then 

begin 

HP OSF ( .COUNT ) - .CTl Rj 

!od«v » .COUNT | 

incr J f rom to ( HP It N 1 > do 
Ri tpkt ; .COUNT, ,j, 0. lft, 

e » . ! t I oop j 

*ndj 

ret <.*m , I nde* j 
end i 



A SSI fit NONI AVA II Alh I 
f OR I ACM f NTHi IN Twill I 
V PRM HI TPKT l'i ruiiNO 

AllOC ATI RITURN PACKM TO CONTWflt , U* 



Oi 



/t HO OUT Rl. TPKT 



I) ONI 



Ht TURN PACt I f 1N0I ' .UP 1 TO CAi i I H 



O. ; O i "n ) Ot >4 1 4 >' C Ot >001X i 



S't.'O'.'lii 
Ouool*' 

oooow. 
0000. »o 

i) 000 10 
OOOO V 
0000 1*. 
00004.' 
UO0O44 
OOOot*. 

l.Ji IHO'tO 



"1.' \>1 
00SOO1 
10*. .'61 
0<VO. , V 
I 16M.1 
010101 
01014*, 
01.'/4f. 
0O4 M/ 
0.\ J 6. J f» 
OOSOO.' 
01^004 



I 



OOOOOOi, 



000014 000000* i 



0000, •», 
0000000 



UC00S4 00t*0t4 OOOOUOU 



. SlU Tl ''.I T .PI TPk ' ul OH At WtJi- 1 INtS 
,1 T,R| TPKI : : 

JSP 



1 f 



►*! 



Pl.t .Avi 4 

MOV l.RS 

Ci R Ml 

TSTH HP. US! ( HI ■ 

MM M 

MOVH 141 SP J.WP.USI ( HI ) 

MOV H1.H4 

Mfiv u; ( ^ '.m » 

MOv o.r. , 1 ,P 1 

J.H PC .Ml fMtn 

CMP c.lM.,tSP). 

Cl R P.' 

MO; H0.R4 

AM I W. ,U4 

A ,l H4 

ClH Ht IH«T;W4; 



1 

1 • . INPI • 

1 C ui ^| 

1 l Tl H.« . C- 1 - *■ > 



1 .,1 

1 



*,.-<M * 
1 . •* * ♦ 

"*.•* *4 
SA *s 

, .-i i -» l 4 



^6^. 



<\ 



vol .»> 

OOOiH'O OOVOOO 

OOiKV*,' 

OOOOt»r. 

OOOO *0 
0000 V 
Oi\\- '4 



000 I *V 
00^10. ' 
000104 



o.wo; 

000404 
OOV'Ol 

oauo.* 

00 < .'44 
v^lO^OO 



lil lUUU UOUUNt s 



OQCKV 



ooooo ; 









1 1 
u 


Apr 


r<«4 


H 
11 




; Dl 

:00 


VAX 11 HI 




INC 

L'MP 
Ml f 


,'i 














J .i 
1 J. ♦ 


4$; 


MM 

INC 
CMP 

Ml I 
Ml iV 
Ml'. 


4 1 

Ml 

M I . / 

1) 

PC 














1 C(I"NT,* 
i INUtX.4 



'jEQ oi '1 
Page 1 • 1 






l »H^4 



Mavlmum tttac^ dept* per ir.vocot > Qn; tf wordtt 



SCUDtS ♦ 60v J 



)\/\ 



/ro • 1/ 

VOL* 



• l 'lO 
•■Ml 
^W 1 



HO M\ FMRCISIR 
01 HM'U ROUTINt 4 1 

global routing PUT RFTPKT i Index") J novalue ■ 



llApr \'W4 lli'.h-Ol VAX 11 FU i fin 1*. V*1 . O •)/'» ^Paoe 'l /.' 

U Apr 1084 Ui45iOi? Dl SKtUfiFR;? : [ PUWFRS J/RUADO.UL I ;6 C S -5 j 



THF HMUHN MACKLT OF cUliNATfcO H* "INOFX" IS RETURNED TO THE POO! H' THIS 

ROUT INF. 



HP .USF | . Index ) ' It 



0000* V OlW-00 OOOPO.' 

O00OO4 M/V.O 0005.'.' 0000000 
OOOOl.^ oOiVO* 



, stun puT.wirpiM w ohai ruutiws 

PUT,RFTP1« I : : 

MOV .'i'.PJ.HO 

MOVH M//,RP.USF(RO) 

wrs pc 



J [NDl A , ♦ 






i *ii..it!ne '.l.-e: ri nord'i. Routine tinse : iCODF * ♦ Mt't'» 

j Mn«.tmufn utacW depth per invocation; words 



f\ 



.'ROAM.' 



VU4 
V>1S 

vn - 

WO 
Wl 

V V4 

S'VS 

5W .' 

s i »io 

V>31 

V.»Vi 

VFV» 
S *40 
S l *41 
l ...'>4 [ 1 
V>4 5 
V.)44 
VJ4S 
V+4'-. 
«i , »4 .' 
S'-*48 
S^4'* 
V.*SO 
V'Sl 

w f ? 1 



I 1 Apr l f *fl4 11 i'jhiOl 

II Apr 1984 ll?45:0i? 



RO R\ L\f RCISKR 

Ul.OBAl ROUT INKS 



global routine UK T 10 HUE h WU)DR ) j novnlue • 



THIS ROUTINE HANDLES THK, Al. LOCATION UE AN 1/0 BUFFER FROM THE BUFFER 
POOl . 



VAX 11 Bli fin 1*. V4.0 S/«i '* Pooe 1 / '. 

l)IS!<$USK.Rc>:[P0WKPSi/RQAU0.HL.lj6 f 54 , 



.R 



INPUTS: 



ADOH ADDRKSS TO STORK THK <> WORD BUFF LR DESCRIPTOR 



IMPl ICIT INPUTS: 

CCTl.R CURRENT CONTROLLER NUMBER 



OUTPUTS; 



THf MILOrATED BUFFER'S DESCRIPTOR IS I OADt U INTO TMF TWO 
WORDS AT "AODR" AND "ADOR * * J, \ OTHERWISE, A ZERO IS RETURNED 
AT 'ADOR** IF NO BUFFERS ARE AVAILABLE. 



00 
00 

00 



beg ; n 
.ADOR * Oj 

incr COU.T from to CQTO PER CU.R * MAX CTLR 

If .HUFF. OWN I. COUNT] lag 

then 

beg! n 

HUM OWN ( .COUNT ] - .CCTl.Rs 

.ADOR - .BUFF. ADOR [. COUNT ]| 

e\ ! t loop j 

end j 



end} 



1 ) do 



ASSUMf f ATi ifUf 

FOR EACH tNTMv IN BUFFER TABLE 

IF BUFFER IS FREE 



! AiiOCAII tUJf H-.R TO CONTROLLER 
! Wt T.iRN BUFFER DESCRIPTOR 
J DONE 



! ROUTINE UfcT 10 LJUF* 



000000 01014*! 



UOOOU.' 

ooooo*. 

000010 
OOOO 1 4 
00001* 

OOOO.M 
U000,>» 
000050 



00 so >> 
OOSOO 1 
10V-M 
OO.'OU 

11*. 'M 
010100 

0160/6 



000004 



OOOOOOCi 



OOOOOOCi 0000000 



OOOOOOG 00U004 



. SBTTl 


(if I . TO. HUFF i.t OBAL R 


(JET . 10, BUM : ■ 




MOV 


R 1 , ( SP ) 


Ct R 


al4l SP) 


Ci H 


HI 


U: TMH 


HU» » . OUNt Ri ) 


Blit 


.'$ 


MUvB 


CCTi k.BuFf .OWNCRl ) 


MOV 


HI .HO 


A-.l 


Ho 


MOV 


BUFF,A0URtRO),iv»4(SP) 



1 

; AODR 

j Li'i'NT 

{ »l ('HUNT N 

s *,»,coi'Nri 

j COUNT,* 

i *,AUUR 



s .is 
s t <; * 
s ».*-* 
s * ; : 

s ■*.;<, 



/HUW 




RO R\ EXERCISER 


VCl.t* 




GLOBAL ROUTINES 


OOOQM* 


000404 




000040 


oos:\) i 




00004 J 


o^ou; 


000007 


000046 


005 7t»0 




0000 so 


Ol^bOl 




0000V 


ooo^o ; 





5$: 



HR 

TNC 
CMP 
Bl E 

MOV 
RTS 



4 



ii 
n 



Mpr- 19H4 
Apr~19tt4 



SEQ 01/4 
U:!ih: 01 VAX -11 HI Ins 1'. V4.0 S/'j P oge 1/4 

1 1 : 45 : 02 Oi SK 5 U5ER2 : ( POWERS 1 /RQADO . BL 1 ; 6 ( M ) 



ft/ 



M 

Rl 
HI 
1$ 
<NP)*.R1 

PC 



CUUNI 
COUNT,* 






591' 



; Routine Si/e: ,V words, Routine Base: $C0Dt$ ♦ 614c? 
: Maximum stack depth p«r Invocations c? words 



!i 'S < 1 
59b4 1 



(,'14 



/ROAM? 
VOL 6 



V* r: .S 
V)St> 

S^S8 
SuSw 

V>60 
\> K M* 1 
S*>? 

s^*>3 

S9t>S 
S f >66 

S i *n/ 

!W68 

v»/? 

5973 



pO'R\ exjhciser 

UlOBAl. ROUTINES 



ll-Apr-l»«4 lli^jOl VAX 11 OHsu 1', VI. ', .") Pooe'l/S 

11 Apr I9tt4 Uj45;02 DISKSU5ER2: f POWERS 1ZRQAD0 AMI \h f r >S) 



global routine PUT. lO.BUH (ADDR) : novnlue 



THIS ROUTINE HANUllS THE DEALLOCATION OF AN I/O BUFFER. RETURNING IT 

TO THE BUFFER POOL. 



INPUTS? 



AOOR - ADDRESS OF THE ? WORD BUFFER DESCRIPTOR TO BF 

OEALl OCATED 



Incr COUNT from to (QTO..PER CTLR ♦ MAX.CTLR 1 ) do 

If .BUH AOOR [.COUNT] eqla . .AUDR 
then 

begin 

'\*~i OWN I .COUNT] - 1: 

e*. i tloopi 

end} 



! FOR ( ACH ENTWi IN HUMFR TAflt [ 
\ IF THIS IS THl BUFFER'S ENTRr 



! OEAl LOCATE BUFFER 
! DONE 



OOOOOO C 10146 



00000? 
000004 
OOOOOO 
000010 
000016 
000020 
000026 
0000 50 
00005? 
000036 
O 0004 
00004? 



OOSOO 1 
010100 
006300 
0?60/t. 
001004 
11? /61 
000404 
00V01 
02012/ 
003/t»? 
012601 
00020V 



OOOOOOt, 000004 
0003/7 OOOOOOG 



00000/ 







.SBTTL. 


PUT. 10. HUFF GLOBAL R 


PUT 


10 


BU l : : 








MOV 


R 1 , - ( SP ) 






Ci R 


Rl 


1J: 




MOV 


Rl.RO 






AM. 


RO 






CMP 


BUFF, AOOR (RO},oW( SP ) 






BNt 


2$ 






MOVB 


5//,BUFF,0WNCRl ) 






BR 


3$ 


2$: 




INC 


Rl 






CMP 


R 1 . * / 






Bl * 


1> 


M\ 




MOV 


CSP^ ,R1 






R1S 


PC 



; COUNT 

; COUNT, ♦ 

; ♦ , AOOR 

; ♦ , ♦( COUNT ) 

• COON! 

{ COUNT,* 



S'«jH 



V*/u 
*. >*>6 



^>SH 



Routine : ,i/e: 1H t-ords, Routine Base: SCODfc* ♦ 6?lh 
Hax . mum stack depth per Invocation; 2 words 



M 



/RUAIV 




VOL 6 




; V»/4 


1 


; s^/s 


1 


VKb 


i 


; VK ' 


1 


S l >/8 


1 


; :.i i »;^ 


1 


s^rto 


1 


; VW1 


j 


5 V>8^ 


i 


; S^8? 


i 


; S^84 


i 


; S98S 


i 



«i)'R\ exerciser 

Gl.ORAl ROUTINES 

global routine PUTAJ1UFF : novalue 



1 1 -Apr- 1984 11 :Sb : 01 
11 Apr -1984 11:45:0c? 



SFiQ 01 /*. 
VAX 11 Hlisn 1>> V4.0 S /'> Paoe 1 '6 

PlSK$Ubt:Ri?:[P0WhR f i}ZRUAD0.HLl;6 CiA) 



THIS ROUTINE DIAL LOCATES ALL I/O BUFFERS WHICH HAVF BEEN ALLOCATED TO 

THE CURRENT CONTROLLER (CCTLR). 



incr COUNT from to ( QIO. PER..CTLR * MAX..CTLR 1) <Jo 

it .HUH- .OWN I. COUNT] eql .CCTLR 

then 

UUFF_0WN I , COUNT 1 • -1} 



i H)H EACH ENTHi TN RUFFf R TABU 

• TF THT'i Flu* FF H ALLOCATED TU CURRENT CONTROLLER 

! DEALLOCATE IT 



000000 01014b 



'itUn. PUTA.HUFF GLOBAL ROUTINES 



00 ooo .? 
000004 
000010 
000014 
000016 
0000^4 

oooo;>6 

0000 5? 
000054 
0000^6 



005000 

116001 
0^0137 

001003 

11:? 760 

oor^oo 

0200^7 
003 7 b4 
012601 

00020 ? 



ooooooo 

000000G 
0003 .' / 
000007 



0000000 



PUT A 


UUF» : : 






MOV 


Rl, (SP) 




CI R 


RO 


1*5 


MOVB 


WWV .0WN(R0),R1 




CMP 


Rl.CCTIR 




UNt. 


?.% 




MOVH 


O.Wi\HUF> .UWN(RO) 


a$: 


INC 


RO 




CMP 


RO.tf / 




BEE 


1$ 




MOV 


ISP). ,R1 




RIS 


PC 



COUNT 

*( COUNT ), + 



* ,*( COi'NT ) 

COUNT 

COUNT.* 



Routine S'/e: lb words, Routine Unse; JCOOE* ♦ 62b,? 
Maximum stack depth per invocation; 2 words 



S'i "4 

'.•mi 



VMS 

s *.-u 

59?4 



14 



/ROAM. 1 
VOl. ,6 



V»86 
V>8 7 

jiwg l 
VW3 
yws 

bOOO 
0001 
600? 
u003 
6004 
600S 
t>006 
6007 
6008 
6004 
6010 
6011 
60 V 
6013 



RD/RX EXERCISER 
lit.OBAL ROUTINES 

global routine OUT. IODQ 



11 Apr- ISBA 11:56:01 
U-Apr-19o4 11:45:02 



VAX U Rl iss 16 V4 .O-S/'l 

DISK SUSfcRi? : [ POWERS 1/RQAD0 . BE 1 j 



SF.Q 01// 
Pqqc 1 / / 
6 (bf ) 



THIS ROUTINE RETURNS 10 THE. CAL I I R THE Nf XT RETPKT INDf-'X fU Hi 
PROCESSED FROM THE I/O DONE QUEUE CIODQ:. THE "OUT" POINTER TO THF 
QUEUE IS ALSO UPDATED, 



INPUTS: 



NONt 



OUTPUTS: 



THE INDEX OF THE NEXT RETPKT T BE PROCESSED, 



beg! n 

local 

index : word; 

Index - . IODU [ . IODQ OUT] { 
IODU OUT - , IODU OUT * 1 j 

if , IODQ .OUT gequ 1UDQ LfcN 
then 

IODQ OUT * Oj 

return . index i 
end: 



! (»ET NEXT RETPKT I NO* X 

* ADVANCf "OUT" POlNTt R 

\ IE B6 tDNl) END OE UUH.U 

J Sh T POINTER TO HEOTNNTNu Of QUEUE 

! RETURN INm >: TO CALLER 



000000 013700 0000000 



000004 
000010 
000014 
OOOOt.'O 
0000**6 
000030 
000034 



116000 
04? 700 

oor>;? 3/ 

0?37?/ 

10340,' 
00 SO 3/ 
000^0 7 



OCOOOOd 
I / /400 
OOOOOOC 

ooooooc; 
ooooooc; 



OUT 



000010 



n 



, 5RTTE 


OUT, IODQ 01 


IODQ: : 




MOV 


IODQ.OUT.RO 


MOVH 


IOOQIR0 1.RO 


NIC 


1 <'/400,R0 


INC 


10DQ.0") 


CMP 


iooq.uut.oxo 


m o 


It 


ClR 


IODU. OUT 


RT5 


PC 



♦ , INOf > 
*, INDEX 



>>00 l 



ss>ao 



Routine '.;;.-e: IS words, Routine iinse : *C0DE$ • b3*2i? 

Maximum stack depth per invocation; words 



, J I 4 



/ROAM. 1 
V01. 6 



t»Ol4 

mil'. 
601t> 

t>oi ; 

fcO 1 8 

r^VO 
r^Vl 
60.V 
t^V 3 
*»0,-M 

riO^>» 
r.-OJ / 

t»o.:« 

m030 
r>03l 
603.' 

605 *; 

60*54 



RO. RX E.XhRCISER 
Ol ORAl ROUT INKS 

global routing IN IODQ (indeO : novnlue 



11 -Apr- 1984 U:'",fo:01 
ll-App-1984 ll{4-j;02 



btu uw« 
vax li nils*, u. v4.o ::./ ( j p age i /« 

DISK$USERi>:[P0W£RS]^RQAD0,BLl|6 (58) 



THIS ROUTINE INSERTS A Rl MJHN PACKET INDEX INTO THE I/O DONE QUEUE, AND 
UPDATES THE IODU.IN POINTER. 

if ((.IODQ IN ♦ 1") cql . IOOU UUT) or 

(.1000 IN - (IODQ..LEN - I) eql .IODQ OUT) 
then 

return 
else 

beg i n 

IODQ I. 1000.. INI " . ind**.; j LOAD INDEX INTO QU U» 

IODQ..TN < .IODQ IN » lj J ADVANCE "IN" POINTER 



! f .IODQ IN gequ I0DQ_LEN 
then 

IODQ.IN ■-■ Oi 

end} 



! IE RfrYOND END Oh QUElH 

! CYCLE HACK TO HHilNNINC" OF QUEUE 

! IE IODQ IS NOT KULL 



000000 01014t> 



.SBTTL IN. IODQ CLONAL ROUTINES 



ooooo;? 

OOOOOu 
000010 
OOOOlt 1 
000016 
00<KVO 
0000^? 
0000, J h 
0000 .5,' 
000034 
00004,? 
000040 
0000 S 4 
OOOOSb 
00006.'' 
000064 

; Rout 



013/01 
010100 
OOVOO 
Oi>003,' 
0014.M 
010100 

t6;>/oo 

0,>003 7 
001413 
116661 
O0S t \3/ 

10340.' 
00S05*' 
OK'*. 01 
000^0 '/ 



OOOOOOl, 



000000(5 



00000 / 
OOOOOOCi 

000004 0000000 

ooooooc; 

oooooot ; ooooio 

COOOOOCi 



IN.lODQs : 




MOV 


Rl. (sp) 


MOV 


IODQ. IN.R1 


MOV 


Rl.RO 


INC 


RO 


CMP 


RO, IODQ. OUT 


he a 


li 


MOV 


Rl.RO 


SUH 


O^.RO 


CMP 


RO, IODQ. 01 IT 


beu 


U 


MOVH 


4(SP), IODQCRU 


INC 


IODQ. IN 


CMP 


UUHl.lN.i'UO 


rn o 


1 l 


CER 


IODQ. IN 


1 * : MOV 


(S»M.,Rl 


RTS 


PC 



INDEX,* 



».0',4 
'»0.U 



60.v 



».>V4 
hO. 1 ■' 
t.O.'H 
nO30 

r-03 ' 

0014 



ne :../e: .v words, Routine Hnse : 
I Man I mum stack depth per invocation; 2 word! 



$CUDE$ . 6360 



< 1 4 



/ROAM. 1 
VCU, 6 



RD'RX EXERCISER 

GLOBAL ROUTINES 



1 1 Apr -1Q84 11:56:01 
11-Apr 19H4 11:45:02 



» , , , . SECJ o I /y 

VAX 11 HI is-; 1.6 V4.0 S/<* p aae i/v 

DISKIUSKR2: [ POWERS URQAD0.BL1|6 (59) 



6035 

605/ 
6038 

t>O.V# 
6040 
604 1 
6042 
604 3 
6044 
004 S 
6046 
604 .' 
O04ii 
604 ( » 
6050 
oO!U 

6053 

60S4 
hOSS 
6056 

60S ; 

60 5 H 

6061 
6062 
606 3 
6064 



global routine DROP^CTLR (CTLR, REASON) t novalue » 



THIS ROUTINE DROPS ALL UNITS ASSOCIATE UIlH THE CONTROl LER DESIGNATED 

Rl "CUR", THL REASON FOR DROPPING THi DEVIQ I'. I OAOEO INTO THf DIM 

VECTOR R)R EACH ATTACHED UNIT. THIS DATA IS THEN USED BY THL DROP UNIT 
SECTION. 



beg! n 

local 

UNIT; 

incr N from (0 ♦ Of .UN) to ((UNITS. PER CNTH 1) * UNtT,SI/E * OF'JJN) by UNIT_SUE do 

if .CST l.CTLR, ,N * OF. DATA, D PRES] eql PRESENT 
then 

begin 

UNIT - ,CS1 [.CTIR. ,N t OF_DATA, U UNIT]; 

DUR [ .UNIT] - .REASON; 

DOOU C .UNIT); 

end; 

end; 



! FOR EACH UNIT 
! IF" CONFIGURED 



! DRS UNIT NUMQER 
! DROP REASON 
! DROP UNIT 



000000 004147 OOOOOOG 



O00004 
0000 10 
000014 
0000. '0 
000022 

000026 

0000.50 
000032 
0000 34 
00004.' 
(^00044 
O 000 50 

oooov 

H000S6 
000064 
000066 
OOOU.'d 
0000/4 



016646 
012/46 
004 151 
010003 
012/02 
010300 
060200 
006300 
052/60 
00141. > 
016001 
000 501 
04.' /Ol 
116661 
010100 
1044M 
06.' /02 

02022 ? 



000014 
O0OOS 5 
OOOOOOG 

000003 



040000 OOOOOOG 

OOOOOOG 

1 ? ! /60 

000016 OOOOOOG 



00001/ 
000041 





.SRfTL 


DROP.CTl r tiinn 


DROP 


CTLR: : 






JSR 


Rl . JSAVt 5 




MOV 


14CSP), ISP) 




MOV 


/>53, (»,P> 




JSR 


PC. ML SMUl. 




MOV 


R0.R3 




MOV 


03.R2 


IS: 


MOV 


R3.R0 




ADD 


k2.R0 




ASl 


RO 




DI 1 


040000, C5UR0) 




m u 


2* 




MOV 


CMCRO\Rl 




SUAH 


HI 




HIC 


01 7/ .'60, Ml 




MUVH 


l6t'»P).l)URCRl) 




MOV 


R 1 , RO 




!RAP 


SI 


2*; 


ADD 


tfU'.H.' 




CMP 


RJ.MX 



; CTLR,* 



; *.N 

t 

; N,* 



; * , UN t ! 

j I'NII 

; •.UN LI 

; HtAsON.MUNlO 

i UN 1 1 , * 

; ».N 

i N,+ 



nO < ■' 

'.0^6 



'.054 
"0^6 



* l ^J 



uOi»4 



VOL 6 

OOO i 00 005 /St* 

000 1(V O.'Vh^ 

000104 000.?07 



RD/RX tXKRCl^rR 
GLOBAL ROUTINES 



Hl.f 

CMP 
RTS 



1.4 



11 -Apr- 1984 
11 -Apr -1904 



11j!jO;01 VAX 11 Bliss 1'* V4.0 r >79 

Ui45i02 DXS!<$UShRH:LPOWERSURQADO»DL 1 }6 



1$ 

C SP ) » 
PC 



CSP)* 



SEQ 0180 
Page 1H0 

( r >9) 



t.049 
6037 



Routine Size: *S words* Routine Bnse: $CUUE$ » 6446 
Has < mum stnck depth per invocation: 8 words 



e^Ot-S 1 
bOfrb I 



-'RUHM2 




V01. 6 




; 606 / 


1 


; 6068 


1 


j t>Ob ( ) 


1 


; 6070 


1 


; 60 a 


1 


; oO'/, 1 


1 


; 60/4 


1 


; 60 /4 


1 


i 60/S 


I 


; 60 76 


1 


; 60 / / 


1 


; 60/8 


1 


; 60 /''» 


1 


; 6080 


1 


; 6081 


i. 


; 6082 


i 


; 606? 


t~ 


; 6084 


». . 


: 60HS 


i 


; 6086 


i. 


; t>0 8 / 


r 


; 6088 


t * 


; f.08^ 


< 


; 6090 


1 



M 1 4 



RD/RX EXERCISER 
GLOBAL ROUTINES 

global routine DRV..CTLERR (CTL.R) ; novalue * 



ll-Apr-1984 11:^6:01 
ll-Apr-1984 11:45:02 



VAX 11 Bliss 16 V4.0 S/9 
DISK$USER2:fP0WERS]^UAOO.BH|6 



SEU 0181 
Page 181 

( 60 ; 



THIS ROUTINE IS CALLED BY DRV.TIMCHK AND FATAL ERROR WHENEVER AN 
UNRECOVERABLE CONTROLLER ERROR HAS BEEN DETECTED, ITS PURPOSE IS 10 
CLEAN UP ALL CONTROLLER -RELATED DATA IN THE "DRIVER" PORTION OE THE 
PROGRAM, THIS INCLUDES HARKING THE CONTROLLER OFFLINE, CLEARING M 
C-RING COUNT, AND DEALLOCATING MSCP PACKETS DESCRIBED IN THE RESPONSE- 
RING. 



INPUTS: 



CTLR - DYING CONTROLLER NUMBER 



beg i n 



local 

D..ADDR : ref block [DCT..LEN, word] field CDCT .FIELDS) j 

D ADDR - OCT ♦ v.CTI.R * OCT LEN * 2)| 

I) ADDR [WORDOl - OFFLINE; 

PUTA PKT ( .CTLR); 

DROP..CTLR (\CTLR, DU..CFATAL ) ; 

end; 



J CONTROLLER'S OCT ADDRESS 



Gt-T CONFRO! 
MARK OCT [)i 
REl FASF AH 
DROP Al I 
ROUTINE 



LER'S DCT ADDR 
KL.tNf. AND CLEAR CRING 
PACKETS ALLOCATED TO 
UNITS ON THE CONTROLLER 
DRV.CTLERR 



CNT 
CONTROLLER 



000000 010146 



.SLHTL DRV, CU ERR GLOBAL ROUTINES 



000002 
000006 
000010 
000014 
000020 
000024 
000026 
000040 
O00054 
000056 
000042 
000046 
O00OS2 
OO0OS4 



016601 
010146 
012/46 
004 757 
062 /OO 
O0S010 
010116 
004/47 
010116 
012/46 
004/4/ 
062 /Oo 
01 260 J 
00020 / 



000004 

000022 

OOOOOOG 
OOOOOOG 



OOS/60 

000006 
006446 
000006 



DRV.CTLERR: t 




MOV 


Rl, ISP) 


MOV 


4CSP),R1 


MOV 


Rl. ISP) 


MOV 


£22, -(SP) 


jsr 


PC,OL$MUL 


ADD 


4UCT.R0 


CI R 


(RO) 


MOV 


huso 


vJSR 


PC, PUT A. P 


MOV 


Rl ,(SP) 


MOV 


46, (.SP) 


JSR 


PC, DROP. C 


ADD 


#6. SP 


MOV 


C SP)* .Rl 


R1S 


pg 



l Routine Sijr; 25 words 
i Maximum «tnck depth per 



; CTI.R.+ 



; D, ADDR 



Kl 



CTLR 



6086 



6088 

6089 



f.OMl 

oOo* 



Rout ine Hose : 
invocation: S words 



$ COOt- $ . 6SS4 



VOl t 6 



fcO'U 
r.tO'V 
bO l >5 
6094 
eO\*S 

6V.J9 .' 
60')fl 

6 100 
6101 
blO,"' 
610* 
6104 
t>10S 
61 06 

bio; 

nlOH 
h 1 O 1 * 
6110 

bill 
61 U' 
6115 
til 14 

hP'i 
bll 

bir: 

bilH 

bll 1 * 
bh.'U 
bi;!l 
bit.'.' 

M.'4 
bl^S 
bh?6 
bUV 
bL'H 
6l^# 
bl.<0 
6151 
bl5P 
6155 
61 i4 
61 AS 
M56 
6157 
6158 

6i;v* 

6140 
6141 

*>1<V 
6143 



N14 



RO/RX EX( RCISER 

GLOBAL ROUTINES 



11 Apr -1984 11:S6:01 
U-Apr-19»4 11:45502 



VAX -11 Bliss 16 V4.0-b"M 

DISK *USERP t [ POWF.RS ] ^RQADO . BL 1 ; 



SEQ Oi.i, 1 

Page 18<> 
6 (61) 



global routine SEND (index) 



tf the: current rdrx is online and its cring is not run, THEN THIS 

ROUTINE "SENDS" A COMMAND TO THE RDRX BY LOADING, THE PACKET 
DESCRIPTOR OF AN MSCP PACKET INTO THE COMMAND RING AND READING THE 
DEVICE'S IP REGISTER. TF THE 

CURRENT RDRX IN NOT ONLINE. THEN A FAILURE INDICATION IS RETURNED TO 
THI CALLER. AND NO ACTION IS TAKEN. 



INPUTS 



INDEX •• INDEX OF MSCP PACKET CONTAINING THE COMMAND TO 
BE SENT 



IMPLICIT INPUTS; 

CCTLR - CURRENT CONTROLLER NUMBER 

DCT..ADDR - ADDRESS OF CURRENT CONTROLLER'S DCT 



t>eg i n 

local 

SLOf ADDR, 

IEMP : word, 

CUR PRIORITY : word; 



( .OCT ADDR [CRING CNT 1 
( ( .OCT .ADDR I STAT j C ql 



Isr.u CRING 
ONI INE) or 



I. EN) and 



then 



U MSCP .PKT I, index, OPCODE] eql OP. .SCO) 



if (not C( 



< .MSCP 



MSCP 
MSCP 
MSCP 
MSCP 
MSCP 



PKi 

PKT 
PKI 
PKT 
PKT 
PKT 



MSCP PKT 
.MSCP PK 
( .INDEX. 
[ .INDEX, 

[ .INDEX, 
f .INDEX, 
r .INDEX, 
I .INDEX, 
.MSCP PK 



[.index, OPCODE] eql OP ACC ) 
T [.\ndt\ t OPCODE] eql OP..RD) 



then 



OPCODE ] 
OPCODE] 
OPCODE] 
OPCODE ] 
OPCODE] 
OPCODE ] 
T [ . index 



EQL 
EQL 
EQL 
EQL 
'•.QL 
EQL 



OP 
OP 
OP 
OP 
OP 
OP 



RCD) 
GDS) 
ELP) 
AST) 
LSP) 



UR 
OR 
OR 
OR 
OR 
OR 



IF CRING IS NOT LULL AND 
V DEVICE IS ONLINE. OR 
IT IS A SET -CTRL -CHAR COMMAND 



or 

or 



or (. .MSCP PKI [ . Index. 


OPCODE] rjql OP ONE? 


or ( .MSCP PKT I . index, 


OPCODE] eql OPlSCC) 


! /// 




Mil 




X III 




Mil 




Mil 




Mil 





OPCODE] eql OP WRT))) 



MSCP„PKT I. index, OPCODE]) 



else 



beg i n 

PRINTE CDBMIO/, 

return FAILURE; 

e.-.d 

beg i n 

do 

BREAK 

until ( I. MSCP PKI f . index. CMD TYPE] eql 1MM CMD ) and 
( .CREDI f HAL gequ 1 ) ) or 
U CREDIT. BAL gtru l)j 



! LOOP TILL CREDIT BALANCE POSITIVE 






44 


* 


4'. 


5 


4*- 


5 


4 ' 


5 


4 8 


» 


■V» 


« 


i i 


t t 


1 , 1 

1 k 


f 


t 


I 


1, * 


* 


S4 


X 


1 4 > 


* 


',». 


* 


( ' 


r 


'H 


i 


V# 


» 


f.P 


5 


»■ 1 


5 


»,.' 


i, 


f,< 


X 


»-4 


* 


*,*. 


5 


».»■• 


5 


» , 


i 


f.M 


i 


f * 


i 


*l 


» 


■ i 


f 




» 


■ f 


* 


♦1 


4 



84 



HP R\ I <l HClSl M 

111 OHAl ROUUNK-i 



11 Apr-l'»H4 1 1 s •»#* : 01 
11 Apr 1<»H4 Uifl'.iCV 



M'.SP Pkl [.in^N, CNN Ml] • (CRN I HW • .CRN I OW » l)j 



>f .CRN I PW eql 
then 

CRN HH.H - ,CMN HIiiH 



1 1 



MSCP »*K I (.inoWx, CMN HI] • . CRN HiUHj 
SI OF APDR - .OCT. ADOR [CR.NtXT]| 

do 

HHI AK 

until ((.(.SLOT ADDR . «') and tU PWN ) «ql 0)| 

l.t TPRI lO>R PRIORI Ti )j 
si TPH1 I PR 104 ^j 

.MOT ADOR • .MSCP PK T [.EndtK, PK i ( p)s 

SLOT ADDR * .SI OT ADDR • .'j 

.SI OT ADDR ■ .MSCP PK T E.indtK. PK T HJ J t 

.SiOT ADDR • ..Si Of ADOR and (not IK) MAli))| 

.'.I. OT ADOR - ..SI 01 ADOR or 111 OWN) 

St OT ADOR • .St 01 ADOR » .'j 

'* .SIOT A[)D« gtr« . DC T ADDR ( CR I NO 1 
then 

SIOT ADOR • .DCT ADOR I CR Mi.Jt 

OCT ADOR (CR N**T] • ,M0! AOOW, 
OCT AP')H (CRINO CNF] ■ .OCT ADOR [CRlNl. CNT] 
P v .MSCP 1**1 I.INOM. CONNIO) I Ul CIO MSCP > 
THIN tCRfDIT HAi • .CRIOM (lAi 1>j 

It Ml' . .HDHX ADOR IRC IP, «C All ), 
A TPRI (. ,C"R PRIORI Tf ^, 
r^t-jrn SIlCClSSj 
•no 



It 



*!•*# 



return F All * *ML { 



STU oiH'. 
Pan* im 

f».lJ 



endj 



VAX 11 HI \*h I*. V4 .0 ', /'# 
DlSKlU'if R.»: ( POWI RSl/RfjAOO.Ht 1 j^ 



! ASSI(,N CMC) RF> Hi iM 



J CMO Rl 1 N"M CMltiM nu\)\ U ) 



! AOOR Of Nl » T COMM <Nt) ,i ()t 

! WAIT T It i NMI SI OT HOST 'JaNI S 

t 

• NO INTI -(RttPTs WHJi t POINUWS 4"jA*i;i 
i 

! I OAD Hi. M 01 SC (IP; INTO C-IMMANO . 

! AOVANCI TO SI. * f WORD 

! I OAD HUM DISC (HI) INTO COMMAND SLOT 

! Cl I AR ISTI «Rl ^ T F I At, IN \"A,i A r 

! OIVI OWNIRSHIP TO CONTROlt.lR 

! AOVANCI TO Ml X T COMMAND SI OT 

! U HI »0N0 f NO 0* CRINt. 

f C 'Ct I HACK Tp HI lilNNIMi 

! RI'.TPRI CR NIxT POINMR IN DC r 

J INCH (H COMMANO'i IN CRIN(i 

* ! l MSCP Cl^MMANO /.'.' 
•Dt CR CRt DI T HAi ANCI J^V 
! RI-AD IP TP > ORCI- RORT tq pf H ^ 

: I ilUlR PRIORI T i 



* !'» (H •« I CI ! - NP r ON^lNt 
J ROUT INI '.I Nil 



i /» >l )« ;. hi 


o.)4i * ' 


()Otl|)« )« «' , 


"00004 


OoS/4f, 




0(Xhm >#. 


i;*/ .'.'.' 


Oooot.wx, 000004 


(;(K>u 14 


lilUOn 




t>(HJ(Jl#. 


(H'S " : ; 


Ol> »">(,('»<;« , 


OOOP.'. 


Km. 4 1 '. 




i )< H><),'4 


1,1*,*. 4*. 


iin:. 14 


ni.'ii)' 


Si. i'A' t 


1 )i 'i J i ■#. 


0000 JA 


W4^i? 


oooouou 



UtNO;; 



. .01 Tt 


,1 NO v,t DHAt Rn 


»'TlSt l j 




U\ ,\ .A.' '■ 




I I 1 

CMPH 


«I)CT . ADOR, a4 




MM! ■, 


.'1 




T , ' 


joct . .\on« 




|l'*l 


i » 




MO^ 


14i ',P >, ' JO 




fl';. 


»U'f- , '. ,P 1 




JSH 


K»UL VHU 





1 lNUtX t * 



^:s 



/H'J4M/ 

vo:.». 

000040 

0000^0 

0000 f ^ 
O00Of>S 

0000 ;o 

0000.*.' 
OOvV .'4 
i W 1 00 
000104 
OOOlOti 
OOiMK' 
0001 14 

0001 .'0 

000 i// 

iiOOU'f. 
0001 10 

000 1 54 

DUO I V> 

00014/ 
OO0144 

I > 00 ISO 
OOwjS/ 
OOOl*.^ 
wOOlf.O 

000 U»4 
000 1M, 

0001 // 

oooi ?a 
ooot ■>, 
000/0/ 
OOO/O*. 

•MHJ.'lO 

ooo/l/ 
oOo/i* 

OO0//0 
000/// 

'.'0^/10 
000/14 
t>00/1*, 
OO0/44 
000.' A*. 
uuO/S/ 
OO0/S4 
O00/#,0 
OOO.'M 
oOO/*.*, 

W MV */ 

000304 



0//t»/b 
1/60// 
001 lt^.' 
01f»b4f» 
Ol//4h 

004 : * ,* 

01000/ 
0//f>/t» 
COS 000 
ISf/OO 
0/00/ ' 
00 I 44 S 

o/oo/; 

00144.' 
0/00. ' .' 
0014 V 
0/00/ .' 
0014 14 
0/00// 
0014^1 
0/00/ .' 
0014/ti 
0/00/,* 
0014/1 
0/00/ ' 
0014/0 
0/00.* -' 
0014 IS 
0/00// 
0014 1/ 
UlU04f, 
ul/Mt. 
01//4*. 
01 Of. 00 
10441 : 

o* / /o*> 

()O0'.O4 
1044// 
I OS/*./ 
001001 
O0'_> .' 1 •' 
00 1 004 
0/ MS? 
101 /♦,■. 
01 1/00 
OO'./OO 

o i oo i / 

01 00#i. ■■ 
OulOO/ 
00*./ 1/ 

4 > 1 ', ;*>,,■ 

»>1 1 \jU 

016001 



lil OH At. HOl'TlNl-'i 



0000/ /d 000004 



I 1 Apr 1<#H4 1 1 iS*,;01 

II Apr l'#M4 lt{4 , .j()/ 



OO0H14 
000 I Ot» 
000000(1 



0000/, \ i 
OOOO/O 

000011 

00004 1 

0O0004 

OOOnoS 

ooooo : 
ooooo *. 
ooooo* 

00000/ 

00004/ 



0000000 
00000/ 



ooooo*. 

OO0O04*. 

Oooootx. 
ooooo* x., oooooi 

OOOCOOf, 

oooooot • 

0000 1 /{, 

OOt >< HiHi 

oooooot, 0000 14U 
OOGOc'O 



1*: 



/*: 



41 : 
M : 



**; 



CMP 


(SP>» ,(SP >♦ 




CMPH 


MSCP.PI'T»//(HO),04 




MM 


lot 




MOV 


14(*'.P), (\P) 




MOV 


010*.. O.P) 




J l ,H 


PC, Hi tMVH 




MOV 


RO.R/ 




CMP 


( '.P )» ,( *iP ). 




Ct H 


HO 




n i sn 


MSCP.PKT *«V(R/ ),Ho 




CMP 


MO, 0/0 




Ht U 


11 




CMP 


WO. oil 




Ht U 


It 




CMP 


HO , 04 1 




Ht U 


It 




CMP 


R0.04 




mu 


1i 




CMP 


HO , OS 




HHJ 


It 




CMP 


RO.OJ 




Ht Q 


It 




CMP 


«o , o 1 




HI 


It 




CMP 


RO, Of, 




Ml U 


It 




CMP 


H0,0/ 




M Q 


It 




CMP 


HO, 04/ 




H' U 


11 




MUV 


HO, \ l .P > 




MOV 


00HM10', ISP) 




MOV 


0/, I'iP) 




MOV 


SP.RO 




TMAP 


1 .' 




Ann 


0#. , '*,P 




HW 


lot 




THAP 


„ V 




T'.TH 


H'.CP.PkT -4i W/ j 




HNf 


4» 




!M 


CHI HI T .HAi 




HNt 


M 




C^*' 


CMt 01 I .H41 ,0\ 




Hi li', 


It 




MOV 


ruN.i nw.no 




INC 


Mi 1 




MOv 


Hu.CMN.i iiu 




MOV 


Hlt.M .fp ,PKT . l/i H,' ) 




HM 


M 




INC 


CMN.mIi.m 




MO, 


CWN.hK.m, -v.OP.PKl »14< 


us 


M'JV 


DC * . ADOM.UO 




MOV 


/O^HOi*Wl 





VAX 1 i m ;•»., 1», V4,i- './** 

I) I SK tU'it P/ : | POWf- PS ] ZRUAUO , Hi 1 j *, 



I NDtr' / , ♦ 



i >p,* 



Pag* 1*4 
I'M ; 



',l,v 



» , # 



1 . ** 



' < 



'.1 '■/ 

», : i • 

' 14 1 



•■14- 



t>l^. 



I ♦,uLUf,-4U0H 



n 



.'RUAM/ 
V01 ,f. 

OOO 5 1 
O0051/ 
0005/0 
000 5. V 
OOO 5/4 
OOO.^/t^ 
000 5 5,' 
OOO 5 54 
000 540 
000544 
OOO 5 SO 
O005S4 
O005r»0 
PO0 5fi4 
O005r ^ 
000 5.*/ 
0005 >, 
000400 
000404 
0004 CM. 
0004 1 / 
000416 
0004/0 
0004 // 

ooo4 /6 

0004 5C 
0004 5/ 
0004 54 



1044// 
UV'M 
0015,", 

10444 
010005 

01/ ;oo 

10444 1 
OU.//1 
016/H 

04/ n i 

os/;/ i 

015/00 
O/Olf.O 
UU400 
016001 
010160 
10!./ 10 
10S76/ 
00100/ 
OOS 5 s .» 

oi ;;i6 

010500 

1044 4 1 

01/ /oo 
000401 
00 SO 00 
OOV/6 
000/0 * 



HO H\ t Xt HCP'.Nl 
lU ONAl ROUT TNI s 



100000 00000/ 



000/00 

OOOOOOl. 
OOOOO/ii 
040000 
I 00000 

OOOOOOis 
0000 \ * 

0000 10 
0000/0 

0000 lib 

000000( j 

ooooooc. 



00000 1 



M: 



Moot ; <*>e 
Ma*, 'mum 



V.*e: 
■itacu 



HJ: 



^*i 



10* 

111 



14 5 words. Routine flnsr: ICODfc I 
depth per !r.voc»t •' or.< 10 word** 





11 Apr l'#H4 


11 :*.f>:Ol 




11 Apr lnfcWl 


lli4^:0i J 


[RAP 


• > 




MI! 


t 00000, PC Rl) 




HNI 


;$ 




TRAP 


40 




MOV 


P0.R5 




MOV 


0/00, HO 




TRAP 


41 




MOV 


MSCP.PKUH/ ),(R1 w 




MOV 


MSCP.PKT*/(R/),(U1 ) 




p:c 


040000, CHI ) 




fU 1 - 


0100000,' Rl )» 




MOV 


DCT .AOOR.RO 




rrip 


Ml , 1/(R0) 




H. OS 


fit 




MOV 


10(HO).H1 




MOV 


Ml ,/0(R0) 




INCH 


tRO) 




TSTH 


Mscp.p;a»iiiRV) 




HNf 


4» 




oec 


CHE UIT ,ti.O 




MOV 


UHUNX.ADnH.tSP) 




MOV 


R5.H0 




TR4P 


41 




MOV 


01 .HO 




MR 


i 1 i 




Ci M 


HO 




T'.I 


i \fM. 




HTS 


PC 





VAX 11 1)1 ins 1», V4.0 S/<* 

\) I Si< IUM HP : [ POWh R'i l/RQADO . Bl 1 j 6 



♦ ,♦( SI OT.ADDH ) 



j ♦,CUH 1 PRIOR Mr 



j ♦ ,',( Of . AOOM 

j ♦ ,M Of . A[)[jR 

f • l M (It . A[][)R 

j *.',l 01" . A[)|)R 

J 

; SI OF .A[lOM, ♦ 

I ♦,'.'. 0? . h[)()R 

l il OT .ADDR, * 
J 

l 



i ♦ ,HC ,Ht ' . 

i Ct.fR.PRlUNlTf »* 



'jfcU oms 
Page ).>'.*. 

MM 

U'^ 

».1M 
».!».' 

6 1 * \ 



>. 1 ■' '■ 
6i .'4 









6650 



,'MiKNO 



■I'M 



MO MX rxiHCIM-M 
lit OMAt MiUH INI S 

global routine WAIT : novnlue 



1 1 Apr Wfl4 1 l;',f,;Ol 
U-Apr-l9H4 U:4SiOc J 



VAX 11 H 1 i -iti 1'. V4.0 ",/'* p aQ€ i»^ ( 

DISKiUSfcH^: I PlMRSJ/RQADO. 81.1)6 f ^ j 



* * 



IHf- PlWPC'.t iU T.U ' ■ MO'JTlNt' P. TO Kill T IMF I <N T U. AN ROM.' IN^MMmpt 
RbsU.Ts IN A Ht-MHN PACKt T 1NDKX HtlNli UfcPUSlH.U INTO THK l/U OONf 
UUiU' (1U0U), 



do 

HMIAK 
until .IUDU.IN neq .1000 OUT i 



! HRl'AK ► OM ACT 



i'KWVO 1044A* 

0000 00 

00000.' 0/5/V 0000001, OOOOOOti 

ooooio oo i: ;5 

00001/ OOOi'O ' 



; Moot-ne 'j ' .■« : t> word'., Routine tlnve: 

; M^ylmum stack depth per Invocation; wordy 



. SHT Tl WAT T (,1 OHAl ROUT [U\ \, 



WA I r ; ; 






If: 


TRAP 


t V 




CMP 


TOOU. IN, 10DU.UUT 




mu 


1 i 




R T ( i 


PC 



61tf r - 



$ cooks ♦ ;;?/o 



hi% 



/RiWV 




V01,f% 




; ^r».* 


1 
i. 


; M l >8 


1 


; . *,i^i 


1 


; 'VOO 


1 


; *>.'0l 


1 


; roOV 


1 


; ; .,M '■ 


I 


; KV4 


.' 


; t».VS 




; fcAV 


». 


; fn'O.' 


t N 


; ri.WH 


^ 


; »>,V'» 


, ' 


; k»U* 


t ' 


; K.-li 




; rvl/ 


t * 


; t*.H< 


, ' 


; tVH 


? 


; b.U'i 




; rOl^ 




; bSi: 


? 


i ».,MH 


1 


: tu'W 


/ 


; #ufi*0 


■ i 


; 'V.ll 


X 


; t>AV 


/ 


: f».v^ 


/ ( 


; K\M 


/ 


t '>,VS 


j, 


; fn'^f. 


X 


; f».V.' 


r 


: '».VA 


4 


; ^.Y 1 ' 


<i 


; -..'<(' 


fc ' 


: »i * '. 1 




1 ', ' . . X, 


4 


; 'OV 


1 



RDRX EXEHCISER 
l»l OBAl ROUTINES 



13 Apr WW4 11 :'.*>: 01 
11 Apr 19«4 11:45:0^ 



GLOBAL ROUTINE MOOU.AS 11 U.I IMIT, Ml I IMin - 

!» THE. PURPOSE Or THIS ROUTINE IS H) (if- T A RANDOM NUMJE R BE TUM N 

! THt-. LOW AND HIGH LIMITS, THIS SHOtA D WORK KOR A 16 BIT WORD. 

! THt "MOD" TUNC QNE> WORKS ON 15 BITS. 



REliTN 

OWN 
I IX AL 



X : WORD; .'VARIABLE ► OR RANDOM WD TABLE 

ANSWER : UNSIGNED UORD» »F INAl ANSWER 

SAVES/ : UNSIGNED WORD, ! SAVES Sl/E Of WINDOW 

Sl/E : UNSIGNED WORDj 'SIZE OK WINDOW 



X - . X . 1; 

IE . x GEU RDM LEN 
THEN X ••■ 0; 



■KEEP ROTATING RANDOM NUMBERS USED 



!/// 
Sl/E - ,HI I TM1 T .1.1) LIMIT j 
SAVE-S/ .HI t IMIT .10 LIMITj 

If i.SL'l t EQU KO ' //;;/• ) • I f HIT 1 s no I se t 
THEN ANSWER * ((.RANDOM [.XI AND *0*(W///," ) MOD (.SI/E » I)) 

!ONLt IS HIT WD, SO TAKE RANDOM SAMPLE 
ELSE } If, BIT WD 

BEGIN 

SIZE * .Sl/E t 1} 'MAKES SI/E A IS HIT LENGTH, OR DlV EH 
ANSWER - (.RANDOM (.Xl ANO WO/////') MOD (.Sl/E ♦ 1); 

•GIVES 1*> BIT RANDOM NUMEIE R 
ANSWER - .ANSWER » 1; 'BUILD UP TO REGULAR ST/E 
ANSWER » .ANSWER ♦ (.RANDOM l.x ♦ Ll AND Pi 

! RANDOM! i E II t HI T 
IE (.ANSWER GIRU SAVES/) » I TS POSSIBLE TO BE I IARGE-U THAN SI/E 
fHEN ANSWER - . SAVES/ j J SO CHE- 0< . 
E NO; 
RE I URN .ANSWERj 
t-NDj |END MODU AS RUUTINE-. 



VAX 11 Bl In«i U, V4.0 «,/<* 

DISK tUSER? :( POWERS j/RQADO , BL I |6 



/// 
/// 
/// 
/// 
/// 
/// 
/// 
/// 
/// 
/// 
/// 
/// 
/// 

/// 

> / f 

4 * 4 



sec; dim/ 

Page WW 



/// 



i * » * 
' * # < 



I'D ^04 



x : 



.BL KW 



t'WOOO 004 1'./ OOOOOOG 



U 00004 
O. iOiuW, 
UUOOlv 
OOOO.'O 
0000. .' 
OOOO/t, 

nooov 

0< M JO '»■ 

Q00040 



oo'W4*. 
oos* j 4 ; 

0.". .'.'/ 
00. '40.' 
00 SO 5/ 

ow^oo 

W,f>iOO 

i'l'lOOl 

010016 



00/504 
00 .' X04 

Oo <* 4o4 
00001.' 
000014 



OOOOJO 



MODU. A' 



.StUTl MODi 'l A. (U OB At ROUTINES 



1% 



JSH 


HI, J'.AU.' 


r-ii 


1 sp » 


INC 


■^ 


imp 


• t »>/o 


til ! 


1 1 


n r 


* 


MUV 


l.H SP ),R0 


' .* l»l 


».4l ',P ).R0 


M.J', 


R» .PI 


MOV 


HO.(SP) 






Hl.i I M I ' . • 

1 1 ' . i : m : • , * 

*,SMvl s/ 



e»v'*o 



/ROAM/ 
V01.6 

00004^ 
00004 »» 
0000* »0 
O000S4 
OOOOSo 
OOoOf./ 
O000n»i 
0000 '0 

oooo // 
oooo .■' ^ 

OOOLOO 
00010/ 
000 1 06 
00011/ 
0001 14 
0001 lr. 
0001// 

000 KM 
000150 

0001 A.* 
000 1 56 
00014/ 
000144 
0001 1 >0 
000 IV 
000 1 S4 

000 1 S6 
COOtf/ 

000 1 66 



015/00 
006500 
0/01// 

loioii 

Olb04t> 

04/ /i6 

Ol0l4h 
OOS/16 
004 75/ 
0004 5 1 
006/01 
0l604t> 
04/ ,'16 
010146 
OOS/16 

004 ' 5 / 

006500 
015/01 
006501 
11610/ 
04/ /O/ 
060/00 
01/ /Ol 
060ti 01 
0/0001 
10140/ 
016600 
06/ 'Ot» 
000/07 



RIVRX FXtRCISLH 
Gl.OHAi ROUT INKS 

00/504 

o //;// 

OOOOOOli 

100000 

OOOOOOG 



OOOOOOli 

100000 



OOOOOOli 

00/504' 

00000/1, 

1 '///6 

000004 



000004 
000006 



^$: 



5 J 





11 -Apr- 1S»H4 




11 Apr 1«JM4 


MOV 


X , RO 


ASl 


HO 


CMP 


R 1 , .' / ' / / 


HHI 


/$ 


MOV 


RANDOM(RO), - ( 3P ) 


B1C 


0100000, ISP") 


MOV 


HI, ( SP } 


INC 


I SP J 


JSR 


PC.Bl JMOU 


bh 


5$ 


ASH 


HI 


MOV 


RANOOM(RO), ISP1 


UIC 


0100000, ISP) 


MOV 


H 1 , ( SP ) 


INC 


( SP ) 


JSR 


PC.t3t.5MOD 


ASl 


HO 


MOV 


X.R1 


ASl 


HI 


MOVR 


RAND0M»/lHl) t RJ 


HIC 


0W///6,Rc? 


ADD 


R/.RO 


MOV 


04, HI 


rtOO 


SP.R1 


CMP 


RO,H 1 


m os 


5$ 


MOV 


41 SP ),R0 


ADO 


3».,SP 


RTS 


PC 



1 1 j S6 
ll:4 r j 



01 
0/ 



sr.Q om« 

VAX 11 HI i •!•* 16 V4,<) S/'i Page l^M 

l)lSK$USKR/;[ POWERS )/fRUA[)0, Hi 1}6 (6'>, 



SI/I-,* 

I Sl/fc,* 

i SI/* 

; ST/I-,* 

j ANSWt.R 

; * , ANSWf H 

; SAVl V, • 

; AN'.WM*,* 

; SAVEW. ANSWER 



6/lM 
6/1 / 
6/l>i 



'■/«"' 



'». '/S 

*.//6 



♦».VA 



aiva 



Maximum QtacU 



tiO words, Routine Base : 
depth per Invocation; V words 



*COUt* * 7506 



/RijA 
\0\ . 



C55 


1 


^54 


1 


»i\V. 


1 


v.<i- 


1 


• ..'5.' 


1 


ovs 


1 

i 


,/v-* 


1 


*.mo 


1 


vM 1 




».M.' 


fc 


..M5 


> 


>*M4 


1 


,.MS 


^ 


,.M», 


/ 


.,m : 


X 


kMS 


5 


..M'« 


j ( 



"H 



>.">5 

OS4 
».'SS 

v*s ; 

i.'SH 

>>, 1 

»>>4 

>.>/. 



HORX J -.tRCISER 

ERROR MESSAGT Sl'UKOUl LNl *.i 

ttsbttl THROW Mf-sSAGE SUBROUTINES' 

routine EMS .SA : novalue -* 



ll-Apr-l l *H4 lli'.fi'Ol VAX 11 Hlir.ti 1', VI , O S/S '^Vaae 'l>v-< 

11 Apr -1904 11:45:0c? DISIOUSER^} IPUWE '511RUADO.BL1 |6 (64; 



THIS ROUT TNI PRINTS UXUNOtP* THE GLOBAL DATUM "SA REG" WHICH CONTAINS 
THE CONTENTS UK THE SA REGISTER. 



>.>7 4 I 



begin 

' t .SA REG eql *o* 17/7/7' 
then 

beg i n 

PR IN IX (CHI > )j 

PRTNrx ( AS Tf RISK) | 

PRIN1X ( .CNTR ERR 10)); 

end 
el ye 

If (.SA REG and *o' 005/77*) lequ i\? 
then 

beg! n 

PH1N1X (CRl » ); 
PRINT* IASUH1SK >; 

PRINTX I .CNTR ERR ( .SA REG and tfo' 005777' ) ); 
end 
else 

If (( .SA REG and *o' 0057 77* ) 400) lequ h 
then 

beg » n 

PRINTX I CRl I )} 

PRINTX I AST f RISK ), 

PRINTX t.RORX.ERR [ i . SA RIG and Ho' 0057 / /■ ) 

end 
else 

PRINTX IEX..SA, .SA„REG)j 

* Ms. TIM I ) ; 
end; 



! IE CUNTRM IER TIME OUT 



! U GENERIC CONTROL i EH ERROR 



! U RURX SPEC1EIC CONTRULl.ER ERROR 



400) ); 



I PRINT CUNIENTS OK SA 



» TIME 



'HKKKIO 

OOOOO,' 
r-Owoo*, 
00001.' 
000014 
OOOO.'O 
1)000/4 
OOPO* ', 

0000 so 



01014s 
01 WOl 

0010.M 

OK-'/Ms 
OKsMs 
OIO'.OO 
UM41S 
01/' 7 if, 



ooooooo, 

OOOoOOij 
000001 



ooooooi 





.sUTTE 


t Ms.SA ERROR Ml 


iSAGE 


SUBRUUI INES 


EMS.SA: 


MUV 


HI, i SP * 








MOV 


SA.REO.Hl 




. 




CMP 


H 1 . it 1 








HNI 


I J 








MOV 


sCHl » , I SP> 








MOV 


01 , i iP *> 








MOV 


SP.HO 








'RmP 


IS 








MUV 


WAS Tt RISK ,( SP ) 







'>*.* 



■■ t M4 



., .1 ' 



*V'»o 



/ruan/ 
vol. 6 

oooo.<4 

000040 
00004.' 
000044 
0000 so 
O00OS4 
0000 S 6 
000060 
0000««.' 
000064 
0000 /o 
OOOO /4 
0000 S» 
00010/ 
000106 
000 1 1 
0001 1/ 
00011* 
0001// 

000 1/4 

0001.'*, 

0001 .v 
0001 .Vi 
000140 

000144 
000 ISO 
000 IV' 
OOO 1 S4 
000 1 St, 
0001*0 
000164 

oooi /o 

0001 /4 

oooi <■'> 

000/0/ 
000/06 
OOO,? 10 
000/1/ 

ooo/u, 

<-'oo/// 

000/ /4 
O00//6 

ooo/.v, 

OOO. '40 

000/44 
000/ SO 
000/S/ 
000/S4 

000/S6 

000/60 

oooato 



01/ .'46 
010600 
10441S 
01 V 16 
01/ ,'46 
010600 
10441*. 

0004 /s 

010100 
04/700 

o/oo/: 

UUO.M) 
01/. '46 
01/. "46 
010600 
1044 IS 
01// 16 
01/ /46 
01 0600 
1044 IS 
OH/00 

04/ mo 

006 ^ 00 
016016 
01/ .'46 
010600 
1044 IS 
0004 * ,' 
010100 
04/ /OO 
16/ /OO 
0/00// 
lOiOM 
01//46 
01/ /4r, 
010600 
10441S 
OK'/ 16 
01/ .'46 
010600 
1044 IS 
OU/00 
04// 00 
006 *00 
016016 
01//46 
010600 
1044 IS 
OOS/,'6 
00040/ 
01014*. 
01//4*. 
01/ /4b 



HD/HX b.XlHCISER 

FRRUR Mb.SSAGb SUURUUTlNbS 

000001 



OOOOOOG 
000001 



1 MOOO 
0000/6 

000 00 Oil 

000001 



11 Apr- VW4 11:S6:01 
U-Apr-1904 ll:45{0<? 



SIIQ 01 '#0 

VAX U HI. ok 16 V4.0 S/'> p oge y 4 $ 

0ISK$USKHi?jlP0Wf-R<i]/RQAD0,Bt.l|6 (64) 



000000(5 

000001 



OOOOOOG 
1 /4000 

OOOOOOG 
000001 



1 .'4000 
0006/0 
000006 

OOOOOOG 

000001 



OOOOOOG 

000001 



OOOOOOG 
1 MOOO 

I /6 540G 
000001 



00000/ 





MOV 


#1, (SP) 




MOV 


SP.RO 




TRAP 


IS 




MOV 


CNTR.bRR.CSP) 




MOV 


#1. (SPI 




MOV 


SP.HO 




TRAP 


IS 




HH 


M 


1$: 


MOV 


Pl.RO 




B1C 


01 /4000.RO 




CMP 


MO , 0/6 




HHI 


/J 




MOV 


OCRl f, I SP ) 




MOV 


01, (SP) 




MOV 


SP.RO 




TRAP 


IS 




MOV 


oASTbHliiK.CSP) 




MOV 


01. (SP) 




MOV 


SP , RO 




TRAP 


IS 




MOV 


SA.RbG.RO 




H1C 


01 MOOO , MO 




ASl 


RO 




MOV 


CN!R.bRH(R0),lSP> 




MOV 


01, (SP) 




MOV 


SP.RO 




IRAP 


IS 




HN 


M 


/*: 


MOV 


Hi .MO 




MIC 


01/4 000, RO 




sUH 


06/0 .HO 




CMP 


R0.06 




HHI 


4$ 




MOV 


OCHl t . i SP ) 




MOV 


01. (SP) 




MOV 


SP.MO 




TRAP 


IS 




MOV 


OASTt RISK.tSPJ 




MOV 


01, (SP) 




MOV 


SP.HO 




IRAP 


IS 




MOV 


SA.Hbl.. HO 




HIC 


01 .'4000. HO 




AM 


RO 




MOV 


HORx.'-RH 1440CH0)»(SP) 




MOV 


•*M . iSP) 




MOV 


SP.HO 




IRAP 


is 


M : 


T-.r 


l-.p^ 




HR 


4 J 


4$: 


MOV 


HI. (SP) 




MOV 


01 >,SA, OiP) 




MUV 


«j, -iuHi 



J SP.* 



: SP,* 



SP . * 



j SP.* 



J SP,* 



.p.* 



SP.* 



; sP % *. 



(itiW 



6; '4», 

6/S4 



6/S6 



6/S7 



«53 



fi, s-. 
6/6/ 



r»/*S 



»>/6n 



'>/6 



t>J?0 



-'Kd'»V "^ KMHCISKK ll-Apr-l*** U,Sf,j01 VAX 11 BUss W. V4 , ',/«> ^VaaeVn /Hi 

v01 -' 1 ERRUR MESSAGE SUBROUTINES 11 Aor-19H4 ll!4!ii02 PTr,KJir.ER2i[P0WERS]^RQAD0.BLli6 (Ml) VO: 



OvHV.Y 01 Of. 00 
000^*4 1.04 4 IS 



00050.: 0*0/0*. 000006 

000 J Oo OUhOl 

ooo <\o ooo.'o: 





> ] 1 S 




11 -Apr- 1<W4 1 1 : l ^>: 01 




11 Apr -1904 Ilj4!>i02 


MOV 


SP.RO 


TRAP 


l r > 


JSR 


PC .EMS. TIM 


ADD 


W..SP 


MOV 


CSP)»,R1 


RTS 


PC 



{ SP , * 0<H 

000/ 't* 004/'./ 000000V !>$: JSR PC. EMS. TIM , ,.,. 0v H 



Hoi.t'nf S!/e ; 101 words, Routine Hise: *C(H)E 5 * 74 76 

Maximum r.tock depth per Invocation: 7 word'j 



OOC 
OOv 
OOv 
OOi 
OOi 
OiH 
00( 
00( 
oot 
OOC 
OOv 
OOv 
OOi 
OOv 
OOv 

ooc 

OOC 
OOi. 
OOv 
001 

ooc 

00( 

OOC 
OOi 
00( 
OOC 

OOv 
OOC 

1*0* 

(AH 

; » 



V 1 f 
In > 



/RUA»V 




VOl. 6 




j *>. v /4 


1 


; *»..* "S 


1 


; fV /»» 


1 


; *v.v 


1 


; b fc ?'.*o 


1 


j r». % ' l > 


1 


; r H ?f<0 


1 


; h.V-l 


1 


; t».W 


1 


; h.'H* 


i 


; r>/M4 


> 


; h.\^s 


, ' 


j ri/>w» 


t 


; r. t *rt/ 


< 


; '.Vtft* 


? 


; •VM 1 * 


5 


J ruV'O 


;i 


; o.'V'l 


3 


; »uW 


* 


; n. >l M 


s 


e.^'M 


* 


; K? l *S 


? 


h.'^ti 


* 


: hi"*/ 


*, 


t fn"*H 


*> 


; tW* 


:*, 


i MOO 


s 


; b.'SOl 


'M 


; *>'iO,* 


K 


; t>50* 


*> 


; m«04 


ar 


; Mo'i 


t 


; *..Wi 


5 


: r.<o: 


» 


; r.50M 


/ 


j MO'* 


;*» 


; *>MO 


a 


; ».5U 


•/ 


; »..M t : 


* 


; »> M '■ 


.', 


; »i M 4 


■/ 


; h,MS 


/ 


; ».M»'-> 


/ 


; Ml/ 


/ 


; *.- 5 1 8 


*> 


; f » 5 1 % • 


i 


; M.'U 


', 


; M.\ 


/ 


t '>'*,. V 


jf 


; M.", 


7 


; #.',.'4 


I 


; *.''.."» 


'', 


t r, *.*t\ 


/ 



RO-RX EXERCISER 

FRROR MESSAHF SUBROUTTNl S 

routine EMS SBC : novalue 



1 1 Apr- 14H4 U -S^-Ol 
ll-Apr-1984 Hi45:0? 



VAX 11 Hliijs-l'i V4.0 \,n J Page' IV 

DISK $ USER2 ; [ POWERS ]/RQADO . »L. 1 j 6 ( 65 ) 



THIS ROUTINE PRINTS (EXTENDED) THF til OHAL DATUM "SB CODF" (SUB CODF) IK 
FTTHFR THE STATUS CODF C ST CODF) UR THF SUB CODF ISNON /FRO. (A 
NON-ZERO SUB CODF AlWAlS HAS SlliNlF ICANCE » WHEREAS A ZERO SUB -CODE ONI r 
HAS MFANING WITH A NON-ZERO STATUS CODF). 



beg in 

if U ST. CODF or .SB CUDF ) neq 
then 

beg! n 

PRINT X (I X SB); 

case .ST. CODE From ST SUC to ST DRV of 

set 



I ST. SUC J: 

I'-T .CrID] 
[ST .ABO J 
1ST. OFF) 

(ST AVI ): 
[ST.MFE]; 

[ST.WPTli 

I ST CMP] : 
1ST DAT); 

IST..HST ] j 

1ST .CNT): 



i t .SB CODF Lequ 1<> 
then 

PRINTx C .TBI „SMC I .SB CODF ])j 

PRINTX (EX.SBO, .SB ..CODE / fl)| 



i t , SB CODF lequ 8 
then 

PRINTX C.TOL.UFL I , SB CODF ] ) j 



I t .'IB CODE lequ 10 
then 

PRINTX ( .TBI M» F 1 , SB CODF ])} 



! PRINT SUB CODE ONE* UN ERROR 

! SUB CODE ; 

! SUCCESS sUB CODES 

TNVAl ID COMMAND 
COMMAND ABORTED 
UNIT OFFLINE 

• UNI T AVAIL ABl F 

! MEDIA FORMAT ERROR 



I f K .SB CODF / I 'A) lequ ' 
then 

PRINTX l , TBI WP1 It .SB CODE ' lc>«))); 



! WRITE PROTECTED 



! » .SB CODE Lequ IS 
then 

PRINIv t. .101 OAT I .SB CODF Pi 

i »' .SB COFU lequ 4 
then 

PR INI X U 'HI HST I .SB. CODE J )j 

: t . >,B CODt lequ < 
then 



! COMPARE I RROR 
! DA I A ERROR 

I H0S1 ACQ SS FRROR 

! CONTROL I EH FRROR 



.'ROAM, 
VOL 6 



632/ 
6328 
t-322* 
b330 
M31 
t.?332 

t>334 

b33t.. 
b33." 

6538 



RD.RX EXIRCI5ER 

ERROR MESSAGE SUBROUTINES 



[ST .DRV]: 



I outrange] 
t<ss J 



cr\cli 



.') 



ll-Apr-19tt4 11:56:01 
1.1 Apr 1 C W 11:45:02 

PRINTX C.TBI...CNT [ .SB ..CODE] )i 

• f . SB COOK lequ 8 
then 

PRINTX C.TRl.^DRV [ . SB .CODE ) )j 
PRINTX CfcX.SBO, ,SB_CODt)| 



SEQ 015-3 
VAX -11 HI ins U> V4.0 5/5- p QQe ;'M 

DISK *USER2:[ POWERS ]ZRQAD0.BL1|6 (65) 



! DRIVE ERROR 



! JUST PRINT SUB -CODE IE NU MATCH 



end; 



oooooo 

O00OO4 
000010 
00001? 
000014 

000020 

000024 

000026 

000030 

000034 

000040 

00004? 

000044 

000050 

000054 

000060 

000064 

00 006 6 

0000 /o 

0000/? 

000074 

00010? 

COO 1 04 

O00110 

0001 1? 

000116 

O001< 

0001c 

UOO 1 . 

000 1 30 

000134 

000140 

000144 

000146 

000 IS? 

000 1 56 
000160 
000162 



013 >00 
053700 
001001 
00020/ 
012/46 
012746 
20600 
104415 
013700 
02002 / 
101003 
006300 
06600/ 
013/16 
012/46 
012/46 
010600 
1044 15 
0??6?6 
000435 
023/27 
101165 
013/00 
006 '>uO 
016016 
012/46 
010600 
i 04415 
000565 
01 3 /lb 
01? M6 
004 7 3 / 
010016 
012/46 
012/40 

010*. 00 

104415 
062?G6 



OOOOOOG 
OOOOOOG 



OOOOOOG 

000001 



OOOOOOG 
000013 



OOOOOO' 
OOOOOOG 
OOOOOOG 
OOOOOO 



OOOOOOG 000020 

OOOOOOG 

OOOOOO' 

000001 



OOOOOOG) 

ooooio 

OOOOOOG 

OOOOOOG 

00000? 



000006 





25HTTL 


EMS. SBC ERROR ME 


EMS, 


SBC j MOV 


ST .CODE- t R0 




BIS 


SH.COOE.RO 




HNE 


1$ 




RT5 


PC 


1$: 


MOV 


OF X , SB . 1 SP ) 




MOV 


01, (SP) 




MOV 


SP.RO 




TRAP 


15 




MOV 


ST . CODE.RO 




CMP 


RO.013 




BH1 


3$ 




A 51. 


RO 




ADD 


P,AAA(RO),PC 


3$: 


MOV 


SB . CODE . ( 5iP ) 




MOV 


OEX.SBO, -(SP) 




MOV 


02, (SP) 




MOV 


SP.RO 




TRAP 


15 




CMP 


( SP ) ♦ , ( SP ) 1 




BR 


6 J 


4$: 


CMP 


SB . CODF , OSO 




BM1 


145 




MOV 


SB 2C0DE.R0 




A5L. 


RO 




MOV 


TBI .SOC(RO).CSP) 




MOV 


<U , ( SP ) 




MOV 


SP.RO 




I RAP 


15 




BR 


15$ 


5*i 


MOV 


5H.C0DE.t5P ) 




MOV 


» 10, I 5P 1 




J5R 


pc, hi iorv 




MUV 


Ro, 1 SP J 




MOV 


<»EX25B0, ASP) 




MOV 


<V. iSP) 




MOV 


SP.RO 




I HAP 


15 




ADD 


06, SP 



SP.* 



Cnse diopatch 



SP . ♦ 



H2fl!: 



6288 



6290 



6 33 3 



o?/>0 
62^5 



5P , ♦ 



bJI^V 



l SP,* 



M' 



/R0AM2 
VOl. 6 

000166 
000170 
0001/6 

000200 

000204 
000206 
000212 

00021 6 

000220 
000??? 

000224 

000232 

000234 
000240 

000242 

000246 

000252 

000254 

0002 56 

000260 

000264 
000270 

0002/4 
000276 
000302 
000304 
000306 
000312 
QOjMG 
00 J 320 
000322 
000324 
000332 
000334 
000340 
000342 
000346 
000352 
000354 
00035*. 
000*60 
000366 
0003/0 
0O03 /4 

0003 76 
000402 
000406 
000410 
000412 

0004 14 
000422 
0004/4 
000450 



RD/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 



11 -Apr- 1984 11:56:01 
U-Apr-19U4 11:45:02 



00054b 
023727 
101142 
013700 
006300 
016016 
012746 
010600 
1044 15 
000527 
02372/ 
101124 
013700 
006300 
016016 
012/46 
010600 
1044 15 
000511 
013716 
012746 
004/3 7 
005726 
020027 
101100 
006300 
016016 
012/46 
010600 
104415 
00046/ 
023 72/ 
101064 
013700 
006 300 
016016 
012/46 
010600 
104415 
000451 
023/2/ 
101046 
013/00 
006300 
016016 
012/46 
010600 
104415 
0004 3 3 
023/2/ 
10 1030 
01 3/00 
006300 



OOOOOOG 000010 

OOOOOOG 

000042' 
000001 

OOOOOOG 000012 

OOOOOOG 

000064 • 
000001 



OOOOOOG 

000200 

OOOOOOG 

000002 



6$ 
7$ 



8$ 



9$ 



000112' 
000001 



OOOOOOG 000017 

OOOOOOG 

000120* 
000001 

OOOOOOG 000004 

OOOOOOG 

000160' 
000001 

OOOOOOG 000005 
OOOOOOG 



105 



11$ 



12$ 



BR 


16$ 




CMP 


SB, CODE, #10 




BHI 


16$ 




MOV 


SO.CODE.RO 




ASl. 


RO 




MOV 


TBI., OKU RO), 


(SP) 


MOV 


#1, (SP) 




MOV 


SP.RO 




TRAP 


15 




BR 


15$ 




CMP 


SB. CODt. ,#12 




BHI 


16$ 




MOV 


SH.CODF.RO 




ASl. 


RO 




MOV 


TBI.. MP ECHO), 


(SP) 


MOV 


#1, (SP) 




MOV 


SP.RO 




TRAP 


15 




BR 


15$ 




MOV 


SB.CUDE.C5P: 


1 


MOV 


0200, (SP) 




JSR 


PC.Bl.$DIV 




rsr 


(SP)» 




CMP 


R0.#2 




BHI 


16$ 




ASL 


RO 




MOV 


TBI .WPTCRO"). 


C SP ) 


MOV 


«l. (SP) 




MOV 


SP.RO 




TRAP 


15 




BR 


15$ 




CMP 


Sil.CODt , #1/ 




BHI 


16$ 




MOV 


SB. COUt ,R0 




ASl 


RO 




MUV 


T Hi .UAIIHO), 


( SP ) 


MOV 


01. (SP) 




MOV 


SP . RO 




TRAP 


15 




BR 


15$ 




CMP 


sb . coin: , #4 




BHI 


1M 




MOV 


SB. COOK, HO 




ASl 


RO 




MOV 


!Bi .HSU HO), 


I SP ) 


MOV 


it\ t iSP) 




MOV 


SP.RO 




TRAP 


15 




BR 


155 




CMP 


SB. COOr .#3 




BHI 


16$ 




MOV 


5H, CODt, KG 




ASL 


RO 





5EU 0194 
VAX-11 Blir,?; 16 V4.0 579 p aa<? \<M 

DT5K$USER2:[P0WERS]^RQADO.BLlj6 C65) 

{ 6290 

i 6301 

i 6303 



} SP,* 



J SP,* 



J SP, 



i SP,* 



; SP,* 



6 30/ 
*>30"> 



6311 



^313 



t>3i; 

*»319 



n^.'i 
o32? 



f,3.- ; '. 
o3J7 



NIL 



) 



2RUAMJ 

V01.6 

00045,? 
Ou04 5e** 
00044.* 

000444 
00044b 
0004 SO 
0004S6 
000460 
000464 
000466 

0004'/ a 

0C04 /6 

ooosoo 
ooo so;* 

OOOS04 

000S06 



016016 
012746 

010600 
104415 

0004 IS 

o?.y??? 

lOlOli? 

013/00 
006500 
016016 
OIL' 746 
010600 
1044 IS 

005 /06 
t V6 t '6 
000 JO 7 



RU/RX 
ERROR 

0001 7r' 
000001 



LXhRClSfcR 

MESSAGE SUBROUTINES 



oooooog ooooio 
oooooor, 

000. HV 

000001 



11 -Apr -1^84 11:56:01 

11 -Apr-19«4 11:45502 





MOV 


TBL.CNT(RO) 


(SP) 




MOV 


#1, CSP) 






MOV 


5P.R0 






1RAP 


IS 






BR 


1S$ 




1 3 f. : 


CMP 


SH. CODE, #10 




14$: 


BHI 


16$ 






MOV 


SB. COOL, RO 






ASL. 


RO 






MUV 


TBL.DRV(RO) 


(SP) 




MOV 


#1, (SP) 






MOV 


SP , RO 






TRAP 


IS 




IS J: 


1ST 


csn + 




16$: 


CMP 


C SP ) * , ( SP ) ♦ 






R1S 


PC 





; Routine Size: 164 words, Routine Ltase; SCODE* ♦ 10010 
; Mrtvimum ^tock depth per Invocations 7 words 



SfcQ 01 ( >S 
VAX 11 Bliss- 16 V4. 0-579 P 0Q e 10S 

0ISKSUSER2: [POWERS "J/RQADO .BL1 ;6 (6b) 



; SP.* 



SP,* 



6 *>? c > 
6531 



6,»^ ' 



000000 



PSECT SPLITS 



PC 



D 



000000 
OOOOOJ 
000004 
OOOOOvi 

ooooio 

00001 J 
000014 
000016 

ooooio 

0000»V 
0000J4 
000026 



00CKV4 

000060 
0004 54 
0001 JO 
0004 54 
000 1S4 
O0OJ10 
0004 54 
000 J 54 
000510 
000 5.4 4 
000400 



P . AAA s 



WORD 


J 4 


WORD 


60 


WORD 


4 54 


WORD 


wo 


WORD 


4 54 


WORD 


1S4 


WORD 


210 


WORD 


454 


WORD 


2S4 


WORD 


510 


WORD 


544 


WORD 


400 



CASh 
[4$ ] 
IS$] 



Table For EMS.SBC*0044 



6290 



f 16 
[?* 

[Hi 
[«$ 

116 

110$ 

I its 
( 1J$ 

113$ 



$ ] 



$] 



/HiJrt 



V 



• MO 
.'•4 1 

<4." 

. <44 
. <4*. 
. <4*. 
, 14 ' 
. <4^ 
,<4 * 

• <', v > 
". ' 

■ *'., 
*.' . * 

.•■.4 
. IV. 

, V, ' 

. V.H 
, V, * 

,'t.\ 
. V,. 

» V.4 
. *,t,', 

. *>*, ' 






HO *U I XI HC'M W 

f-HROR Ml *-SAl'.| '.IHHUH'I INI '. 

routine IMS CMD ; novnlue 



11 Apr l'*H4 lll r »^i01 
11 Apr 19H4 Ui4fjf0; s 



jECI 01% 
VA* 11 Ml.fifi i'.. V4.0 V"# P ao « i'^, 

DISKftU r >FR?i [POUFR r i]/RQA00.Rl 1;6 fw^ 



tMls ROl'UNI PRINK iMTINOID) T Ml OPCOOI AND COMMAND MODI* II R i If 
PM|*.IN1> ill rut CURRENT Rt Ti.JRN PACK! T , THI M I II I [)', AR| "THANSlATfD 
INTO tNM rsH ||XT HAT MIR TmAN PR I NTH) A 1 ", RAW NUMfil RS , 

IMtn ICIT INl'i'T-.i 

RP AODW AOORI'JS Of THI CURRENT Rt-'TlINN PACKH 



beg ' n 

PRINT * K \ k CMO 'i 

«el«cton«u (.HP ADDR U'NDCODl nnd DP MSK ) of 

set 



I OP ONt ): 
I OP AfC 1 : 
I UP RD): 



;i)P h'RT ) : 






PRINT* (I x UNI ) { 
PRINT* CI- X ACC >| 

b«U> n 

PRINT X I'M Hi) >i 

If .HP AOOR ICMOMDD) n«q 
then 

PR INT X a.X CMP), 

end j 

beg- n 



!>««■ n 

PRINTS ({• x WR! i 



•♦ ,HP «IH)H [CMOMUOJ ncq O 
then 

PRINTX U'X CMP), 

e^d; 

PRINT* (f- OP, ,I»P ADDR UNOL(H))), 



end i 



J "COMMmNO: ' 

J UNi INI 

» mCCI . . 

; Wl AD 

» CAMPARI 

■ WRIT! 

J CDMPARt 

! INDCOOt vAtm D N 1 ) ma:o 

! RlU'TINr I Ms CMO 



«-•.)' 



i H>}ij\ii 


1)1/4 I *. ' 


t* (jot j o*>', 


UM)0u4 


•n, ' p 4». 


mien t'c.Ki 


(i'ii 1 1 J , 


■I '4' 


00000 I 


' ■ -aj : l 4 


4 :• »..../ 




OCwOl*i 


104415. 





.^'■l <". T 


1 M . . uMll 1 WHOR 
I'.'i'lH 1 . RD 


Mi ly 

Mi ! . 

TRAP 


Ml . * -»Wl .' 

PI « .CM(j C ^m : 

01 . < ;M1 

IH 



» * < « 



sp** 



h> 



.'RJ4M/ 
VOl . *> 

i\W,V 
IWHV4 

OOiV<4 

00004f. 
i-OOOS/ 
i VOO'»4 
OOOOSf. 

oooot.o 

i\K>0t«4 

OOOO.'.' 
OOLV '*< 
OOO 10/ 
000 10/ 
000 104 

ooo i i o 

oOOll.' 
OOOUfi 

ooo i/. 

000 W:4 
OO0l> 

000 1 5 

» "*i V Mr » 
000140 
000144 
000 1'>0 
000 IV 

000 1 S4 

ooo is*, 

oooi*./ 
tni'ji».4 
OOOi *U 
OOO! 'A 

"001 .**, 

I'UO/oO 
0..0/04 

■ Oo 4 It: 

1 " '»»/**, 

<"'i\V.' 
l.Oi V/'- 



DOtl 



'■t 



ot >o.' V 
« u iO,' *i4 
miUi' *». 
t HK.i/4, ' 

( M,!| ) 4 '4'» 
I'i'-IJ '. 

000^4 



01 V\V 
Il*>/01 



04. 



I 



ooioo : 

01/ 'If- 
01/ *4t^ 
OUH.00 
10441*. 
0004f>4 
0/01/ ' 
OOUV ' 
ol/'l* 

oi.'/at. 

(UOt)oO 
1044 r. 
0004 «»/ 

o/oi/; 

00 10// 

oi/-*i* 

0l/-'46 
OU .'.00 
10441V 
015/00 
oos >»0 
0014 44 

oiiVu. 

01. .'4t» 
010*00 

1044 1'. 
0004/4 

o/oi/: 

0010/4 

oi//i*. 

01/ -'4*. 

lv>441 t . 
t»l '. TOO 

uii'i '».t» 
wo 140/ 

oi/.':*. 

«U/-'4». 
lo*»00 
1»>441S 
ouS ,\»#, 

oos/. >. 

OOO 4 I,- 

0< soi*. 
l l*-/l#i 
»:; M*. 

|/1 • '4#. 
< ;. *y .J 
U441L 



MO W\ t \| HCIMR 

tHHON Ml SSAfit SHHHUUT1NIS 

OOOOOOii 

oooo i ; 
t ; .s.oo 

0000 1 1 

OOOOOiXi 
00000 i 



0000/0 

OOv'OOO^i 

000001 



00004 I 

00000iX. : 

00000 1 



ooooooo 

0000 1 / 

000000/ 

000001 



000047 

OOOOOOii 

000001 



OOO/ (XX i 
00001/ 

000 0000 

00000 1 



OOOU14 

0< lO» !t lO^ 

OOOOOi? 



11 Mp l'#H4 1 1 *'»f, : 01 
li Ap> 19H4 llt45;0<> 





MOV 


RP. ADDR.R/ 




MOVH 


14(R/ ),H1 




HIC 


1 //hOO.Rl 




CMP 


Rl.oll 




uni 


11 




MOV 


OF X . ONI , <, SP 1 




MOV 


1 , ( SP ) 




MOV 


SP,H0 




TRAP 


IS 




RR 


M 


1$; 


mp 


Rl ,0/0 




HNI 


.'* 




MOV 


0* X.ACC.iSP) 




MOV 


01, ( SP) 




MOV 


SP,RO 




TRAP 


1'. 




MR 


SI 


/i: 


C^P 


Rl ,04 1 




HNI 


11 




MOv 


Of X.R(),( ,P} 




MOV 


01, l SP ) 




MOV 


SP.RO 




[RAP 


l r . 




MOV 


MP.ADOv.RO 




T'.T 


1/(H0) 




HI J 


SI 




MOV 


Of » .CMP, I SP) 




MOV 


01, ', SP ) 




MOv 


SP.RO 




TRAP 


is 




HM 


4$ 


M: 


CMP 


Rl ,04/ 




HNI 


M 




MOV 


Of v,j|j! ( ( .;p , 




MOV 


01, i .PI 




MOV 


SP.RO 




I HAP 


is 




MOV 


RP. 'tnOR.Rii 




T , t 


I. >U0 ) 




M U 


Si 




MOv 


ot '«• .CMP, . *,P i 




MOV 


cl, , -.I-'. 




MOv 


SP.Hi) 




TRAP 


r. 


4$ : 


! ' , f 


i ,» ■ * . 


*•* : 


I '/ 


i r ' t 




MR 


J 


fc*; 


Cl H 


i P 




MiWM 


14 OS- i , . -,p 




M.1V 


of- .'IP, vSP N , 




Mi U 


, ' ,P> 




Mi ;, 


1 ^',H0 




IRAK 


l*i 



VAX 11 HI ; n rj 1*. V4,0 s/s 
[)TSIMUSfc'R,>:[ POWERS )/RQADO.Bl ij^ 



J SP,* 



i SP.* 



j iP,* 



l SP,* 



; .P.* 



I .P,* 






^■s^ 



6 2S8 



6561 
*?$ *4 



t ? 



a;'M 



i &**•• 



) h 



WM '* 1 trtHOHMl.ssAl.l-- SLWHOUTlNtS 11 Apr- 1**4 U;^:02 DISK tu*EH,ii [ POWtRS 1/RQAQ0.BL1 ;6 ( *U , 



iVO.W O.VfO* M: CMP r.H)*,(SP)i 

OOO.V..' iHKVO * HT'» PC 

; Ko.it "ne '-.'e, 'V words, Hputlne t)n*.e : *UJOL* * 10V0 
j Maximum *tack depth per Invocation: ^ wordti 



65 59 



f 



/RiHM/ 




\0\ % h 




i MA/ 


1 


; M.l* 


1 


; MH4 


5 


; MH\ 




j MS*. 




; r. <i+ ' 




l ».'-SA 




; f-'.S'l 




; f.l^O 


, 


; •.<»! 


, * 


; P M'V 


v ^ 


r.Vt< 




; M<*4 


t ' 


; M'* 1 . 


t ' 


; r.*.-»r. 





HO WX t.XtRClStM 

I whom mi '.saui sukroutink 



11 Apr l'#H4 11 :Vi:01 
11 Apr 1%4 11 t45iO«? 



U OHAl FiOHTlNr I- MS DUN : NOVAl Ut - 

THIS ROUT INI PRINTS TH| PRISINT OHN 



) i 
t 

i 
i 

i 



IMPLICIT IMPi.il',; 
CST AUDH 



AUDRl.SS Or CONTROL!. LR STATUS TABL I 



kit i. IN 
PR IN Ml 
PR1NTH 



i XXI J, .COISK ) j 

IXX/*. .CST ADOR [ .CUOM 

I ,CU)M 
OOPPKI ,')| 
PATHHN); 



i XX V 
( X X ', 5 



m^a i 



PHlNUl 
PWINIH 
I RINTH 
IMs HI K IDUPPKT 

e'NDj 



.U>UPPKf t .S OUPPKT), .IDUPPKT ♦ 
\ /S6); 



•"DIV. x • 

Or OHN, I) OHN), .CST ADOR 

0> DBN, OOHNDi !"OHN: XX/XXX 

.'PRINT Rt If COUNT 

(PRINT J H\ PAT URN 



'afcU 019'* 
VAx 11 Hi:«»*» W. V4.0 S/9 Page 199 

Dr;i<IU , ifcR^:lPOWtR l b]/nQADO.BL 1;6 C6/; 

/// 
/// 
/// 
/// 
/// 
/// 
/// 
III 
/// 
/// 
/// 
/// 
III 
/// 



. S DUPPKT))| • PR INT rn» u' IRD Rt At) 

.'PRINT UHOLt-: Bl oo< Re. AD 

!IN OCTAl }/// 



mi: 



• MOOOO 1 *> "4? . OOOOOOt ■ 



SHVTl. J- MS. OHN IRROR MtSSAOt SUBROUTINES 



000004 
OOOO 10 
000O14 
0000 If. 
OOOO.'O 
0000.4 
0000. 't . 
0000 V 
OOOOM 
000040 
00004.' 
O0004*. 
OOOOS/ 
Ok, O'rfi 
0000*0 
0000*./ 
oooO>.f. 

ooo);.' 

0000 >> 

000 lu/ 

* '00 1 04 

* 1 00 10*. 

0001 1,' 
0O011* 
ooOl// 
O001/4 

oooi/*. 
oooi V 

000 1 v, 

O00l4> 
000144 



01.' 'At-, 
Dl.'.'4fi 
01 Of. 00 

104414 

oi *;oo 

00t^^00 

0*> % '00 

OO'n'U'i 
ll"01f. 
OOS046 

iu>ou. 

01.*/4li 
01//4C 
OlOfiOO 

104414 

Ol</W» 

IK'-It 

01//4* 

OK' .'4 6 

010>»00 

104414 

oi</u, 

Ol.'.'4*» 
Ol.»/4f> 
010*. 00 

104414 

01 */oo 
oir«a»> 

01 l^4r, 

i.»l.'/4*i 



O0000v\t 
00000/ 



oooooot; 
ooooooo 
oooo/o 
oooo/o 

0000000 
00000 X 



oooooot; 

00000/ 

ooooooo 

00000/ 



000000( , 
0000000 
00000/ 



OOOOOOi, 

oooooot; 

OI )l lUil(H; 

00000', 



UMS 


.OHN: : 






MOV 


CDISK. t'.P) 




MO*' 


ax<M, C ,; P> 




MOV 


*/, (SP) 




MOV 


SP.RO 




TRAP 


14 




MOV 


Ci»o» t .wo 




ASl 


RO 




ADD 


CST .AOOR.RO 




riR 


(sP) 




MOVH 


/OlR0),( SP) 




Cl R 


l SP) 




MOVH 


/O(RO).vSP) 




MOV 


OKX/*, iSP) 




MOV 


<H, tSP) 




MOV 


SP.R0 




I RAP 


14 




MOV 


s . t>i w*i< r ,('.*' ) 




son 


«/.\SP ) 




MQV 


#XX3/ t ^ 1P> 




MOV 


«.. , i tSP) 




M{)V 


SP.HO 




* -JAP 


14 




MOV 


'..PA! U WN,j sP^ 




MOV 


y < ■ M , i -,p 'J 




MOV 


^. . i sP ) 




MOv 


'.P. WO 




! WAP 


14 




M()v 


'..OiiPpH 1 ,Ro 




MOV 


t)l«-'PK I ( HOI , ( SP") 




MOV 


( -,P>, v ,P ) 




Mij; 


OAt ^4 , (, ,P ) 




MUV 


05 ♦ ISP) 



IP , ♦ 



hV-i; 



'.'.^5 



Sl\* 



r,s-M 



;p 



»p.» 



^ < *s 



t»?N*r 



h.» 



OOO iSv^ 010*00 



0001V 
000 1'*4 

0001*0 
0001*4 
0001 .'0 

oooi *4 



104414 

oo4 .". / 

Or,' .'Oh 
OOO.'O .' 



MO MX i \[ HC I'it:« 

KrtROR Mr.SSAGl SUBROUTINE 



00000. Mi 

000400 

000000V 

000054 



MOV 


SP.RO 


TRAP 


14 


MOV 


0DUPPK T ».?, 


MUV 


4400, (SP) 


J'iM 


PC, fMS RLK 


ADO 


^ ^4 , SP 


NTS 


PC 



I 1 Apr l f >84 11:^:01 

II Apr-1984 lls45:0J 



.ISP) 



VAX 11 HUr.s 1>. V4.0 S /«* p QQe ,-00 

DISK i'JM.Rc? : ( POWt.PS 1/RUADO . BL 1 ;6 ( ft 7 j 



J SP , ♦ 



*,5 *>/ 






Rout'oe l »'.-e: f.« nord*., Routine Mane: JCUUbJ 
M»> : mum stack depth per in/ocationi lb words 



11004 



t>400 1 



0. 



.'ROAM,' 




HO R\ I 


s . 1 . t» 




t RROR r- 


; MO I 


1 




; f..WV 


1 


lit OH At. 


j r.405 


1 




; r..»04 


1 


i . 


; t-40S 


1 


; 


; r.i40f* 


1 


i 


; r.40.' 


1 


i 


; r-40S 


i 


i 


; *»40 ; » 


i 




; '.410 


i ' 


MU.IN 


; '>4 I I 


i 


1 UFRAl 


; *.4l.' 


i 




; "4i'. 


t ■ 




; '.414 


t * 


PRINTX 


; #,41S 


* 




; *-41». 


5 




; ».4l ' 


5 




; f.4 1S 


3 




; r.41 l * 


S 




; »»4 4 ?0 


5 




; f.4,'1 


5 




; ».4A' 


* 




: *»4.*5 


* 




; f>404 


4 




; '.4.", 


4 




; f»4.V, 


S 




; *>4.\' 


f 




; '»m 4 \H 


i 




; M f ?Q 


1 





11 Apr l'*H4 11 :',',•()) 
11 Apr-l<w4 UtVj'.Oa 



VAX 11 HI i«v» 1'. V4.0 ',/'♦ 

DISK JUSt-.RP ; ( POWP.RS ) /RQADO . Bl_ 1 j 6 



Pog« ;-oi 
(68) 



ROUTINh t MS Hi K (ADDR, IKNGTH) ; NOVAl Of 



THIS ROUT INI Will PRTNTX A \\\ [\QK U» MINOR*. WHICH IS IfcNClH' 
WORDS lONt; STARTING AT AOURfcSS 'ADDR', PRINTING IS DONE IN OCTAL 
tt WUS TU A LINK. 



MASK 



*o 



•FUR tACH WD TO PRINT 



(CRl F )j 
1NCR COUNT FROM 1 TO .IF'NliTH DO 
HtlilN 

IF ((.COUNT 1> AND MASK) H Ut !IF START OF NF W l.INL 

THt-.N 

PRINTX (SPACF4); 'PRINT 4 HI ANKs 



PRINTX CE X WRD, . . ADDR ) j 
ADDR - , ADDR • ;?; 



•PRINTX A WORD 
J TO NF ; XT ADDRfr-'SS 



KND; 



T> (((.COUNT AND MASK J F k)[ 0) OR .'! NO Of , INK OR 

I. COUNT t-Ot .If-NliTH)) !UHt'N DONE* 

THF N 

PRINTX (CRl.F')j {PRINT CR [V 

t-NDj 



/// 
/// 

//: 
/// 

/// 
/// 
/// 
/// 
/// 
/// 
/// 
/// 
/// 

/// 

» t ■» 

« ». * 

in 

* * t 

* * * 

/// 
::: 
/:/ 



/ « / 



000000 01014*. 



* -'0000c.' 
0000or> 

*)00()1. > 
U00014 

noooif. 

oooo.-o 

IH>00 4 V 

U000.'4 
oOCKV'i 

<>ooo V 

UOOO ^4 
000040 

000044 
O0004*. 
UOOOSO 
OOOOS.' 

DUOO'i') 
<m')(H>, 

UOOOMi 



01,74», 
010/4*, 
010*00 

10441S 

oosooi 

00044S 
010100 
OOV'.OO 
OV.'OO 
00100/ 
Ol>>/\h 
01 0/4* 
010*00 
10441'. 
OOS -*,'#, 

01 :*i* 
OK /4r, 

\'l.' .'4». 
010600 



OOOOOCvi 
000001 



00000 / 

OOOOOOti 
000001 



OOOoL- 

U\A>UUOlj 

OOuOOO 



1$ 



. SHTTL FMS.RlK F RROR MF SSAlil SUBROUTINES 
FMS.FJLK: : 

MOv Rl , <. SR t . 

#C'Hl ►, olF») | 

01. (SP) 

sP.RO . sr.. 

is 

Ml ; J—N' 

M 

Rl.RO ; COUNT ,♦ 

NO 

o:,ro 

05 

0".rS\Ct 4,l l lP) ; 

i>l, 1'IP) 

'P.RO ; ■,[',♦ 

1 I ( 

(\p '. 

u)l«'( SP >, I SP ! ; 400R, * 

OF*.WR[:, l SIM 

o. 1 . ■ .P ) 

SP.RO ; sp. 



.*J 



MOV 

MOV 

MOV 

TRAP 

CI R 

FiR 

MOV 

DF C 

Mil 

P;i 

! .IV 

njv 
MOv 
I RAF 1 
T .T 

MOv 
MOV 

MOv 
MOV 



^40/ 
64 ;a 



4 1 : 



t>4i: 



► 4!) 



t>4/ 1 



■ h) 



/HU.4M/ 

vol > 

000 V 

0000 V 
000100 
000104 
OOOlOfi 
00011/ 
ooo 114 
0001. V 
UOii KM 
0O0K>* 

0001 <o 
00015/ 
0001 54 
*voi '-<« 
00014.' 
000144 
00014'* 
0001"'0 



10441S 

U.V\U 
00140 5 
0/0 tM* 

oo too; 

1 / / 1 f , 
0K>:4t, 
OlObOO 
10441'. 
00**.V»i 
0//e./r 
OOS/01 
0/OW>t» 

O/.Vi/r. 

Ol/oOl 
000/0 ' 



HI) -MX i.\k RCISt.R 

l-.HHUH MLSSAta SUUHUUTINtS 



00000.' 

ooooo ; 

000014 

OOOOOOCi 
000001 



000010 



0000 lb 



11 Apr I'tM U:Su. -* 
11 Apr X9«4 ll:4SiO«i 





!HAP 


r. 




ADD 


3 \ l'A SP) 




HI ! 


3/.R1 




Hf-tJ 


M 




CMP 


R 1 , 1 4 ( %P ) 




HNt 


4i 


5i: 


MOV 


6cri ►- .ti'.tn 




MOV 


*1, (SP) 




MOV 


SP.RO 




1HMP 


l'"» 




I'.l 


. ,P ', . 


4$ : 


CMP 


< ',(»}. ,r»P ) 


5*: 


INC 


HI 




CMP 


HI , UK'.Pl 




HI I 


1 \ 




CMP 


( sp :.,'. ,pi 




MOV 


tSP)-.^l 




R!'. 


PC 



sua oxo? 

VAX li HI ins 1*. V4 , S /') Paa* ^0/ 

t)r'il<HJSrR ( >:lP0WHRS)/RQAD0.BLl;6 f ^ ; 



; ♦,A()fjH 

; ♦.CO'INT 

: COUNT, LENGTH 



; SP.t 



; COON' 

; COUNT, LKNGTH 



M, / 
M/4 



*.4;r 



* 4 : • 

MO, 



Hout In* S-.*e: *• * wore**.. Routine tlaue : 

Maximum stnck depth per invocation: 8 wordf 



JCUDfc'J ♦ lli?0%? 



r.4.V 
64 51 



i !< 



.'RJAM % ' 
VOL 6 



<4 A.' 

*4M 
.4 V, 
»4<*. 
>4 * : 
•4*rt 
i4.<-# 
.440 
•441 
.44/ 
>44'. 
•444 
.44 S 
•44t> 
»44.' 
.448 
>4 4^ 
.4 SO 
,4S1 

>4V 
>4S* 

•4S4 

•4V 

'.4Sh 

>4S,' 

»4'iH 

i4SS» 

■ 4nO 
»4f>l 
»4f.,' 
i4#i^ 
»4*»4 
i4». 1 . 
>4^ 
.4^ / 



HD H\ EXtRCISEH 

ERROR MESSAGE SUBROUTINES 

routine EMS LBN : novalue 



11 Apr 1<W4 11:S*jj()1 
ll-Apr-19tt4 11:45:0^ 



VAX 11 HUsb i>, V4.0 S/S» 

1 SK 5U5ER? • ( POWERS ]/RQADO . Bl 1 ; h 



sf.q o;»o», 

POQ* ,'0'» 



this routine prints (extended) one of two block numbers appearing in 
the current return packet. normal. 11 , the lbn riel.d is printed; ihi 1 , 
f ielo was copifo ink, the return packet from the associattd command 

PACKET. HOWtVtR. I' THE "F I AGS'" F IEl D Of THE CERENT Re 1 1 )RN PACKET 
INDICATES" M BAO BLOCK REPORTED", THEN THE "FIRST BAD FUOCK" F IEl D IS 
PRINTI D. 



IMPLICIT INPUTS 
RP ADDR 



ADDRESS OK THE CURRENT RETURN PACKET 



beg in 



If (not BI1..TSI (RP..AODH I H.AGS ] . U BBR ) ) and 

(not BTT.TST ( RP ADOR (MAGS). EF BHU)) 
then 

PRTNTX (U LBN. .RP ADDR ll.BN.LO], .RP .ADDH iLBN.lOl.ij 

If Coot BIT ..TST (RP ADOR (FLAGS), EF BBR)) and 

IHIT.^T (RP AODR I H AGS ] , EF BHU) ) 
then 

PRINTX (EX HBU, .HP. ADDR IBBLK 10). .RP.AODR [ BBl K LO))j 

:r (BIT TST (RP.AODR (HAGS), FF BBR)) and 

(not BIT TST (RP ADDR [ f I AGS ) , tF BBU)"> 
then 

PRINT X (EX BR, .RP ADDR ( BBL K 101, .RP ADOR IBBl.K.lODj 

It (BIT TST (RP ADOR [FH.iSl, EF BBR)) and 
(BII IS! (RP ADOR tF-'M S). EF BBU ) ) 

then 

PRINTX (EX„BB1, .RP...4D0R IBBLK .10), .RP ADOR 1 BBl k I Op; 
end,* 



I If NU BAD BLOCK FOUND 



! IL BAD BLOCKS > JUND AND REPl ACEf; 



! V HOST REPl.ACt SltU E BAD BLOCK FOUND 



! IF MORE THAN I HOST RE Pi ACEABLi BAD BLOC" F'OUNt: 



ouOOuo 
000004 
o 000 10 
U0001,' 
0000, '0 
0000,'. * 
UOOO.'t. 
0000*0 
0000 *4 
000040 
00004.' 
000044 

ooooso 
00OOS4 



OH 700 
10S/60 
1 004 I / 
1 V ?(>Q 
00101 * 
Ul»>04fe 
01164t> 
01 ^/4«. 
Ol^fAh 
OtO'.OO 
1044 IS 

< 1 ^:'00 

lOS/bO 



00 000 Oil 
OOOOIS 

000100 OOOOIS 

OOOOSO 

OOOOOOli 

00000* 



000010 

i>[): OOOU 
OOOOIS 



,SBT 11 


» Ms. i UN I RROR ME 


*»sai;i 


SUBROUTINE 


EMS.LdN:MOV 


HP. ADOR, RO 






ISTB 


lS(ROt 






BMI 


1 s 






BITB 


oioo, r.( ro ? 






BNt 


it 






MOv 


'■'KMO >, 1 SP > 






MOV 


v ',»' 1 . t. \P t 






MOv 


«» •« .i BN, (SP) 






MOV 


<M, f ,P) 






MOV 


SP.RO 






IHAP 


is 






ADD 


OlO.'.P 






U: MOv 


HP. ADOR, Hu 






T'.TH 


1'uHO) 







■44 ■» 
■44 -> 

•4s: 



j p . * 



»■ M*' 



J It 



/ROAN/ 
VOU* 

OOOOtiO 
OOOOt*/ 
0000 '0 

oooo:, s 
oooo ;<> 

000 100 
000104 
000 1 1 

oooi i/ 

000114 

oooi/o 

0001/4 

oooi 50 

00015.' 
000140 
00014/ 
000 14r, 
000 IV) 

00 01'. 4 

000 1 e,0 

000 In,' 
000 IM 

0001 /o 
0001 .'4 
000/00 

ooo/o.' 
ooo.no 
ooo.: l.' 
ooo/u> 
000//0 

000//4 

ooo/^o 

O00/5/ 

i h)i >/ M 
000/40 



10041 ! 
I V /t>0 
001415 
01t«04t> 
01U.4t. 

oi//4e> 

01/.'4h 
(UOhOO 
1044 IS 
Ot>/ /Of. 
015/00 
lOS/t'.O 
100017 
15/'bO 
001015 
01t»04t» 
01 le^ 
01/ /4b 
Ol/.'4t. 
01 Of »00 
10441*1 

015/00 

los/t.o 

10001/ 
15//t.O 
001415 
OW»04rS 
011»'i4('» 
01/ W. 
01//4f> 
01 Of, 00 
10441S 
Of..' zoo 
000/0/ 



RU-RX l.M.RCISKR 

KHHOR Mr'SSAM- SUBROUUNhS 



000100 0000 IS 
000040 

0000001, 

000005 



0000 10 
0000 000 
0000 is 

000100 0000 IS 

000040 

OOOOOOu 
000005 

000010 

OOOOOOu 
0000 is 

000100 0000 IS 
000040 

OOOOOOU 

000005 

ooooio 



/ % 



3$ 



4i 



11 -Apr- -1984 li;Sb;01 
Il-Apr-19H4 11:45:02 



HM[ 


i't 


Din: 


0100, 1SCR0) 


HP U 


/J 


MOV 


40(K0), (SP) 


MOV 


(SP), (SP) 


MOV 


Of.X.HRU, -(SP) 


MOV 


05. (SP) 


MOV 


SP.RO 


TRMP 


IS 


ADD 


010, SP 


M(jv 


rp.aoor.ro 


Tsm 


1S(R0) 


HPl 


5$ 


HI TH 


0100.1SCR0) 


\\H\ 


*i 


MOV 


40(R0), ( SM ) 


MOV 


(SP), iSP) 


MOV 


ot x . tm , i sp ) 


MOV 


05, ( IP) 


MOV 


SP.RO 


TRAP 


IS 


ADO 


010. SP 


MOV 


RP.AODR.RO 


rsrn 


IS(RO) 


MPl 


4$ 


huh 


0100.1SCRO") 


m u 


45 


MOV 


40i RO), ism: 


MOV 


(SP). rip) 


MOV 


OfcV.BBl, -CSP) 


MOV 


05, (SP) 


MOV 


SP , RO 


TRAP 


is 


ADO 


10, SP 


PT'« 


PC 



'JfcU 0/04 
VAX 11 Hli«s 1*. V4,0 S/<> p g e ^ 4 

DISK*USER/ : [POWERS URQADO.Bl 1 5 6 ('/>) 



MS4 
*-,4S6 



; SP,* 



»>461 



; sP.» 



^46? 

*i4».)4 
r i4fS6 



; SP,* 



64 52 



Maximum otocU 



Al «ord*i, Routine Onse : 
depth per invocation: 6 words 



$CODt$ * 115S4 



;<i i 



voi.6 



t>46fl 

*i4t» i » 

r>4 ,'0 
r,4/l 
<>4 ,V 

m4 *5 

t.»4 '4 
t*4.'S 
ti4 Y» 
♦>4 / .* 
m4 i*rt 
e.»4M 
r,4W0 
r.48t 
64 tt t ? 



RiVHX EXERCISER 

FUROR Mt-SSAGF SUBROUTINE 

routine EMS BC : novnlue 



11 Apr l'*rt4 U:Sti : 01 
ll-Apr-19H4 U:45i02 



VAX -11 Bliss 1'. V4.0 S/ f > 

DISK SUSER2 : [ POWERS ] /RQADO , BL 1 ; 6 



SfcQ OI'OS 
Page <'Ob 
r 70 ) 



IHIS ROUTINE PRINTS CFXTFNDF.D) BOTH Ul Tt COUNT FIELDS 
RETURN PACKET: THE BYTE COUNT EROM THE COMMAND PACKFT 
ACTUAE NUMBER OE BYTES TRANSFERRED (EROM THE RESPONSE 



OF THE CURRENT 
AND THE 
PACKET). 



IMPLICIT INPUTS: 
MP AUDR 



ADDRESS OF THE CURRENT RETURN PACKET 



beg! n 

PR IN IX (IX CHC 

PRINTX ILX_BC, 

end: 



.RP ADDR 
,RP..ADUR I 



[CBCNT 10]) j 
UCNT.,EO])j 



! "InTE COUNT IN COMMAND: XXXXX." 

! "ACTUAL it Of- BYTES TRANSFERRED: XXXXx 



! ROUTINE EMS BC 



000000 
000004 
0000 10 
000014 
0000.^0 
OOl'O.V 
00HV4 

ooco^o 

0000 54 
000040 
000(.M4 

00004*. 

ooooso 

(.000S4 
; R 



015/00 
016046 
01t?/4h 
0K-V46 
010600 
1044 i 1 . 
015 -'00 
016016 
01?/4^ 
01.'i*4f» 
010600 
1044 LS 
Otu* .'06 
000,-HW 



OOOOOOG 
000044 
OOOOOOG 
00000? 



OOOOOOG 
0000**0 
OOOOOOG 
OOOOOf* 



00001, 



EMS.BC 



i\ ne 'ji.-e: ,M »ord*. t Routine ttnse : 

nasi mum t>t«ick depth per invocation: '/ words 



.SBTTE EMS.BC ERROR MESSAGE SUBROUTINES 

MOV RP.ADDR.RO 

MOV 44CR0). (SP) 

MOV OEX.CBC, CSP) 

MOV <t t \ (SP) 

MOV SP.RO 

TRAP IS 

mov rp . addr , ro 

mov ;'0(ho),( ( ;p) 

MOV dEX.HC (SP) 

mov *;■•, isp^ 

MOV SP.RO 

TRAP IS 

MOD OK>,SP 

RTS .-C 

$CUl)E* ♦ 11616 



»480 



>P.+ 



M81 



'IP , ♦ 



r,4 " l * 

64b8 



b 



VOL 6 



6484 
648S 
64 H 6 
64 vH; 
04 8 a 

64^0 
t>491 

ti4 l V 

649? 



RD-'RX EXERCISER 

ERROR MESSAGE SUBROUTINES 

routine hMS ,BD : novnlu* =■ 



ll-Apr-UJ«4 11:S6 : 01 VAX - 1 i Blisr. 1*'» V4.0-S70 SEQ Page 6 206 
HApr-1984 U:4S:02 DISK *USER2 5 [POWERS IZRQADO.BLljfe (71 j 



THIS ROUTINE PRINTS (FXTENDED) THF! TWO WORD I/O BUFFER DESCRIPTOR 
APPEARING IN THE CURRENT RETURN PACKET. 

IMPLICIT INPUTS; 

RP..ADDR - ADDRESS OF THE CURREN/ RETURN PACKET 



PRINTX (EX.BD, .RP..ADDR [BUFF_1], .RP..ADOR [BUFFO]); 



» "I/O BUFFER DESCRIPTOR; XXXXXX XXXXXX 



000000 
000004 
000010 
000014 
OOOO.H) 
0000 J 4 

oooo;?*i 

OOOO 50 

000054 



015/00 

016046 
016046 
Oi;>746 
0U>/46 
010600 
1044l r * 
06? /06 
000**07 



oooooog 

0000^4 

0000^6 

OOOOOOLi 
000005 



000010 





.SBTTL 


E.MS. BO ERROR MESSAGE SUBROUTINE 


EMS.BD: 


MOV 


rp.addr.ro 




MOV 


;mcro), -csp) 




MOV 


.»6(R0"), (SP) 




MOV 


#EX.BO. (SP) 




MOV 


0*. (SP) 




MOV 


SP . RO 




TRAP 


IS 




ADD 


#10, SP 




RTS 


PC 



>495 



SP, 



6465 



Routine !ii.*e: IS wgrcK* Routine U**.c : 
Maximum stack depth per Invocation? 6 wordo 



*COUE$ ♦ llt>74 



Ml. 6 



V01 ,6 



t.4^4 
64 9S 
b4\)6 

64 o: 

64\*tf 
644'* 

6soo 

bSOl 
6S0 t "» 
6 SO 5 
6S04 
6S0S 
t>SOt» 
6 SO/ 
bSOM 
«> r »0*> 
bMO 

6S1^ 
bSl.l 
6S14 
6S1S 
6S16 
6S1 ./ 
h'ilH 
6M 4 * 

6 l :cc 
6r^i f > 

6S L y ;> 

6s;\< r 

6524 1 



RO/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 



routine KMS..RP j novalue a 



11 «Apr-!9fl4 11 : r >6:0i 
11 -Apr -1964 11} 45: 02 



VAX- 11 HI isfi-16 V4.0-S/ 
DISKSUSER2: IP0WERS3ZRQAI 



!Clj6 



seq o;- i o/ 

Page ZO f 
(72) 



THIS ROUTINE IS RESPONSIBLE- KOR PRINTING (EXTENDED) THE RELEVANT FIELDS 
OK THE CURRENT RETURN PACKET. 



beg » n 

EMS .SBC ( ); 

l-MS.CMD C ); 

if I.RP..ADDR [r.NDCOOl and UP.,MSlO neq OP ..ONI. 

then 

EMS LBN C )j 

if l'(.RP_AM)H [ENOCODJ nnd UP MSK) eql OP RD ) or 
fC.RP.ADDR [ENDCOO] and OP ..MSK) eql OP'.WRT) 

then 

berg i n 

ems BC ( ) i 
EMS BD t )| 
end; 

IMS. TIM C )j 
end; 



! SUB CODE 

I COMMAND (AND MODIFIER) 



J LBN OR BAD BLOCK NUMBER 



J BYTE C0UN1S 

1 1/0 BUFFER DESCRIPTOR 



• Tint- 

! R0U1INE EMS RP 



OdOOOO 
OOOOOi? 
00000b 
00001 J 1 
000016 
O00J*V 

oooo;>6 

0000 .V 
0000*4 

000040 
000044 

ooooso 

OO0OS4 
0000*i 
00006.' 
00006c. 
0000 <v 
0000/*. 
000100 



01014b 

004/5/ 
004/*/ 

01* /oo 

116000 
04.-/00 

o*>oo2 ; 

ooi4o; j 

004/* 1 
015700 
116001 
04^/01 

o;»oi;v 

00140/ 
ilbOOO 
04^/00 

o.H)o; j / 

00 i 004 
004737 



010010' 

oiovo- 

ooooooi; 

0000 L4 
1 7 /bOO 

oooou 

0115S4- 

OOOOOOG 
00001«i 
1 7 'e>00 
000041 

000014 
1 / /bOO 
00004, > 

011616' 



EMS,RP 



U 



d$ 



.SBTTL 

MOV 
JSR 
JSR 
MOV 

movb 

BIC 

CM!' 

BEU 

JSR 

MOV 

MOVB 

BIC 

CMP 

nru 
movb 

BIC 

CMP 
BNI 

JSR 



EM 
Rl 
PC 
PC 
RP 
14 
#1 
R0 
1$ 
PC 
RP 
14 
HI 
HI 
.»$ 
14 
0\ 
RO 
J J 
PC 



S.RP ERROR MESSAGE SUBROUTINES 

, -CSrM 

. EMS . SBC 

.EMS.CMl) 

.ADDR.RO 

(RO).RO 

//600.R0 

,011 

,f MS, LBN 

.AOOR.RO 

(RO).Rl 

//600.R1 

.#41 

(RO).HO 

//600.RO 

»EMS*UC 



6406 
ti!»06 

bS09 



r,S14 



oSlfi 



o5W 



/RQAMl 
/RUAM1 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 



/RQAMl 
/RQAMl 
/RQAMl 
/RQAM'. 

/RQAMl 
/RQAMl 
7p r i.'.M* 
/F.OAM1 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 



/RQAMl 

/RQAMl 
/RQAMl 

/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RUAM1. 
.■RijAMl 
/RQAMl 
/RQAM ! 
/RQAMl 



/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
ZRUAM1 



RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 



RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RO/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 



RD/R. 
RD/R. 

RD/R. 
RD/R. 
RD/R. 
RD/R. 
RD/R. 
RD/R. 
RD/R . 
RD/R, 
I i'D 'K . 
RD, R. 
RD/R. 



RD/R. 
RD/R. 
RD/R. 
RD/R. 
RD/R. 
RD'R. 
RD/R . 
RD/R. 
RD/R. 
RD/R. 
RD/R. 
RD/R. 
RD/R. 



.Ill 
.CI 
.Dl 
.fr.l 
J 1 
.Gl 
.HI 
.11 
.Jl 
,K1 
.1 1 
.Ml 
.Nl 



B? 
C? 
0? 
V.il 
F? 

g? 

He! 

I? 

J.? 
K? 
I ? 
m;> 

N? 



B5 
C3 
03 

r? 

G3 
H3 
15 
J 3 
KS 



M ', 

M 



.84 
.C4 
.04 
.K4 

,F4 

.r.4 

.H4 
.14 
. J4 
J<4 
.1 4 
,M4 
.N4 



/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 



/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
ZRQAM1 



/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
'RQAMl 
/R0AM1 
/RQAM] 
/RQ^M. 
/RQAMl 



/RQAMl 
/RQAMl 
/RUAM1 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 
/RQAMl 



RD/R. . 


. .ns 


RD/R. . 


. .CS 


RD/R. . 


. .OS 


RD/R. . 


. .ES 


RD/R. . 


. .Kb 


RD/R. . 


. .Gb 


RD/R, . 


. .Hb 


RD/R. . 


. .lb 


RD/R. . 


. .JS 


RD/R. . 


. .Kb 


RD/R. . 


. .1 b 


RD/R. . 


, .Mb 


RD/R. . 


. .N5 


RD/R. . 


. .86 


RO/R. . 


. ,C6 


RD/R. , 


, .06 


RD/R 


f-6 


RD/R. . 


. .Kb 






RD/R, . 


. .Hb 


RD/R. . 


. .16 


RD/R. . 


. . Jb 


RD/R, . 


. .»«"» 


RD/R 


t h 


RD/R. . 


. .Mb 


RD/R. . 


. ,N6 


RD/R. , 


. .B/ 


RD/R, . 


. .C7 


RD/R. . 


. .07 


RD/R. . 


. . f 7 


RD/R, . 


. .r; 


RD/R. . 


. .G/ 


RD/R. . 


. .H7 


RD/R. , 


. . 1/ 


RD/R. 


. . J 7 


RD/R. . 


. .i</ 


RD/R. . 


. .1 / 


RD/R. . 


. .M/ 


RD/R, . 


. .N7 


RD/R. . 


. .HM 


RD/R. . 


. . CH 


RD/R. . 


. . D8 


RD/R. . 


. .1 « 


RD/R. . 


. .y a 


RD/R . . 


. .GH 


RD/R. . 


. . HH 


RD/R. . 


. . I« 


RO/R. . 


. . JA 


RD/R. . 


. .KH 


RD/R. . 


. .t 8 


RD/R. . 


. .MA 


RD/R. . 


,.N8 



/RQAMl 
/RQAMl 
/RQAMl 
/.RQAMl 
ZHQAM1 
/RQAMl 
/RQAMl 
/FQAM1 
/:VQAM? 
/^QAII? 
/RQAM? 
/RQAM,.' 
ZRQAM? 



ZRQAM? 

/RQAM? 
/RQAM? 
/RQAM<? 
/RQAM2 
/RQAM? 
/ROAM? 
/R-?AM? 
/RQAM? 
7RUAM? 
iRQPM? 
/RQAM? 
/RQAM? 



/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RUAM? 
/RQAM? 
/RQAM? 



/RQAM? 
/RQAM? 

/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
ZRQAM? 



RD/R. . 


. .89 


RD/R. . 


. .C9 


RD/R. . 


. .09 


RD/R. . 


. . K9 


RD/R. . 


. ,F9 


RD/R. . 


. . G9 


RD/R. . 


. .H9 


RD/R. . 


. .19 


RD/R. , 


. . ?9 


RD/R. . 


. .I<9 


RD/R, . 


. .1.9 


RD/R. . 


. .M9 


RO/R. . 


, .N9 


RD/R. . 


, .mo 


RD/R. . 


. .CIO 


RD/R. . 


. .010 


RD/R. . 


. .K10 


RD/R. . 


. .F10 


RD/R. . 


. .G10 


RD/R. . 


. .H10 


RD/R. . 


...no 


RD/R. . 


, ..no 


RD/R. . 


. .K10 


RD/R. , 


. A 10 


RD/R. . 


. .M10 


RO/R. . 


. .N10 


RD/R . . 


. .Hll 


RD/R. . 


. .Cll 


RD/R. , 


. .011 


RD/R. . 


. .HI 


RD/R. . 


. . F 1 1 


RD/R. , 


. .tUl 


RD/R. . 


. .Hll 


RD/R. . 


. . Ill 


RD/R. . 


. . Jll 


RD/R. . 


. . K 1 1 


RD/R. . 


..Ml 


RD/R. . 


.Mil 


RD/R. . 


. .Nil 


RD/R. . 


. .111? 


RD/R. . 


. .CI? 


RD/R. , 


. .01? 


RD/R. . 


. .K.l? 


RD/R. . 


. .V 1? 


RD/R. . 


. .Gl? 


RD/R. . 


. .HI? 


RO/R. . 


. . 11? 


RD/R. . 


. . Jl? 


RO/R, . 


. .Kl? 


RD/R. . 


. .11? 


RO/R. , 


. .Ml? 


RO/R.. 


. .Nl? 



/RQAM? 
ZRQAM? 
/RUAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
ZRQAM2 



/RQAM? 
/RQAM? 
/RQAM? 
7RQAM? 

/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 



/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
/RQAM? 
ZRQAM? 



/RQAM? 

/RQAM? 

/RQAM? 

/RQAM? 

/RQAM? 

/RQAM? 

/RQAM? 

/RQAM. 

/RQAM? 

/RQAM? 

/RQAM? 



RD/R. . 


. .815 


RD/R. . . .CIS 




RD/R £13 


RD/R F15 


RD/R. . . ,G13 


RD/R. . . .HIS 


RD/R. . . .115 


RD/R J13 


RD/R. . . .K15 


RD/R. . . .L 13 


RD/R Ml 5 


RD/R N13 


RO/R. . . .814 


RD/R. . 


.C14 


RD/R. . 


.014 


RD/R. . 


.E14 


RD/R. . 


.F14 


RD/R. . 


.G14 


RO/R. . 


.H14 


RO/R. . 


.114 


RD/R. . 


J14 


RO/R. . 


J<14 


RD/R. . 


1 14 


RD/R, . 


.M14 


RO/R. . 


.N14 


RD/R. . . .HIS 


RD/R. . 


.CIS 


RO/R. . 


.D1S 


RD/R. . 


. K. 1 1 > 


nn/R, . 


a IS 


RD/R. . 


.til 1 - 


RO/R. . 


.MIS 


RD/R. . 


.IIS 


RD/R. . 


. J1S 


RD/R. . 


.KIS 


RD/R. . 


.1 IS 


RO/R. . 


.MIS 


RO/R. , 


.N1S 


RD/R. . 


.Hit. 


WVR. . 


.?!'> 


RD R. , 


,01- 


RD/R, . 


? !'■» 


RD 'R. . 


^ !'■ 


RD R. . 


. G i t > 


RO R. . 


.Hl». 


RD R . . 


. Ll>, 


RD R. . 


.,-1" 


RD ■ R . . 


.Kit- 


RD 'R. . . 


i i 


RO/R.., 


.Mlo 



ZRQAM2 
V01. 6 

000104 
000110 
000114 
000116 



004 737 
00473? 
012601 
000507 



RO/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 



011674' 
OOCOOOV 



3$ 



B 1. 



ll-Aor-1984 
ll-App-1984 



Ili56t01 VAX-11 BUss-16 V4. 0-579 

Ui45t02 0ISK$USER2i[P0WERSURQA00»BLli6 



JSR PC.EMS.dD 

JSR PC,EMS,TIM 

MOV (SP)»,Ri 

RTS PC 



SEQ 0208 
P»9« 208 
C72) 

6520 
6523 
6496 



Routine Slie: 4^ words, Routine Base: $CODE* ♦ 11732 
Maximum stack depth per invocation: 2 words 



6525 
6526 



ZRQAM2 



6527 

t>528 
652 1 * 
6530 
6531 
6532 
6533 
6534 
6535 
6536 
653; 
6538 



RD/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 

global routine EMS.RPt : ncvalue 



CI 

11 -Apr- 1984 
ll-Apr-1904 



11:56:01 VAX-11 Blisa-l* V4 , 0-579 

1 1 } 45 : 02 D ISK I USE R2 s [ POWERS URQADO , BL 1 ; 6 



SEQ 0209 
Paoe 209 
C73) 



THIS ROUT INF IS CALLED TO PRINT THE ENTIRE CONTENTS OF THE 
RETURN PACKED DESIGNATED BY THE GLOBAL DATUM "RP ADDR'\ HOWEVER, THE 
PRINTING WILL ONLY OCCUR IF EXTENDED ERROR PRINTING IS ENABLED. 



begin 

PRINTX (EX RPlj 

EMS..BLK (.RP.ADDR. RP.LEN)i 

ends 



! "CONTENTS OF RETURN PACKET 
! PRINT BLOCK OF WORDS 



000000 012746 



000004 
000010 
000012 
000014 
000020 
000024 
000030 
000034 



012"M6 
01 06 00 
104415 

013716 
012746 
004 737 
062 706 
000207 



OOOOOOu 
000001 



OOOOOOG 
000026 
01 1202 
000006 



EMS.RP1: 



SBTTl. 

MOV 

MOV 

MOV 

TRAP 

MOV 

MOV 

JSR 

ADD 

f-ts 



EM5.RP1 



ERROR MESSAGE SUBROUTINE 



OEX.RP, (SP) 

• 1, (SP) 

SP.RO 

15 

RP . ADDR , C SP ) 

026, (SP) 

PC.EMS.BLK 

*6,SP 

PC 



iP.* 



6536 



6537 



6535 
6527 



Rout » ne 5 I *e : 
Max! my m stock 



15 «ords, Routine Base: *CQDt* ♦ 12052 
depth per Invocation: 4 words 



in 



/ROAM,? 
VOl.b 



655^ 

6541 
654,2 
654? 
b544 
6545 
6546 
654 V 
654tf 
654^ 
6550 
6551 
65V 
t>553 
b554 
6555 
6556 
655^ 
6558 
6559 
6560 
6561 
6562 
6563 
6564 
6565 
6566 
656/ 
6568 
6569 
65 70 
65/1 
65/? 
65/3 
v5/4 
65/5 
6576 

65/: 

65/8 
65/9 

6560 
6581 
6582 
65H3 p 

6584 2 

6585 2 

6586 3 
658/ ,'. 

6588 3 

6589 3 
h\j'40 3 
6W1 $ 



2 
2 

2 

2 

~> 

»~ 

2 

2 

3 

c 

3 
2 



RO/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 

global routine EMS. El (indeO : novnlue 



11 -Apr -1984 11j56:01 
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VAX-11 Bliss-16 V4. 0-579 

DISK *USER2 } [ POWERS ] ZRQADO , BL 1 j 6 



SEQ 0210 
Page 210 
(74) 






THIS ROUTINE IS CALLED FROM ' SEQUEN' AND ' DATAGM' AND PRINTS THE CONTENTS OF THE 
ERROR -LOG PACKET 



begin 

local 

ELOG. ADDR : ref block [EP,LFN, word) field CEP FIELDS), 
REASON : word, 
DISK.NL*! : byte, 
ELOG CODE t byte, 
EL0G3U6 : wordi 

ELOG ADDR ■ ELOG PKT » (.index ♦ EP LEN ♦ 2); 

RFASON • ,EIQG_ADDR [EL FORMATS 

DISK NUM ■ ,£LOG ADDR [EL DK NUMlj 

ELOG CODE - .ELOG ADDR [EL CODE ) j 

EL0G_SU6 - ,ELOG_ADDR [EL SUBCODE. h 

PRINTB (E'.G_00)j 

if (.REASON eql FORMAT. CNTR) or 

(.REASON eql FORMAT HOST) 
then 

PRINTB (.ELG.FMT [.REASON]) 
else 

PRINTB C.ELG.FMT (.REASON), 



,DISK,.NUM)j 



if (,ELOG_CODE gtru 0) and 

( FLOG^CODE lequ 11) 
thc» 

eg in 
PRINTX (ASTERISK). 
PRINTX f. ERR ..COD I .ELOG. CODE - 

else 

if .ELOG..C00E eql ST.DIA 
then 

begin 

PRINTX (ASTERISK), 
PRINTX ( .ERR. COD ( 12)); 
tnd', 

if ( FIG: Cv.iT eql ST MFE ) and 

( .L'.OG VJB le^j 10) 
t'-iVA 

bt-fcin 

p^TNfx ccri y >i 

PRINTX (A'.,TFW1 -,!-.) j 

PRTNTX C.TBL_Mff [.ELUG.SUUDi 



IHl 



ERROR LOG PACKET'S ADDRESS 

FORMAT 

DISK NUMBER 

CODE 

SUBCODE 

ERROR-LOG MESSAGE RECEIVED 



! PRINT BASIC REASON 

• PRINT BASIC REASON WITH DISK NUMBER 



CODE 



! MESSAGE rROM INTERNAL DIAGNOSTICS 



MtUIA FORMAT ERROR 



/RQAIV 




VOl, 6 




; 659? 


t. 


; 6593 


2 


; 6594 


i 


; 6595 


3 


; 6596 


c 


5 659 7 


3 


; 6598 


3 


; 6599 


3 


; 6600 


3 


! 6601 


,m \ 


; 660*? 


2 


6603 




; 6604 


3 


; 6605 


c 


6606 


3 


; d60 .* 


3 


; 6608 


3 


6609 


3 


; 6610 




; 6611 


2 


; 661? 




; 66 1 3 


3 


; 6614 




: 6615 


3 


; 6616 


3 


; 66 1 7 


3 


; 6616 


3 


; 6ol9 


t ■ 


; 6620 


<- 


i 6621 




; 662? 


3 


i 6623 


2 


; 6624 


3 


; 66?5 


3 


; 6626 


3 


; 662 ■' 


3 


: 6628 


2 


; 6629 




; 6630 


2 


; 6631 




; 6632 




; 663 3 


1 

4- 


; 6634 


2 


; 6635 


3 


; 6636 


4_ 


; b6 3 7 


2 


; 66 38 


2 


; 66 39 


2 


i b640 


■•> 


; 664 1 


4 


J *>64? 


2 


} 6643 


I 



RO-RX t XtRClSER 

ERROR MESSAGE SUBROUTINES 

er»d; 

If C.ELOtLCODE eql ST. DAT) and 

( .ELOG. SUB lequ 15) 
then 

begin 

PRINTX (CR^ ){ 

PRINTX (ASTERISK); 

PRINTX C.TBL.DAT [ .ELOG .SUB] ) i 

end; 

if (.ELOG CODE eql ST HST) and 

( .ELOG SUB lequ 4) 
then 

begin 

PRINTX (CRLF)j 

PRINTX (ASTERISK); 

PRINTX (.TBL.HST [ , EL0G_SU8 ) ) ; 

end; 

If (.ELOG.CODE eql ST^CNT) and 

( .ELOG SUB lequ 3) 
then 

begin 

PRINTX (CRLF)j 

PRINTX (ASTERISK); 

PRINTX (.TBL.CNT ( .ELOG, SUB] )| 

end j 

If ( .ELOG ..CODE eql 5T„DRV) and 

( .ELOG SUB lequ 8) 
then 

beg i n 

PRINTX (CRLF)j 

PRINTX (ASTERISK); 

PRINTX (.TBL_DRV [ . ELOG ,SUB ] ) J 

end j 

If .REASON eql FORMAT xFER 
then 



11 Apr 1984 11-56:01 
ll-Apr-1984 11:45:02 



VAX U Bliss 16 V4. 0-579 

DISK iUSER2:f POWERS 3^RQAD0,BL1 { 6 



SEQ 0211 
Page 211 
(74) 



! DATA ERROR 



! HOST ACCESS ERROR 



CONTROLLER ERROR 



• DRIVE ERROR 

! IF DISK XFER INVOLVED 



I BN 



If .ELOG_A0DR [EL. BLOCK TYPE) eql TtP* 
then 

PRINTX (EX.PBN, .ELOG ADDR (El .BLOCK], .FLOG ADDR [EL. BLOCK)) 

else 



PRINT PBN OR RBN 



PRINTX (EX_RBN, .ELOG_ADDR [tl BLOCK), .ELOG.AODR (EL. BLOCK)); 

EMS TIM (), i TIMfc 

EMS BLK (C. ELOG. ADDR ♦ £) h ( ( . tt QU.ADUR IELJ1SGLEN] * l) / i) * til i PRINTx CONTENTS 0> PACKET 

ELOG.AQQR IEL.CQHTEHTS] » EMPT1 ;, » QECLARE SAVE AREA FREE. 



V01, 6 



OOOOOO 
000004 
000006 
00001? 
000016 
000022 
000026 
000030 
000036 
000042 
000046 
000052 
000056 
000060 
000062 
000066 

0000 70 
0000/2 
0000/4 
000076 
000 IOC 
000104 
0001 10 
000114 
000116 
000120 
000124 
000126 
000132 
000134 
000142 
000144 
000150 
000154 
000156 
000160 
000162 
000164 
O00166 
000172 

0001 76 
'J00200 
000202 
000204 
000206 
000210 
0002 1 4 
000216 
000222 
000226 
000230 



RO/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 



004137 
005746 
016646 
012746 

004 737 
062700 
0)0001 
116166 
105066 
11610 l J 
116100 
042700 
105004 
050004 
016103 
006203 
006203 
006203 
006203 
006203 
042703 
012716 
012746 
010600 
104414 
016602 
006302 
005766 
001404 
02662 7 
001007 
016216 
012746 
010600 
104414 
0004 1 1 
005016 
110516 
016246 
012746 
010600 
104414 

005 726 
105704 
001423 
12042 7 
101020 
012/16 
01 J /46 
010600 
1044 U 



OOOOOOG 

000020 
000102 
OOOOOOG 
OOOOOOG 

000016 000004 

000005 
000012 
000020 
177740 



000020 



EMS, EL 



174000 

OOOOOOG 

C00001 



000006 

000006 

000006 000001 

OOOOOOG 
000001 



\% 



2$ 



OOOOOOG 
000002 



000013 
OOOOOOG 

oooeoi 





11 Apr 


1984 


11:56; 


:01 


VAX -It Bllss-16 V4.0-57 




11-Apr. 


•1984 


11:45: 


t02 


DISK *USER2 ; [ POWERS ]ZRQAI 


.SBTTL 


EMS. EL ERROR MESSAGE 


. SUBROUTINES 




JSR 


Rl, I SAVES 








j 




TST 


(SP) 












MOV 


?0(SP), -(SP) 








I 


INDEX t * 


MOV 


0102, -(S?) 












JSR 


PC.BLIMUL 












ADD 


OELOG.PKT.RO 












MOV 


RO.Rl 








i 


♦ , ELOG . ADDR 


MOVB 


16(R1),4(SP) 








t 


»( EL OG.ADOR). REASON 


CURB 


5(SP) 








, 


REASON 


MOVB 


12CRD.R5 








• 


♦ (ELOG . AODR ) .DISK . NUM 


MOVB 


20CRD.R0 








t 


*C ELOG. ADDR),* 


BIC 


0177740, RO 












Cl.RB 


R4 








J 


ELOG. CODE 


BIS 


R0.R4 








i 


♦.ELOG. CODE 


MOV 


20(R1),R3 








i 


♦(ELOG . AODR ) , ELOG , SUB 


ASR 


R3 








i 


ELOG. SUB 


ASR 


R3 








J 


ELOG. SUB 


ASR 


R3 








{ 


ELOG. SUB 


ASR 


R3 








• 


ELOG. SUB 


ASR 


R3 








» 


ELOG. SUB 


BIC 


0174000, R3 








{ 


♦.ELOG, SUB 


MOV 


OELG.OO.(SP) 








• 




MOV 


01, (SP) 












MOV 


SP.RO 








i 


SP.* 


TRAP 


14 












MOV 


6(SP),R2 








» 


REASON,* 


ASL. 


R2 












TST 


6(SP) 








$ 


REASON 


BEQ 


li 












CMP 


6(SP).0i 








» 


REASUN,* 


BNE 


2$ 












MOV 


FIG JMT(R2),(SP) 






• 




MOV 


01. (y ; 












MOV 


oP.RO 








, 


S2 , * 


TRAP 


14 












BR 


3* 








i 




CIR 


( SP ) 








• 




MOVB 


R5.CSP) 








i 


D I SK . NUM , ♦ 


MOV 


fl G.F^T(R2), -l! 


iP) 










MOV 


02. ISP) 












MOV 


SP.RO 








, 


SP , ♦ 


TRAP 


14 












TST 


\ ,2 ) » 












TsTB 


N4 








i 


EL OG.CODE 


BtU 


4$ 












CMPH 


W4 , a \ ', 








• 


I LOG. CODE.* 


BhI 


<u 












MOV 


OASTtRtSK.tSP) 








• 




MOV 


01. (SP) 












MOV 


SP.RO 








j 


SP,* 


TRAP 


15 













SEQ 0212 
Page 212 
(74) 



65 39 
6555 



6556 

655 7 
6558 



6559 



6560 

6565 
to5b2 
6563 
6565 

6562 
056? 



c5 70 
0573 



( ; i 



?RQAM2 
V01 .6 

000232 

000254 
00023t 
000240 
000244 
000250 
000252 
000254 
000256 
00026c 1 
000264 
0002 70 

0002 74 
000276 
000300 
000504 
000310 
000312 
000311 
000316 
000322 
000324 
000330 
000332 
000336 
000342 
000344 
00034o 
000352 
000356 
000360 
000362 
000364 
000366 

0003 72 
000376 
000400 
000402 
000406 

0004 12 
0004 14 
000420 
000422 
000426 
000432 
0004 34 
0004 36 
000442 
000446 
0004 50 
000452 
000454 
000456 



005000 
150400 
006300 
01601b 

01274b 
010600 
104415 

0004 1 ; 

12042 7 
001015 
01271b 
01274b 
010600 
104415 
013716 
L 1274b 
010600 
104415 
022626 
120427 
001031 
020327 
101026 
012716 
012746 
010600 
104415 
012716 
012746 
010600 
104415 
010300 
006300 
016016 
012746 
010600 
104415 
062 706 
1204cV 

001031 

020327 
101026 
012716 
012746 
010600 
104415 
012/16 
01274b 
OlGbOO 
104<U5 
010500 
00b 500 
016016 



RD/RX fcXFRCISfcP 

ERROR MESSAGE SUBROUTINES 



17 77 7m;, 
000001 



1 1 Apr-1984 11:56:01 
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SEQ 0213 
VAX -11 Bliss-lb VI. 0-579 Pao« 213 

DISK* USER2 : [ POWERS ] ZRQADO . BL 1 j 6 ( 74 ) 



00003 7 

OOOOOOG 
000001 



0000 30G 
000001 



000005 

000012 

OOOOOOG 
000001 



OOOOOOG 
000001 



000064 
0OOOC1 



000( 06 
000010 

000017 

OOOOOOG 
000001 



OOOOOOG 
000001 



000120' 





CLR 


RO 




BISB 


R4,R0 




ASl 


RO 




MOV 


ERR.C0D-2(RO),(SP) 




MOV 


01, (SP) 




MOV 


SP.RO 




TRWP 


15 




BR 


5i 


4$: 


CMPB 


R4.037 




HNE 


6$ 




MOV 


0A5TFRI<JK.(SP) 




MOV 


#1, vSP) 




MOV 


SP.RO 




TRAP 


15 




MOV 


ER9,C0D*30,(SP) 




MOV 


#1, (SP) 




MOV 


SP.RO 




fRAP 


15 


5*: 


CMP 


(SP) ,(SP)> 


6*: 


CMPB 


R4.05 




BNE 


7$ 




CMP 


R3.012 




BH1 


7$ 




MOV 


•CRLF.(SP) 




MOV 


01, (SP) 




MOV 


SP.RO 




TRAP 


15 




MOV 


OASTERISK,(SP) 




MOV 


01, (SP) 




MOV 


SP.RO 




I RAP 


15 




MOV 


R3.R0 




ASL 


RO 




MOV 


TBI .MfE(R0),(3P) 




MOV 


01, (SP) 




MOV 


SP.RO 




TRAP 


15 




ADD 


Ob , '.)P 


7$: 


CMPB 


R4.010 




BML 


8$ 




ChP 


R3.017 




BHl 


Hi 




MOV 


*CRL F ,( SP) 




MOV 


ol , (SP ) 




MOV 


SP.RO 




TRAP 


15 




MOV 


ft A', Tt RISK, CSP) 




MOV 


o I , ( SP ) 




MOV 


SP.RO 




I RAP 


15 




MOV 


R5.R0 




A',1 


RO 




H0\ 


TUL.DAURO),(SP) 



i ELOG.CODE,* 

J SP,* 

1 ELOG.CODE,* 

■ 

5 SP,* 

» 

1 SP,* 

♦ ELOG.CODt. ,♦ 
} ELOG.SUB,* 
I 

SP,* 

SP,* 
ELOG.SUB,* 

{ 5P ( * 

! ELOG.CODt.* 

; El.OG.SUB,* 

• 

J SP,* 

J 

J SP # * 

j LLOG.SUi, » 



6574 



6572 
6578 

6581 



6582 

6580 
6585 

6586 

6589 

6590 

6591 



658 1 
n594 

b595 
^598 

»,S99 

boOO 



7RQAM2 
V01, 6 

0004 be" 

000466 

0004 ;o 

0004 72 

0004 76 
00050c? 
000504 
000510 
000512 
000516 
00052 c? 
000524 
000526 
000552 
000536 
000540 
000542 
00C544 
000546 
O00552 
000556 
000560 
000562 
000566 
000572 
000574 
000600 
000602 
000606 
000612 
000614 
000616 
000622 
000626 
000630 
000632 
000634 
0006 36 
000642 
000646 
000650 
000652 
000656 
000662 
000664 
0006 70 
0006 72 
0006 76 
000 702 
000 /04 

ooo roc 

000/1.' 
000716 



012 746 
010600 
104415 
062 7 06 
120427 
001031 
02032/ 
101026 
012716 
012746 
010600 
10441!> 
C12716 
012746 
010600 
104415 
010300 
006300 
016016 
012746 
010600 
104415 
062706 
120427 
001031 
020327 
101026 
012716 
012746 
010600 
104415 
012716 
012746 
010600 
104415 
010300 
006 300 
016016 
012 746 
010600 
104415 
062706 
1204 2 7 
001031 
02032/ 
101026 
012/16 
012 746 
010600 
104415 
012716 
012/46 
010600 



RO/HX EXERCISER 

FUROR MESSAGE SUBROUTINES 

000001 



11 -Apr 
11-Apr 



1^84 
1984 



SEQ 02 U 
11:56:01 VAX-11 Bliss 16 V4.0 579 P og e 214 

11:45:02 DISK $USER2: [POWERS IZRQADO.BLli 6 C 74 ) 



000006 
000011 

000004 

OOOOOOG 
000001 



OOOOOOG 
000001 



000160' 
000001 



000006 
000012 

000003 

OOOOOOG 
000001 



OOOOOOG 
000001 



0001/2 
000001 



000006 
000013 

000010 

OOOOOOG 
000001 



OOOOOOG 
000001 



85 



9$: 



10$ 



MOV 

MOV 

TRAP 

ADD 

CMPB 

BNE 

CMP 

BMI 

MOV 

MOV 

MOV 

TRAP 

MOV 

MOV 

MOV 

TRAP 

MOV 

ASL 

MOV 

MOV 

MOV 

TRAP 

ADO 

CMPB 

BNfc 

CMP 

BHI 

MOV 

MOV 

MOV 

IRAP 

MOV 

MOV 

MOV 

TRAP 

MOV 

ASt 

MOV 

MOV 

MOv 

TRAP 

A(,D 

CMPB 

BNt 

CMP 

BHI 

MOV 

MUV 

MOV 

TRAP 

MOV 

MOV 

MOV 



01, (SP) 
SP,RO 
15 
06, SP 

R4.0U 

9$ 

R3,04 

9$ 

OCRLE.tSP) 

«1, -(SP) 

SP.HO 

15 

OASTEPISK.CSP) 

01, W) 

SP.RO 

15 

R3.R0 

RO 

TBL.M5T(R0),(SP) 

01. (SP) 

SP.RO 

15 

06. SP 

R4.012 

10$ 

R3.03 

10$ 

OCRLF , (SP) 

01. (SP) 

SP.RO 

15 

^ASTERISK ,(SP) 

01. (SP) 

SP.RO 

15 

R<,RO 

RO 

.CNUfJO.CSP^ 
, (SP) 
RO 



SP 

OH 

010 



TBI 

01 

SP 

15 

<?6. 

R4. 

11$ 

»• '■ . 
11$ 

*chi y 

01, ( 
SP.HO 

15 

OA'.,HRlM< 
1 , i SP ) 
SP.RO 



. ( SP ) 

ip) 



(SP) 



5 SP.+ 

t FLOG. CODE,* 
ELOG.SUB,* 

SP,* 

j SP,* 

j ELOG.SUB,* 

SP.* 

ELOG.CODE.* 
ELOG.SUB,* 

SP,* 

SP , * 
ELOG.SUB,* 

} '">P.* 

■ El OG.CODE , * 
! HOG. SUB.* 

J 

; SP.* 

! SP,* 



659/ 
6603 

6604 
6607 

6606 

6609 



6606 
6612 

6613 
6616 

6617 
r-oia 



o*15 

6621 

*622 
'^25 

60 2o 



ZRUAN2 

V01, 6 

000/20 
ooo ;lv 

000 ??A 
000 726 
000732 

000736 
000 740 
000 74 J 
000 746 
000754 
000 756 
000764 
000766 

0007;;* 

0007/4 
001000 
001004 
001006 
001010 
001012 
001016 
001020 
001024 
001030 
001032 
001034 
001040 
001044 
001050 
001052 
001 056 
001060 
001064 
001070 
001074 
001102 
001104 
001110 
001114 
001120 



104415 
010300 
006300 
016016 
012746 
010600 
104415 
062 .'06 
02662 7 
001031 
032761 
001012 
016116 
01164b 
012/46 
012746 
010600 
10*415 
0004 1 1 
016116 
011646 
012746 
012 746 
010600 
104415 
062 706 
004/3/ 
012/16 
060116 
016146 
005216 
012746 
0C4737 
010066 
062766 
005/26 
004 / 5 / 
105061 
Ob 2 /Ob 
000207 



Rout I ne 
Maximum 



stack 



RO/RX fc.Xfc.RClSfcR 

ERROR MESSAGE SUBROUTINE 1 



000202' 
000001 



000006 

000010 00000c' 

1 70000 000060 

000056 

OOOOOOG 
000003 



000056 

OOOOOOG 
000003 



00000*.' 

000000 V 
000002 

000002 

000002 

OOOOOOG 

000002 

000002 000002 

011202' 

000001 
000014 



24/ words, Routine Base: 5 COOL* 
depth per invocation; 16 words 



11 Apr 1984 11:56:01 
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SEQ 0215 
VAX -11 Bliss- 1^» V4. 0-579 Page 215 

DIS!<$USER2:[P0WF.RS]ZRQAD0.BL1>6 (74) 





TRAP 


15 




MOV 


R3.R0 




ASL 


RO 




MOV 


TBI .DRV(RO) # (S 




MOV 


01. (SP) 




MOV 


SP.RO 




TRAP 


15 




ADD 


06, SP 


11$: 


CMP 


10(SP).02 




BNfc 


14$ 




BIT 


01/0000, 60CR1) 




UNI. 


12$ 




MOV 


5b(Rl),(SP) 




MOV 


(SP), (SP) 




MOV 


tfEX.PBN, -(SP) 




MOV 


0*. -(SP) 




hov 


SP.RO 




TRAP 


15 




BR 


13$ 


12*: 


MOV 


56(R1),(SP) 




MOV 


(SP). -(SP) 




MOV 


OFX.RBN, (SP) 




MOV 


03. (SP) 




MOV 


SP.RO 




TRAP 


15 


151: 


ADD 


06, SP 


14$: 


JSR 


PC.t'Mb. TIM 




MOV 


02, (SP) 




ADD 


Rl.(SP) 




MOV 


2(R1 ), -(SP) 




LNC 


( SP ) 




MOV 


02 , - ( SP ) 




JSR 


PC.Bl 4DIV 




MOV 


R0.2CSP) 




ADD 


02.2vSP) 




Tsr 


v SP ) • 




JSR 


PC-MS.Bl K 




CURB 


KRi ) 




ADD 


14, SP 




RTS 


PC 



; El.OG.SUB,* 

I SP,* 

! RFASON.* 

l *,*(El.(Xi.ADDR) 

; *(EL0G,ADQR),* 

i SP,* 

j *(bLUG,ADDR),* 

SP,* 



. l OG.ADDR, ♦ 

♦ (ELUU.ADDR),* 



6627 



6624 
6630 

6633 

6635 



6633 
6637 



*b3 3 
6640 



; ♦ lEl.OG.ADDR) 



t>o4 1 
0539 



* uuo 



1 % 



6644 
6645 

6646 

664 ; 
6648 
664^ 
66 SO 
6651 
665:? 
6655 
6654 
6o55 
6656 

665 ; 

6658 
6659 

6660 
b66l 
6662 
6665 
6664 
6665 
6666 

666 V 
6668 
6669 



J'l 



RD/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 

global routine EMS..CMP ( ADDR ) : novalue 



THIS ROUTINE. IS CALLED FROM 'HOST KRT CHK 
COMPARE: ERROR 



U-Apr-1984 11:56:01 
ll-Apr-19o4 11:45:02 



VAX -11 Bliss 16 V4.0 579 

DISK $USER2:[ POWERS )ZRQAD0.BLlj6 



3EQ 02H 
Page >^0 
(75) 



AND PRINTS RELEVENT DATA ON A HOST 



beg I n 

local 

ORIG ADDR 



ref block [RP_LEN, word) field ( RPJ- 1EL.DS ) j 



ORIG MDDR * .ADDR: 

PRINTB (ERR 00, .CDISK) 

PRINTS CDASH); 

PRINTB ( .ERR.CT) [12]); 

PRINTX (EX LBU, 

PRINTX (EX_LBR, 

PRINTX (EX CBW, 

PRINTX (EX_BC. 

PRINTX (EX CBR, 

PRINTX (EX BC, 

PRINTX (EX_BDW. 

PRINTX (EX BDR, 

EMS. TIM ()7 

end; 



.ORIG ADDR [LBN LOl. .ORIG ADDR [LBN 10]); 

.RP_AUOR [LBN_LO], .RP..ADDR [LBM„LO])j 

.ORIG.A^R [CBCNT.LO]); 
.ORIG.ADOR [BCNT l.ODi 

.RP^ADDR fCBCNT t 0]); 
.RP ADDR [BCNT LO)); 

.ORIG, ADDR (BUFF. 1], .ORIG ADDR [ BUf F 0]); 

,RP ADDR [BUrr^l], ,RP ADDR [ BUFT 0])' { 



ADDRESS OF 
"DISK XXX" 



THE WRITE RETPKT 



HOST COMPARE 

(WRITE) 

(READ) 



ERROR" 



LBN 

t RN 

BrTE COUNT 

BYTE COUNT 

BrTE COUNT 

B'TE COUNT 

BUFFER 



(WRITE) 

XMITTED (WRITE) 
( R c AD ) • 

XMITTED (READ) 
(WRITE ) 



BUFFER 
TIME 



ADDRESS (READ) 



000000 010146 



.SBTTL EMS. CMP ERROR MESSAGE SUBROUTINES 



000002 

000006 
000012 
000016 
000022 
000024 
000026 
000032 
000036 
000040 
000042 
000046 
O0C052 
000054 
000056 
000062 
000064 
0000/0 
0000 /4 
0000/6 
000100 
000104 



016601 
013746 
012/46 
01, 746 
Olx. SOO 
104414 
012716 
012/46 
010600 
104414 
013716 
012/46 
010600 
104414 
016116 
011646 
012/46 
012746 
010600 
1044 15 

on/oo 

C16016 



000004 
OOOOOOG 
OOOOOOG 
000002 



OOOOOOG 
00C001 



0000 3 OG 
000001 



000050 

OOOOOOG 
000003 



OOOOOOG 

000050 



EMS. CMP: ; 




MOV 


Rl. (SP) 


MOV 


4(SP),R1 


MOV 


COISK, (SP) 


MOV 


OERR.OO, (SP) 


MOV 


02. (SP) 


MOV 


SP.RO 


TRAP 


14 


MOV 


00 ASH, ( SP) 


MOV 


01 , (SP) 


MOV 


SP , RO 


TRAP 


14 


MOV 


E«R.C00»50,CSP 


MOV 


01, (SP) 


MOV 


SP.RO 


TRAP 


14 


MOV 


5(HRi),(5P) 


MOV 


< ')P). 1 SP) 


MOV 


of y .i bw, -(SP) 


MOV 


3. (SP) 


MOV 


SP.RO 


TRAP 


15 


Ml IV 


RP, ADD", WO 


MOV 


50vRO).(SP) 



ADDR, ORIG. ADDR 



SP.* 



6644 
6656 
6657 



6658 



o 



65°- 



SP 



t(URIG.ADDR),* 



SP, 



rinr^O 



6661 



ZRQAM5 
VOL 6 

000004 
000006 
000010 
000016 
0000c?? 
000026 
000030 
000054 
000036 

coc ;40 

00004? 
000' >4 6 
000050 
000054 
000060 
000064 
000066 
0000 72 
000076 
000104 
000112 
000120 
000124 
000132 
000136 
000142 
000144 
000 14v> 
000152 
000156 
000162 
000164 
000170 
000174 
000200 
000202 
000206 
000212 
000216 
000222 
000230 
000232 
000236 
000242 
000244 
000250 
000252 
000260 
000262 
000264 
000266 
0002/4 
000276 



005003 
012702 
005037 
005037 
013700 
006300 
016000 
060200 
0C6200 
010004 
04 2704 
005304 
013746 
004 737 
010037 
010016 
012746 
004 737 
013760 
112760 
012760 
010460 
112760 
013716 
004 73 7 
005700 
001007 
013716 
004 7 37 
012702 
000522 
004 737 
004 737 
010037 
010016 
012746 
004737 
062 700 
01003 7 
132760 
001404 
013716 
004 737 
005726 
013701 
005000 
126127 
001002 
005200 
000407 
132 761 
001335 
105761 



RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 



000001 
OOOOOOG 
OOOOOOG 
OOOOOOG 



000054 



100000 

COCOOOG 
OOOOOOG 
OOOOOOG 

000106 

OOOOOOG 

OOOOOOG 0000 16G 

000020 000022G 

00 1000 000026G 

000046G 

000002 000004G 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
000002 

OOOOOOG 
OOOOOOG 
OOOOOOG 

000054 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000360 000002 

OOOOOOG 
OOOOOOG 

OOOOOOG 

000003 000003 



000360 000002 
000014 



IS 



r>5 



3$ 



ll-Apr~1984 
ll-Apr-1984 



11:08:35 
11:08:22 



SEQ 0295 
VAX-11 Bliss-16 V4. 0-579 Page 64 

DIS!<$USER2:fPnWERS]ZRQAD0,BL2}6 (15) 



4* 



CLR R3 

MOV 01, R2 

CLR SB . CODt" 

CLR ST, CODE. 

MOV LILUN.RO 

ASL RO 

MOV MAX.L8N(R0),R0 

ADO R2.R0 

ASR RO 

MOV R0,R4 

BIC 100000, R4 

DEC R4 

MOV CCTLR.-CSP) 

JSR PC.GET.PKT 

MOV RO, P. INDEX 

MOV R0,(SP) 

MOV 0106, (SP) 

JSR PC.BL$MUL 

MOV CDISK , MSCP . PK T ♦ 16( RO ) 

MOVB 020, MSCP PKT*22(R0) 

MOV 01000, MSCP. PKT»26CR0) 

MOV R4.MSCP.PKT+46CR0) 

MOVB 02,MSCP.PKT*4(R0) 

MOV P. INDEX, (SP) 

JSR PC, SEND 

TST RO 

BNE 2S 

MOV P. INDEX, CSP) 

JSR PC.PUT.PKT 

MOV 02, R2 

BR 9$ 

JSR PC, WAIT 

JSR PC.OUT.IODQ 

MOV RO.RP.INDX 

MOV RO,(SP) 

MOV 054, (SP) 

JSR PC.BLIMU. 

ADD ORETPKT.RO 

MOV RO.RP.ADDR 

BITB 0360. 2CR0) 

BEQ 3$ 

MOV RP. INDX.(SP) 

JSR PC.PUT.RETPKT 

TST (SP)* 

MOV RP.ADDR.R1 

CLR RO 

CMPB 3(R1),03 

BNl- 4 $ 

INC RO 

BR 5* 

HUB 0360, 2(Ri) 

BNt ;?$ 

TSIB 14\R1) 



RESUL T 
+.PASS 



2884 
2891 
2892 



*,l.BN 

* .LBN 
LBN 



j P. INDEX,* 



LBN,* 



; *,PASS 



: RP.1N0X,* 



289 



2898 



2899 
2900 
2901 
2902 
2904 



290 7 

2908 
2904 
2915 
2<U6 

2917 



2919 

292 1 

2914 
2924 



292 r > 
292o 



I / 



/RQAM2 
VOi.6 



6670 

66 n 

6e*7_> 
66 73 
66/4 
66^*5 

66 76 
6677 
6678 
6679 

6680 
6o81 
6682 
6683 
6684 
6685 
6686 
668/ 
6688 
6689 
6690 
6691 
6692 
6693 



11 Apr 1984 11:56:01 
ll-Apr-19tt4 11:45:02 



RO'RX EXERCISER 

ERROR MESSA.-J. SUBROUTINbS 

global routine EMS. ERR : novolue ■ 

begin 

• TABLE OF BASIC, HARD ERROR MESSAGE ADDRESSES, INDEXED BY STATUS CODE 



SEQ 0218 
VAX U Bliss-16 V4. 0-579 Page 218 

DISK SUSER2 : [ POWERS ] ZRQADO . BL 1 * 6 ( 76 ) 



PRINTB (ERR 00, .CDISK)| 
PRINTR fDASH) } 

if ( .STRODE gtru 0) and 

( .ST_CODE lequ 11) 
then 

PRINTB (.ERR.COD [ >ST„CODE - 11) 

else 

If , ST. CODE eql ST DIA 
then 

PRINTB ( .ERR.COD [11]) 
else 

PRINTB (fcX_.SC, .STRODE); 

EMS_RP (){ 
end; 



! "DISK XXX" 

i 

! IF STATUS CODE IS WITHIN RANGE 

! PRINTB APPROPRIATE MESSAGE 

• MESSAGE. FROM INTERNAL DIAGNOSTICS 

! JUST PRINT STATUS CODE WHEN NO MATCH 

! PR1NTX OTHER RETPKT FIELDS 



000000 013746 OOOOOOG 



000004 

O00010 

000014 

000016 

000020 

000024 

000030 

000032 

000034 

000040 

000042 

00004 

000050 

0000^2 

00C056 

000062 

000064 

000066 

0000 70 

0000 74 

0000 76 

000102 

000106 

ooouo 



012746 
012746 
010600 
104414 
012716 
012746 
010600 
104414 
013700 
001413 
020027 
101010 
006300 
016016 
012746 
010600 
104414 

000422 
02002 7 

00100 7 
015716 
012 746 
010600 
104414 



OOOOOOG 
000002 



OOOOOOG 
000001 



OOOOOOG 
000013 



177776G 
000001 



0000 37 

00C026G 
000001 





. SBTTL 


EMS. ERR ERROR MESS 


EMS 


ERR: : 






MOV 


COISK, -CSP) 




MOV 


AERR.OO, -CSP) 




MOV 


02 , - ( SP > 




MOV 


SP,RO 




TRAP 


14 




MOV 


ODASH.(SP) 




MOV 


01. (SP) 




MOV 


SP,RO 




TRAP 


14 




MOV 


ST .CODE.RO 




BEQ 


li 




CMP 


R0.013 




BHI 


li 




ASl 


RO 




MOV 


£RR.C0U-2(R0),ISP) 




MOV 


tft, (SP) 




MOV 


SP.RO 




!RAP 


14 




BR 


M 


Us 


CMP 


RO.O-V 




BNt 


2» 




MOV 


ERR.C0D.26,(SP) 




MOV 


01. CSP) 




MOw 


SP.RC 




TRAP 


14 



; SP,* 



; SP,* 



; SP,* 



6676 

66 7 7 

6679 
6680 
o682 



f.r> v H5 
ooo7 



I OP,* 



ZRQAM2 
V01, 6 

000112 
000114 
000116 
000122 
000126 
000130 
000132 
000134 
000140 
000144 



000410 
010016 
012746 
01274b 
010600 
104414 
005726 
004 737 
062 706 
00C207 



RD/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 



OOOOOOG 
000002 



011732* 
000012 



2$: 



3$! 



Ml 





11 -Apr- 1984 11:56:01 




il -Apr 1984 11:45:02 


BR 


3i 


MOV 


RO.(SP) 


MOV 


<t.x.sc,-(sp) 


MOV 


02, (SP) 


MOV 


SP.RO 


TRAP 


14 


TST 


(SP)* 


JSR 


PC, F.MS. RP 


ADD 


$12, SP 


RT5 


PC 



VAX-11 Bliss-16 V4. 0-579 
DISK$USER2: [ POWERS 3ZRQAD0.BL1;6 



SEQ 0219 
Page 219 
(76) 

6685 
6689 



5P.+ 



6691 
6672 
6670 



; Routine Size: 51 words, Routine Base: $CQDE$ ♦ 13560 
; Maximum stack depth per invocation* 8 words 






ZRQAM2 
V01 .6 



6694 
6695 
6696 
669? 
6698 
6699 
6700 



Nl 



RO/RX EXERCISER 

ERROR MESSAGE SU8R0UTINES 

routine EMS, TIM : novolue » 

li.IS ROUTINE PRINTS THE TIME-OF-DAr MESSAGE 
PRINTX (EX„TIM, .HOURS, .MINUTES),- 



11 Apr -1964 11:56:01 
U-Aor-1984 11:45:02 



VAX 11 Bliss 16 V4 579 
DISK$USER2: [ POWERS JZR0AD0,BL1;6 



SEQ 0220 
Page 220 
C77) 



000000 
000002 
000006 
000010 
0000.14 
000020 
000024 
000026 
000030 
000034 



005046 
113716 
005046 
113716 
012/46 
012746 
010600 
104415 
06270C 
000207 



OOOOOOG 

OOOOOOG 
OOOCOOG 
000003 



000010 



.SBTTL 
EMS.TXMiCLR 

MOVB 

CLR 

MOVB 

MOV 

MOV 

MOV 

TRMP 

ADD 

RTS 



EMS. TIM ERROR MESSAGE SUBROUTINES 
-(SP) ; 

MINUTES. CSP) 

(SP) 
HOURS, (SP) 
OEX.TIM.-CSP) 
#3, -CSP) 

SP.RO j SP.* 

15 

510, SP 
PC ; 



6700 



6694 



Routine Sue: VJ words, Routine Base: $C0DE$ * 13726 
Maximum stack depth per invocation: 6 words 



.1 ^ 



VCi % 6 



6701 1 



RO/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 

BGNMSG (EMS .01); 



11 -Apr- 1984 11:56;01 
ll-Apr-1904 11:45:02 



VAX-11 Bliss 16 V4.0 579 

D ISK IUSER2 ; [ POWERS JZRQADO . BH ; 6 



StQ 0221 
Page 221 
( 76) 



000000 
000006 



004 ; 5 : 

1044?? 

000207 



oooooov 



.SBTTL 
EMS.Ols {JSR 
TRAP 
RTS 



EMS, 01 ERROR MESSAGE SUBROUTINES 
PC.MIEMS.Ol i 

23 
PC 



6701 



; Routine Sij»»: 4 words, Routine Bast: $CO0E$ ♦ 13764 
; Maximum stack depth per Invocation: 2 words 



6 7V.V 
670? 



PRINTB IEBS..01, MAX„UNITS)j 
ENDMSGj 



! "MORE THAN XX UNITS SPECIFIED 



000000 012746 0C00O4 



000004 012746 

000010 012746 

000014 010600 

000016 104414 

000020 062 706 

000024 00020? 



000")OOG 
00000? 



00000b 



,SBTTL 


M1EMS.01 


ERRO 


MtEMS.Oi: 






MOV 


•4 . ( SP ) 




MOV 


0EBS.01, 


CSP) 


MOV 


*2, (SP) 




MOV 


SP.RO 




TRAP 


14 




ADO 


*6,SP 




RTS 


PC 





Routine Size: 11 words, Routine Bast; *CQDE* * 13774 
Maximum stack depth per invocation: 5 words 



J 

i SP f * 



6702 



6701 



JRQAM2 
VOL 6 



6Y04 1 



RO-RX EXERCISER 

FRRIR MESSAGE SUBROUTINES 

BGNMSG (EMS, 10) i 



11 Apr-1984 11:56:01 
it Apr -1964 11:45:02 



VAX 11 Bliss 1^ V4.0 579 

DISK IUSER2 j [ POWERS ]ZRQAD0 # BLU6 



SEQ 0222 

(79) 



cooooo 

OOOQ04 
00000b 



004 757 

104423 
00020? 



000000V 



.SBTTL EMS, 10 ERROR MESSAGE SUBROUTINES 

EMS.lOssJSR PC,M$EM5.10 

TRAP 23 

RTS PC 



6704 



; Routine Size: 4 words. Routine B&ie: *CODE$ ♦■ 14022 
j Mas t mum stack depth per Invocation,' 2 words 



f70S 2 PRINTU (f.BD„10, ,RDRX ADDR * ,0F RC)| 
6 706 1 ENDMSG, 



• "NO RESPONSE AT ADDRESS XXXXXX" 



000000 013746 OOOOOOG 



00000- 
OO0010 
000 314 
n 00020 

001M22 

000024 
000030 



063716 

012746 
012746 

010600 
104414 
062706 
000207 



OOOOOOG 
OOOOOOG 
000002 



000006 



.SBTTL 


MtEMS.10 ERROR 


M$EMS,10: 




MOV 


RDRX.ADDR, - ( SP ) 


ADO 


OF,RC > (SP'> 


MOV 


OEBD.10, -(SP) 


MOV 


©2, (SP) 


MOV 


SP.RO 


TRAP 


14 


ADD 


06, SP 


RTS 


PC 



6 7Q5 



I SP,* 



6704 



Routine Size: 13 words, Routine Base: $CQDb* 
Maximum stack depth per* invocation: 5 words 



14032 



7RQANJ 
V01.6 



6707 1 



RD'RX EXERCISER 

ERROR MESSAGE SUBROUTINES 

8GNMSG (EMS. 12) l 



();• 



11 Apr -1984 11:56:01 
U-Apr-19H4 11:45:02 



VAX-U Bl Iss-16 V4.0 579 

D ISK *USER2 J [ POWERS 1ZRQAD0 . BL 1 j 6 



SEQ 0223 
Page 223 

(80) 



oooooo 

000004 
000006 



004 737 
104423 
000207 



000000V 



.SBTTL 
EMS. 12: :JSR 
TRAP 

RTS 



EMS. 12 ERROR MESSAGE SUBROUTINES 

PC.iWS'MS.12 j 

23 

PC 



6707 



: Routine Sire: 4 wo^ds. Routine Base; *C0D£* ♦ 14064 
: Maximum stock depth per invocation: 2 words 



6708 2 
6 709 1 



PRINTS (EBD_12, .RDRX ADDR)i 
ENDMSG; 



! "INCORRECT BR LEVEL GIVEN FOR DEVICE XXXXXX" 



OOOOOO 013746 OOOOOOG 

000004 012746 OOOOOOG 

000010 012746 000002 

000014 010600 

000016 104414 

000020 062706 000006 

000024 000207 

; Routine Sije: 11 -Nords, Routine Base: JCODE* * 14074 

; Maximum stack depth per invocation: 5 words 



.SBTTL 


M$EMS.12 ERROR 


M$EMS.12i 




MOV 


RDRX.ADDR, (SP) 


MOV 


0EBD,12,-CSP) 


MOV 


*2. (SP) 


MOV 


SP.RO 


TRAP 


14 


ADD 


*6,SP 


RTS 


PC 



J SP,* 



6 708 



6707 



/RUAIV 
VOl.b 



6710 1 



RD/'RX EXERCISER 

I RROR MESSAGE SUBROUUK.S 

BGNMSG (EMS„13){ 



[".?. 



11 Apr- 1984 11:56:01 
U-Apr-1984 11:45:02 



VAX-11 Bliss-16 V4. 579 

DISK SUSER2 5 [ POWERS ]ZRQADO , BL 1 j 6 



SEQ 0224 
Page 224 
C81) 



000000 
000004 

000006 



004 737 

104423 
000207 



oooooov 



.SBTTL 
EHS.L3:iJSR 

TRAP 

RTS 



Routine SJje: 4 words. Routine Base: $CODE$ 
Mas J mum stack depth per invocation: 2 words 



EMS. 13 ERROR MESSAGE SUBROUTINES 

PC,M$EMS.13 

23 

PC 

♦ 14122 



6710 



6711 ? 
<-U> 2 
t7l6 1 



PRINTS (F.B0.13. 
EMS SA ( ); 
ENDMSG; 



.STEP)} 



! "STEP X READ ERROR" 
! PRINTX SA CONTENTS 



000000 013 746 OOOOOOG 



.SBTTL MSEMS.13 ERROR MESSAGE SUBROUTINES 



000004 
000010 
000014 
C00016 
000020 
000024 
000030 



012746 

012746 
010600 
104414 

004737 

062706 

000207 



OOOOOOG 
000002 



00 74 76' 
000006 



M$EMS.13: 




MOV 


STEP, -CSP) 


MOV 


0EBD.13.-CSP) 


MOV 


02. (SP) 


MOV 


SP.RO 


TRAP 


14 


JSR 


PC. EMS. S A 


ADD 


06. SP 


RTS 


PC 



J SP.4 



6/11 



6 712 
6710 



Routine Size: 13 words, Routine Base: $CQDE* t 14132 
Maximum stack depth per invocation; 5 words 



ZRUAM2 
V01. 6 


RD/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 




ll-Apr-1984 11:56:01 
U-Apr-1984 11:45:02 


i 6/14 1 


BGNMSG C EMS .14) j 






OO00OO 004 757 
000004 104423 
000006 000207 


000000V EMS , 14 j 


.SBTTL 

:JSR 
TRAP 

RTS 


EMS. 14 ERROR MESSAGE SUBROUTINES 

PC.MJEMS.14 

23 

PC 



VAX-11 Bltss-16 V4. 0-579 
DISK*USER2:[POWERS]ZRQADO.BL1 J 6 



SEQ 0225 
Page 225 
C82) 



6714 



: Routine Size: 4 words, Routine Base: $C0DE* ♦ 14164 
j Maximum stack depth per Invocation: 2 words 



6T15 

6 716 
6717 



PRINTB (EBO 14, , IRORX.ADOR)} 

FMS^SA ()j 

ENDMSGj 



! "BAD SA CODE FROM DEVICE XXXXXX" 
! PR1NTX SA REGISTER CONTENTS 



000000 013746 OOOOOOG 



.SBTTL M5EMS.14 ERROR MESSAGE SUBROUTINES 



000004 
000010 
000014 
000016 
000020 
000024 
000030 



012746 
012746 
010600 
104414 
004 757 
062706 
000207 



Routine Size: 
Maximum stack 



OOOOOOG 
000002 



007476" 
000006 



MSEMS.14: 




MOV 


IRORX.ADDR. (SP) 


MOV 


0E6D.14, (SP) 


MOV 


42, (SP) 


MOV 


SP.RO 


TRAP 


14 


JSR 


PC.EMS.SA 


ADD 


06, SP 


RTS 


PC 



S SP,* 



6715 



6716 
6714 



13 words, Routine Base: $CQQE* 

depth per Invocation: 5 words 



♦ 14174 



7RQAM2 

V01, 6 



67ia i 



RD/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 

BGNMSG (EMS, 18); 



Ui.:: 

ll-Apr-1984 
U-Apr-19«4 



11:56:01 VAX-11 Bliss-16 V4, 0-579 
11:45:02 DISKSUSER2: [ POWERS ]ZRQADO. BL1 j6 



SEQ 0226 
Page 226 
(63) 



000000 004 73 7 
000004 104423 
000006 000207 



oooooov 



.SBTTL 
EMS, 18: :JSR 

TRAP 
RTS 



Routine Size: 4 words, 
Maximum stack depth p*r 



Rout ine Base: 
invocation: 2 words 



EMS. 18 ERROR 

PC,M$EMS,18 

23 

PC 



MESSAGE SUBROUTINES 



6718 



*CODE$ ♦ 14226 



6719 

6 720 



PRINTB CERD..18, 
EMS_RP (); 
ENDMSGj 



,CDISK) 



! "DISK XXX WENT OFFLINE" 

! PRINTX RELEVANT RETPKT FIELDS 



000000 013746 OOOOOOG 



.SBTTL MiEMS.18 ERROR MESSAGE SUBROUTINES 



000004 
000010 
000014 
000016 
000020 
000024 
000030 



012746 
012746 
010600 
104414 
004737 
062706 
000207 



OOOOOOG 
000002 



011732' 
000006 



M$EMS.18: 




MOV 


COISK, -CSP) 


MOV 


♦F.BD,i8,-(SP) 


MOV 


02, -CSP) 


MOV 


SP.RO 


TRAP 


14 


JSR 


PC,EMS,RP 


ADD 


06, SP 


RTS 


PC 



i SP.i 



6719 



6 720 
6718 



Routine Sije: 13 words, Routine Qasc: $CQDE$ * 14236 
Maximum stack depth pzr invocation; 5 words 



H2 



ZRQAM2 
VOl, 6 



6722 1 



RD/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 

BGNMSG CEMS„21){ 



11 -Apr- 1984 11:56:01 
11 -Apr -1964 11:45:02 



VAX 11 Bliss -16 V4 .0-579 
DISK$USER2: f POWERS iZRQADO.BLlj 6 



SEQ 022 / 
Page 227 
(84) 



000000 004 737 000000V 
000004 104423 
000006 000207 



,SBTTL 
EMS.aiuJSR 

TRAP 
RTS 



; Routine Size: 4 words, Routine Base: $CODE$ 
; Maximum stack depth per invocation; 2 words 



EMS. 2 ERROR MESSAGE SUBROUTINES 

PC,M$EMS.21 

23 

PC 

14270 



6 722 



672"* 
6724 



FMS_RP1 (); 
ENDMSGj 



! CONTENTS OF RETURN PACKET 



000000 004 737 012052 
000004 00020 7 



.SBTTL MIEMS.21 ERROR MESSAGE SUBROUTINES 
M$EMS,21: 

JSR PC.EMS.RP1 ; 

RTS PC i 



6723 
6722 



; Routine Size: 3 words, Routine Base: $CODE$ * 14300 
! Maximum stack depth per invocation: 1 word 



I 2 



VOl, 6 



6725 1 



RO/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 

BGNMSG (EMS 22) 



11- Apr -1984 11:56:01 
U- Apr -1984 ll:45;02 

♦CONTENTS OF DUP BUFFER 



VAX-11 Bliss-lft V4. 0-579 

DISK $USER2 5 [ POWERS ]ZRQAD0.BLlj6 

III 



SEQ 0228 
Page 228 
(85) 



000000 
000004 
000006 



004 73 7 
104423 

000207 



oooooov 



.SBTTL 
EMS, 22 ; ;JSR 

TRAP 
RTS 



Routine SJ^e; 4 words, Routine Base; $CODE* 
Maximum stack depth per invocation; 2 words 



EMS. 22 ERROR MESSAGE SUBROUTINES 

PC,M$EMS,22 

23 

PC 

14306 



6725 



t'726 2 
6727 1 



EMS^DBN ( ); 
ENDMSGj 



Mil 
Mil 



000000 004 73/ 011004 
000004 000207 



.SBTTL MSEMS.22 ERROR MESSAGE SUBROUTINES 
M$EMS.22: 

JSR PC.EMS.DBN : 

RTS PC j 



6 726 
6725 



; Routine Sije; 3 words, Routine Base: *CQDE* * 14316 
i Maximum stack depth per invocation I word 



ZRQAM2 
V01. 6 



672tf 



RD/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 

BGNMSG (EMS .24) j 



J.-> 



ll-Apr-1984 
11 -Apr -1904 



11:56:01 VAX-11 Bliss 16 V4. 0-579 

11:45:02 DISK$USER2: [P0WERS)2RQAD0 t BLi}6 



SEQ 0229 
Page 229 
(86) 



000000 
000004 

000006 



004737 
104423 
000207 



Routing Size; 
Maximum stack 



000000V EMS. 24 



4 words, Routine Bove: 
depth per invocation: 2 words 



.SBTTL 
:JSR 
TRAP 
RTS 



EMS. 24 ERROR 

PC,M$EMS,24 

23 

PC 



MESSAGE SUBROUTINES 



J 



6726 



*CQDE* ♦ 14324 



6 729 
6/30 

6731 



PRINTB (EBD..24, 
EMS RP ( )j 
ENDMSGs 



.CDISK); 



I "DISK XXX WENT TO THE AVAILABLE STATE* 1 
! PRINTX RELEVANT RF.TPKT FIELDS 



000000 013746 OOOOOOG 



000004 
000010 
000014 
000016 
000020 
000021 
000030 



012746 
012746 
010600 
1044 14 
004 73/ 
062/06 
000207 



; Rout I ne 
j Maximum 



stack 



OOOOOOG 



011732* 
000006 



.SBTTL 


M$EMS.24 ERRO 


MSEMS.24: 




MOV 


CDISK, (SP) 


MOV 


*EBD.24,-(SP) 


MOV 


*2 t CSP) 


MOV 


SP.RO 


TRAP 


14 


JSR 


PC.EMS.RP 


ADD 


06.SP 


RTS 


PC 



SP,+ 



6729 



6/30 
6726 



13 words, Routine Base; $CQDE* * 14334 
depth per invocation: 5 words 



7RQAM2 
V01, 6 



6732 



RD/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 

8GNMSG (EMS, 30)} 



Kr. 



ll-Apr-1984 11:56:01 
Il-Apr~l9tf4 11:45:02 



VAX-11 Bliss- 16 V4. 0-579 

DISK $USER2:[ POWERS 1ZRQAD0.BL1 j6 



SEQ 0230 

Page 230 

(87) 



000000 004 737 000000V 
000004 104423 
000006 000207 



.SBTTL 
EMS.30::JSR 

TRAP 
RTS 



EMS, 30 ERROR MESSAGE SUBROUTINES 

PC,M$EMS,30 

23 

PC 



6732 



Routine Sire: 4 words, Routine Base: $CODE; * 14366 
Maximum stack depth per invocation: 2 words 



?733 

6734 



EMS FRR ( )j 

ENDMSG; 



! PRINT ALL RELEVANT DATA ON DETECTING AN ERROR 



000000 004737 013560' 
000004 000207 



.SBTTL MJEMS.30 ERROR MESSAGE SUBROUTINES 
M$EMS,30: 

JSR PC, EMS, ERR 5 

RiS PC : 



6 733 
6732 



; Routine Size: 3 words, Routine Base: $CQDE$ ♦ 14376 
; Maximum stick depth per invocation: 1 word 



6735 


1 




6 736 


1 


end 


6737 


1 




6738 





eludom 



OTS external references 

.GLOBL. *SAVE5, SSAVM, $SAVb^ t SSAVE2 
.GLOBL BL$DIV, BLSMOD, BL*MJl. 



Psect Nuime 
$0UN$ 
5C0DE* 
$PLIT$ 



PSECT SUMMARY 



Words 


Attributes 








74 


RW . D , 


L.CL, 


REL , 


CON 


3202 


RO . I , 


LCL, 


REL , 


CON 


12 


RO . D , 


LCL, 


REL , 


CON 



Library Statistics 



f i le 
DISK $U5fcR2j [POWERS URQADQ.LI61 3 



Total 
404 



Symbols * ■ 

Loaded Percent 



294 



72 



Pages 
Mapped 



Process ing 
T Jme 

00 : 00 . 2 



ZRQAM2 
V01, 6 



RD/RX EXERCISER 

ERROR MESSAGE SUBROUTINES 



< 



11 -Apr -1984 
U-Apr-19B4 



11:50:01 VAX-11 Bliss-16 V4, 0-579 

11:45:02 DISK NJSER2* [POWERS ]ZRQAD0.BL1;6 



StQ 0231 
Page ^31 
(67) 



COMMAND QUALIFIERS 
BLISS/POP 11 ZRQADO.BL1/LISWRQADO.IS1/QBJ&CWRQADQ»QBI/SQURCE*PAUE:53 



3032 code 
02:48.2 
05:13.5 



Sire: 
Run T I me : 
Elapsed Time 
Lines/CPU Min: 2403 
Le\emes/CPU-Min: 23961 
Memory Used: 677 ps9es 
Compilation Complete 



♦ 6503 dot© words 



ZRQAN3 



0001 

0002 

0005 

0004 

0005 

0006 

000? 

0003 

0009 

0010 

0011 

0012 

001? 

0014 

0015 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 



M2 

11 Apr -1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss-16 V4. 0-579 

DISK 5USER2 : [ POWERS ] ZRQADO . BL2 } 6 



SEQ 0232 
Page 1 

(1) 



module ZRQAM3 ( 

*title 'RO/RX EXERCISER' 

Ident = 'V01.6* . 

address ing„ mode (absolute), 
environment (noeis) 
) - 



begin 
*sbttl 



DECLARATIONS' 



library ' ZRQADO , Lib' ; 

require ' BLSfiAC.REQ' 5 

EQUALS; 

forward rout i ne 

INIT.TEST : novaluc, 

DRIVER.INIT : novolue, 

CTLR.INIT : novolue, 

INI_CTLR_DAT • novolue, 
REG_EXIST, 
VEC BR_TEST, 
INrGEN, 
HARD INIT, 

INI RRING : novolue, 
SET CTLR CHAR, 
UNIT, INIT j novolue, 
DR_ERR : novalue. 
ACCESS : novolue, 
MULTI DRIVE : novolue, 
MD.INIT : novolue, 

INIT_IO_BUFF : novolue, 
FATAL ERROR : novolue, 
QIO.OK. 

QIO_OUT, 

QI0J3EN : novolue, 

GET.RANDOM : novolue, 
QIO UNIT : novolue, 
QIO_FUNC 
DUP : 



! RDRX EXERCISER GLOBAL LIBRARY 
! DIAGNOSTIC SUPERVISOR LIBRARY 



! ROUTINES APPEAR IN THIS ORDER 

S INDENTATION IMPLIES CALLED SUBROUTINE 



: novolue 
NOVALUE, 
DUPWRTDBN 
DUPREDDBN 



QIO_LBN : 
010, SIZE j 
FILL BUFE 
PROC RETPKT : 
DIO RETPKT 



NOVALUE, 
NOVAl UE , 
DUPCOMMAND : NOVALUE, 
DUP IDLE : NOVALUE, 
novalue, 
novolue , 
: novolue, 
novolue, 
NOVALUE, 



DUP.COMPARE 1 NOVALUE, 



Mil 

Mil 
Mil 
Mil 
Mil 



Mil 
Mil 



ZRQAM3 
VOL 6 



1544 
1M5 
1546 
154 
15' 
1549 
1550 
1551 
155? 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
156? 
156i 
Mil 
1564 
1565 
1566 
1567 
1568 
156S 
1570 
lb/1 
157? 
1573 
1574 
1575 
1576 
If/ 
1578 
1579 
1580 
1581 
158? 
1583 
1584 
1585 
1586 
158 7 
1588 
1589 
1590 
1591 
159? 
1593 
1594 
1595 
15% 



RD/RX EXERCISER 
DECLARATIONS 



N2 

ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss- 16 V4. 0-579 
DISK$USER2:[P0WERS]ZRQAD0.3L2 } 6 



SEQ 0235 
Page 2 

CI) 



ICLRETPKT : novolue, 

FSET_UPAR ; novolue, 
HAPO_ERROR : novolue, 

ERR„HRD RTNE : novolue, 
ERR_HRD.RTNE_APT : novolue, 
UPD„IO_TALLY : novolue, 
OVF_CHK : novolue, 
ROUND.OUTPUT : novolue, 
HOST WRT CHK, 

ERR.HRD.RTNE : novolue. 
ERR_HRD_RTNE APT : novolue, 
SWEEP : novolue, 
RPS_REM, 
DR.RETPKT : novolue, 
A2INT0 : L$ISR novolue, 
AZINT ; novalue, 

: novolue, 
novolue, 
novolue, 
: NOVALUE. 



FATAL ERROR 
POLL CPING 
POLL RRING 
DUP RSP 



DISK.RSP : novolue, 
SEQUCN : novolue. 

SCAN ERRLOG : novalue, 

ERR.SOFf .RTNE : novolue. 
ERR_SOFT_RTNE_APT : novolue, 
SOFT.ERROR : novolue, 
DATAGM : novolue j 

ERR^SOFT RTNE : novalue, 
ERR_SOFT_RTNE_APT : novolue, 
SOFT^ERROR j novoluei 



externol 
CST 



blockvector 



[MAX_CTLR. CST^LEN, word] field (CST FIELDS), 
! RUN- TIME CONTROLLER STATUS TABLES 
CST_ADDR : ref block [CST_LEN. wo^d] field (CST FIELDS), 

! CONTROLLER STATUS TABLE ADDRESS OF "CURRENT" CONTROLLER 
DCT : blockvector [MAX.CTLR, DCT.LEN, word] field (DCT FIELDS), 

• DRIVER CONTROLLER TABLES 
ref block [DCT.LEN, word] field (DCT J IELDS ) , 

! ADDRESS OF "CURRENT" DRIVER CONTROLLER TABLE 
ref r<^rx field CRC.REG), 

! DEVICE AODRESS OF "CURRENT" CONTROLLER 
: ref rdrx field (RC^REG). 

! CEVICE ADDRESS OF INTERRUPTING CONTROL LFR 
BLOCKVECTOR [MAX_UNI T S, 2, UORD ] , Mil 

•BLOCK SEQUENCE TABLE FOR SEQUENTIAL LBN (VS Mil 
•RANDOM SEEK) MODE • III 

: vector [MAX_UNITS ♦ TALLYMEN, word] field (T FIELDS). 
! STATISTICS TABLES 
T..ADDR : ref block [TALLY LEN, word] field (T FIELDS), 

» ADDRESS OF STATISTICS TABLE C TALL>) FLjR CURRENT UNIT 
DUPPKT ; BLOCK [257, WORDJ FIELD (DP. FIELDS), JBUf-KfcR FOR OUR III 

IXNFQ FROM RCCEJVE AN ,r > SEND COMMANDS III 



DCT.ADDR : 

RDRX_ADDR 

IRDRX_ADDR 

BST : 

TALLY 



F 



)*> 



7RQAM5 
VOL b 



1W 
1MB 
159Q 
ifeOO 

160 1 
l^V 
1605 
lb 04 

160^ 
160b 

160-' 

looe 

1610 
1611 
1612 
1615 
1614 
1615 
1616 
161? 
1618 
1619 
1620 
1621 
1622 
1623 
lt>24 
1625 
1626 
162? 
1626 
1629 
1650 
1651 
1632 
1635 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
164 3 
1644 
1645 
1646 
164/ 
1648 
1649 



RO/RX EXERCISER 

DECLARATIONS 



ll-Apr-1984 11:08*35 
ll-Apr-19B4 Us08t22 



VAX-11 Bliss 16 V4.0 579 

DISK IU5ER2 s [ POWF.RS ] ZRQADO , BUS i 6 



SEC 0234 
Poge 3 
(1) 



TPK_SGN ; VECTOR [MAX UNITS, BYTE, 
RDM_CNT : WORD, !N0. OF RANDOM 
RANOOM : VECTOR [RDM.LEN, WORD), 
C ERR TBI 



SIGNED], {CURRENT TK DIRECTION 111 
NOS. KEEPW /// 

•RAND NO TABLE TOGET//HER III 
blockvector [MAX.CTLR, C_ERR LEN, word] field CC ERR FIELDS) 
! STATISTICS TABLE FOR CONTROLLER ERRORS 
blockvector [PKT.CNT, PKT_LEN, word] F « «ld (PKT FIELDS), 
» MSCP PACKET POOL 
ref block (PKT LEN, word] field (PKT FIELDS), 

\ ADDRESS OF AN MSCP PACKET (INTERRUPT PROCESSING) 
vtctor [PKT.CNT, byte, signed!, 

• MSCP PACKET POOL ALLOCATION TABLE 
blockvector [RP_CNT, RP.LEN, word] f i*ld CRP FIELDS), 

! RETURN PmCKET POOL 
vector [RP_CNT, byte, signed! . 

! RETLWN PACKET POOL ALLOCATION TABLE 
word, ! CURRENT RETURN PACKET INOEX 
ref block [RP.LEN, word] field (RP FIELDS), 
! CURRENT RETURN PACKET ADDRESS 
: blockvector (EP.CNT » 1, EP„LEN. word] field (EP FIELDS), 

• ERROR-LOG PACKET SAVE AREA 
vector [MAX.BUF CNT), 

vector [MAX, BUT, CNT, byte, stoned), 
IOOQ j vector [IOOG.LEN, byte), 
IOOQ.IN ; word. 



MSCP. .PKT 

IPKT .ADDR 

PKT USE : 

RETPKT 

RP.USE 

RP INOX j 
RP.ADDR t 

ElOG.PKT 

BUFF ADDR 
BUFF OWN 



IOOQ_OUT : word. 

ENTRY .REASON t byte, 

EOP.FLAG ; byte. 

DIP, FLAGS : WORD, 

CCTLR : word, 

CDI5K ♦ word, 

CUOFF : word, 

CTLR.CNT : word, 

DUR ; vector [MAX_L*iITS, byte), 

QIO : vector [MAX CTLR, byte), 

FREE .MEM ADDR, 

BYTS.PER.QIO : word, 

ST. CODE : word, 

SB.CODE : word. 

STEP : word, 

OF.RC } signed word, 

SA.REG : word. 

CMO,TIME : word, 

NEX 2 Hord, 

CRN.LOW : word. 

CRN. HIGH * word. 

CREDIT.BAL j word. 

NEXT_PKT_USE : byte, 

HOURS : byte, 

MINUTES : byte, 

CLK_TICKS : word, 

CLK.PRESENT ■ byte, 

HOE FLAG ; byte, 

FORCED .ERRQR \ byte, 



TABLE Of I/O BUFFER DESCRIPTORS 
I/O BLTFER OWNERSHIP (CONTROLLER NUMBER) 
I/O DONE QUEUE - CIRCULAR QUEUE OF RETPKT 
I/O DONE QUEUE IN POINTER 
I/O DONE QUEUE OUT POINTER 
CURRENT OPERATOR COMMANO 
ENO-OF-PASS FLAG 
Dl* 5 FLAGS III 

NUMBER OF "CURRENT" CONTROLLER 
CURRENT DISK ADDRESS (RD/RX DISK NUMBERS 
CURRENT UNIT CST OFFSET 

TOTAL NLH6ER OF CONFIGURED CONTROLLERS 
DROP UNIT REASON 

NLW6ER OF OUTSTANDING QIOs PER CONTROLLER 
START OF FREE MEMORY 
SIZE (BYTES) OF AN I/O BUFFER 
CURRENT STATUS CODE 
CURRENT SU6-C00E 
CURRENT STEP IN HARD INIT 
OFFSET (0 OR 2) TO READ IP OR SA 
STORAGE FOR SA REGISTER READS ANO WRITES 
COMMANO TIME0U1 VALUE (IN SECONDS) 
NON-EXISTENT MEMORY TRAP INDICATOR 
COMMANO REF NUMBER OF LAST COMMAND SENT 
COMMANO REF NUMBER (HI ORDER) 
CREDIT BALANCE 

POINTER TO NEXT ENTRt IN PKT USE TABLE 
TIME Of DAi (HOURS) 
TIME. OF DAY (MINUTES) 
TIME OF DAY (LINE -CLOCK TICKS) 
FLAG INDICATES IF LINE CLOCK PRfcSEN* 
FLAG INDICATES IF 'HALT ON ERROR" HAG *»t- T 
••FORCED ERROR" DETtCTED XN LAST READ 



INDECES 



c 



") 



rRQAMS 


RD/RX EXERCISER 


V01, 6 


DECLARATIONS 


i 1650 J 


FER.LBN : word, 


; 1651 3 


FER.8C : word, 


; 165? 1 


INIT.OCCURED : byte, 


; 1653 1 


i AOOR.VECT.OK : byt«. 


1654 ] 


S PATTERN ; WGRD, 


; 1655 3 


S OUPPKT ; WORD, 


1656 1 


P.INOEX j SIGNED WORD, 


; 1657 1 


DBM1?, 


: 1658 3 


DBM18, 


; 1659 3 


L DBM19, 


; 1660 3 


L DBM?0, 


; 1661 3 


DBM21, 


; 166? 3 


L DBM22, 


; 1663 3 


L D3M23, 


; 1664 3 


DBM?5, 


; 1665 1 


D8H26 , 


; 1666 3 


L DBM27, 


; 166? 3 


i DBM29, 


; 1668 3 


I DBH108, 


: 1669 3 


L DBM109, 


5 1670 3 


L DBM1U, 


i 1671 3 


L DBM112, 


; 167? 3 


L DBM120, 


; 1673 3 


L DBM1?1, 


; 1674 3 


L EH 0, 


; 1675 3 


L EH_1, 


; 16 76 .1 


EH_2. 


: 1677 3 


L EH. 3, 


; 1678 3 


L EH .4, 


; 1679 1 


L EH. 5. 


; 1680 3 


L EH_6, 


; 1681 1 


L EH_7. 


; 1682 . 


L EH_8, 


i 1683 ; 


L EH 9, 


: 1684 


I EH.10, 


j 1685 3 


L EH_12, 


; 1686 ' 


L EH_13. 


; 1687 : 


L MSG 02, 


; 1688 : 


L MSG 03, 


i 1689 * 


EGS_02 V 


; 1690 : 


L EGD 10. 


; 1691 : 


L EGD„il, 


; 169? * 


L EGD_1?. 


j 16^3 


L EGD_13, 


: 1694 


I EGD_14, 


; 1695 


L EGD 15. 


; 1696 


EGD_16, 


; 1697 


L EGD 17, 


; 1698 


L EGD 18. 


; 1699 


1 EGD 19. 


; 1 700 


1 EGD.20, 


; 1?01 


EGD. 21, 


; 1702 


L EGO .22, 



11 Apr 1984 
11 Apr-1984 



11 {08: 35 VAX -11 Bliss 16 V4.0 579 

1 1 j08 j 22 DISK IUSER2 : [ POWERS ) ZRQADO . BL2 1 6 



SEQ. 



.02 35 



4 
CI) 



! LBN OE THE "FORCED ERROR" BLOCK 

J BYTE COUNT OF THE "FORCED ERROR" Bl OCK 

! EXERCISER INITIALIZATION COMPLETE 

! FLAG INDICATES IF ADDRESS/VECTOR TEST PASSED 

•PATTERN WRITTEN TO DBNS 111 

•DBN BYTE COUNTER III 

•CURRENT MESSAGE PACKET INDEX III 



Mil 
Mil 
Mil 
Mil 
Mil 
Mil 
Mil 
Mil 
Mil 
Mil 
Mil 
Mil 
Mil 



D 



/RQAM3 
V01.fr 



1703 
1704 
1705 
1706 
1707 

i7oa 

1709 

1710 

1711 

1712 

171? 

1714 

1?15 

17lt> 

1717 

1^18 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1753 

1734 

1735 

1736 

1737 

17 38 

17 39 

1740 

1741 

1742 

1745 

1744 

1745 

1746 

1 74 7 

1748 

1749 

1 

1 

1 

1 

1 

1 



750 
751 
752 
75 5 
754 
755 



RO/RX EXERCISER 
DECLARATIONS 



F 60.23, 

EGD.24, 

EGH,30, 

DF MSG, 
HRD_MSG, 
SFT.MSG. 
HRD_SUB, 

CRLF, 
SUP ERROR 
SWP XFER 
SWP_FLAGS 
DUPROUND 
SWP RAT : 
SWP DPAT 
SWP UCNT 
SWP„TIME 
SWP UOPAT 
L*LUN. 
LSlNIT; 



11 -Apr 1984 
11 -Apr -1984 



11:08:35 VAX - 11 Bliss-16 V4, 0-579 

1 1 { 08 { 22 DISK *USER2 ! [ POWERS ] /RQADO . BL 2 j 6 



SEQ 0236 

POQ« 



(1) 



: word, 

word, 
i word, 
: WORD, 
word, 

word, 

word, 

word, 
I vector [MAX_UDP_CNT, word]. 



HARD ERROR LIMIT FOR DROPPING UNIT 
TRANSFER LIMIT FOR DROPPING UNIT 
FLAGS (SEE DOCUMENTATION) 
DUP TESTING RATIO 
RD51/ , 32 OPERATION RATIO 
DATA PATTERN NUMBER 
USER DATA PATTERN COUNT 
TIMil 01 DAY 
USER DATA PATTERN 



III 



psect 

own 

own 



SGGGKread, nowrite, execute, local, concatenate ) i 



COMM_AREA : blockvector [MAX.CTLR, COMM LEN, word] Fiely (COM FIELDS), 

» COMPLICATIONS AREA BETWEEN HOST AND A/TEC CONTROLLERS 
Mil BST : vector [MAX UNITS, word, sioned], 

\ BLOCK SEQUENCE TABLE FOR SEQUENTIAL LBN (VS. RANDOM SEEK) MODE 

DPST : vector [MAX_L*IITS, bytej, • DATA PATTED SfaUENCE TABLE 



MAX LBN : 
STORAGE : 
ICOM^ADDR 

ICST ADDR 



vector 
vector 
t ref block 

: ref block 



COMMUNICATION AREA 



INT.ADDR 



win 

\ Mil 



ICTLR 
MX1 : 
MX2 i 
MAD1 

MAD2 



[MAX^UNITS, word), ! LARGEST L BM ALLOWED 

[MAX LHITS, word), • 0L**1Y STORAGE 

[COMM_LEN, wordl field (COM FIELDS), 
ADDRESS OF INTERRUPTING CONTROLLER'S 
(CST^LEN, word] field (CST_r.lF.LPS). 
ADDRESS OF INTERRUPTING CONTROLLER'S 
[OCT_LEN. word! field (OCT FIELDS ) , 
! ADDRESS Of INTERRUPTING CONTROL I ER' S 
vector [MAX^CTLR] Initial (A/INTO *( , VT.NTt, A/INT2. 
! INTERRUPT SERVICE ROUTINE AUURLSS TABlE 
RDM^CNT : word initial (ROM LEN), • NUMBER OF RANDOM NUMBERS 

RANDOM : vector (RDM^LEN. word), ! RANOOM NUMBER TABLE 



IDCT_ADDR : ref block 



CST 

ucr 



A/INT3)*). 



KEEP 

TOGETHER 



: word, 
signed word, 
siQneo word, 
ref block [PKT 



LEN, word] 

» ADDRESS OF 

ref block [PKT. LEN. word] 

• ADDRESS OF 
LAST PKT : blockvector [MAX CKR 

• SAVE AREA 
PAT02 s vector [2] initial (I, 

Uo' 000000' ), 
PAT03 j vector [2] initial (1, 



! INTERRUPTING CONTROLLING Nv"MBER 
» MSCP PKT INDEX FOR FIRST QIO 
• MSCP PKT INDEX FOR SECOND QIO 
field (PKT FIELDS), 
MSCP PACKET FOR FIRST QIO 
field (PKT. FIELDS), 
MSCP PACKET FOR SECOND QIO 
, LAST. PKT LEN, word] field (LAST PKT FIELDS) 
FOR INFO ABOUT LAST RESPONSE PACKET 

» PATTERN 2 

! PATTERN 5 



(■'•■ 3 



/KQAMJ 


VOL 6 


; 1 756 1 


; 175/ 1 


; 1 758 1 


; 1759 1 


; 1 7m) 1 


; 1761 1 


; 1 76.? 1 


; 1 765 1 


; 1764 1 


1 765 1 


; 1 766 1 


; 1 76 7 1 


; 1768 1 


; 1769 1 


; 1770 1 


; 1771 1 


; 1772 1 


; 17 75 1 


; 1774 1 


; 1775 1 


; 1776 1 


; 1777 1 


; 1778 1 


; 1779 1 


; 1780 1 


; 1781 1 


178? 1 


j 1785 1 


; 1 784 1 


; 1785 1 


; 1 736 1 


5 1787 1 


; 1788 1 


; 1789 1 


; 1790 1 


; 1791 1 


; 1 792 1 


: 1795 1 


; 1794 1 


; 1795 1 


; 1796 1 


; 179 7 1 


; 1798 1 


; 1799 1 


; 1800 1 


j 1801 1 


: 180? 1 


; 1805 1 


; 1804 1 


; 1 805 1 


; 1806 1 


180/ 1 


; 1808 1 



RO/RX FXERCISER 
DECLARATIONS 



11 -Apr -1984 
U-Apr-1984 



PAT04 : 

PAT05 j 

PAT06 j 

PAT07 : 

PAT08 : 

PAT09 ; 

PATIO : 

PATH : 

PAT12 : 



#0' 177777' ), 
vector [2 
*o* 105615* 
vector [2] 
#o'031465' ) 
vector [2] 
*o' 050221' ) 
vector [I 7 ] 

#0*000001 • , 

*o' 000057' , 
*©*000777' , 
#o*017777' , 
vector [17} 
*o' 177776' , 
#o* 177740' , 
#©* 177000 1 , 
*o' 160000' , 
vector [17] 
rep 5 of (#o 
rep 2 of (#© 



] initial (1 

Initial ( 1 

In! t ial CI 

» 
Initial ( 
#o* 000005 
#o' 000077 
*o' 001777 
#o' 057777 
initial ( 
#o' 177774 
*o' 177700 
*©* 176000 
#o' 140000 
ini t ial ( 
000000' ) 
000000' ) 



16, 
' , *o 
' . *o 
' . *o 

• , *o' 
16, 

' . *o 
' , *© 
' , *o 
1 » *o 
16. 
. rep 

♦ rep 
' , *o 



000007' , 
000177' , 
005777* , 
077777' , 

177770' , 

177600' , 
174000' , 
100000' . 



Ko' 000017' , 
*o'00037/' , 

*o* QQ7 rrr . 

*©' 177777' ), 

*o* 177760' . 
*o' 177400' , 
*o' 170000' , 
*o* 000000* ), 



*©' 000000' , *©* 177777 
tfo' 000000' , #o' 177777 
vector [2] initial (1, 
#o' 155551' ), 

vector 117] initial (16, 
rep 3 of (*o' 052525' ), rep 
rep 2 of Crfo' 052525' ), rep 
*o' 052525', *©« 125252' , #©' 
#o' 052525* , #o 125252' ), 
vector [21] initial (20, 
rep 5 of (*o'026455* ), rep 
rep 2 of (#©' 026455' ), rep 
rep 2 of (*©' 026455' ), 
*©* 151322'. *o' 026455', *©' 
irks' 151522', #o'026455', *o ( 
vector (2) initial (1, 
#o' 066666' ). 

vector [17] Initial (16, 
•Mo'000001', #©*000002*. *© 
#o'000020', #o'00O040', #o 
•io'000400', *o'001000', *o 
*©'010000', #©'020000', tfo 
vector [17] initial (16, 
Ho' 177/76', *o' 177775', *o 
Ho' 177757 1 , #o' 177757 1 . #o 
*o' 177577', *o' 176777', *o 
#o' 167777', #o' 157777', *o 
vector [17] initial ( 16, 
rep 5 of (#©'153331'), rep 
rep 2 ©t (#©'153331'), rep 
#o' 135551*, *o* 155554*, #o 
#o* 155551' , #o 155554' ), 
PAT17 ; vector [22] initial (21, 



3 of (#o' 177777* ), 
2 of C#o' 177777* ), 
000000' , Ho' 177777 



3 of 

2 of Ik. 
052525' 



1 ^5252* ;, 
"PS? * ) , 
#0" ..J5252- 



3 of 
2 of 



(#o 
(#0 



151322 
151322 



), 



PAT13 : 

PAT14 : 

PAT15 : 

PAT16 : 



151322' 
151322' 



000004 ' 
000100' 
002000' 
040000' 

177773* 
1776/7' 
1/5777' 

137777' 



#o' 026455* , 
Ho' 026455' ), 



Ko' 000010* . 
Ko' 000200' , 
•Mo' 004000' , 
#o' 100000' ) 

*0* 177767' , 
Ko' 177577' , 
*0* 175777' , 
#0*077777' ) 



3 of (*©* 155554* ), 
2 of (*o' 155554' "), 
153531' , #o* 155554' 



11:08:35 VAX-11 Bliss 16 V4 , 0-579 

1 1 : 08 : 22 DI SK * USER2 : [ POWERS ] ZRQAD0 . BL2 } 6 



PATTERN 4 
PATTERN 5 
PATTERN 6 
PATTERN 7 

• PATTERN 8 

! PATTERN 9 

I PATTERN 10 
! PATTERN 11 

! PATTERN 12 



3EQ 023/ 
Page 6 
CI) 



• PATTERN 13 
! PATTERN 14 

! PATTERN 15 

! PATTERN lb 

• PATTERN 17 



~3 



/RQAM5 


VOK 6 


} 1809 1 


1810 1 


: 1811 1 


; 181? 1 


; 1815 1 


; 1814 1 


; 1815 1 


; 1816 1 


l 1817 1 


; 1818 1 


: 1819 1 


1820 1 


; 1821 1 


; 1822 1 


18c?? 1 


; 1824 1 


; 1825 1 


; 1826 1 


j 182": i 


; 1828 1 


; 1829 1 


j 1850 1 


I 1851 1 


; 1852 1 


; 1855 1 


; 1854 1 


; 1855 i 


; 1856 1 


: 1857 1 


; 1858 1 


; IS59 1 


; 1840 1 


; 1841 1 


; 184? 1 


; 1843 1 


; 1844 1 


; 1845 1 


; 1846 1 


i 184 7 1 


; 1848 1 


1849 1 


; 1850 1 


; 1851 1 


; 185? 1 


; 1855 1 


1854 1 


: 1855 1 


; 1 856 1 


; 185/ 1 


; 1858 1 


; 1859 1 


; 1860 1 


: 1861 1 



RO/RX EXERCISER 
DECLARATIONS 



U-Apr-1984 11 ;08; 35 

ll-Apr-1984 Ilt08i22 



VAX-11 Bliss-16 V4, 0-579 

DISK $USER2}[ POWERS JZRQAD0.BL2} 6 



SEQ 0238 
Page 7 
CI) 



PAT18 



PAT19 



PAT20 



PAT21 j 
OPA_TBL 



6 of 



CKO 1 

). 

C#o 

(*o 



0713U' 
071311' 



134631 
134631 



BST 

BST 



CNT 
DEV 



*o»000000*, rep 2 of (*C 106466' ), 

rep 3 of Oc'071511 1 ), rep 4 of (*o' 106466 

rep 5 of (*o' 071511' ) ( rep 6 of C*o' 106466 

vector [22] Initial (21, 

*o'106466', *o'000000'. Ho* 071311', 

rep 5 of (*o' 106466' ), rep 4 of (*o 

rep 5 of C*o' 106466' ). rep 6 of 

vector [22] initial (21, 

*o' 000000', rep 2 of C^o' 134631 

rep 3 of C#o , 043146' ), rep 4 of 

rep 5 of C^o' 043146' ), rep 

vector [22] initial (21, 

*o' 134651' , #0*000000' , #0 

rep 5 of C*o' 134631' ), rep 

reo 5 of (#0' 134631' ), 

vector [2] initial (1, 

#0' 000000' ). 

j vector [DP..CNT] initial 

(RDM_CNT, PAT02, PAT03, PAT04, PAT05, 
PAT06, PAT07, PAT08, PAT09, PAT10, PATH 
PAT14. 
PAT2Q, 
(0), 
(0), 



rep 



045146' , 

4 of C*o*045146' 

6 of (*o 4 043146* 



)), 



), 
)) 



). 



). 
>). 



! PATTERN 18 



J PATTERN 19 



PATTERN 20 



• PATTERN 21 

! ( LBN ) 

» DATA PATTERN 



ADDRESS TABLF 



PAT12, PAT13, 
PAT18. PAT19, 
word ini t i al 
in! t ial 
: word, 



PAT15, PAT16, PAT17, 
PAT21). 



wo^d 

CURRENT_VECTOR 

BRLEVEL t *ord, 

0U0FF : WORD, 

DRC START 

APT>00E \ byte initial (byte (FALSE)), 

MAIL_B0X_TESTNUM, 

MAIL_B0X_SLGTST, 

COMPARE DATA : byte, 

DRS_FLAGS; word, 

RO_MAX^SEQ_CNT • word, 

RX_MAX_SEQ_CNT : word; 

external routine 

NEX^TRAP : L$ISR novalue, 
TIME : LIISR novalue, 



CURRENT SEQUENTIAL BLOCK COUNT 
CURRENT SEQUENTIAL BLOCK DEVICE 
CURRENT DEVICE'S VECTOR ADDRESS 
CURRENT DEVICE'S BR LEVEL 
DUP OFFSET INTO CST LIZ 

START OF THE SUPERVISOR 

FLAG SET IF EXERCISER RUNNt a, UNDER APT 
ADDRESS OF TEST NUMBER LOCA HON IN APT MAIL -BOX 
ADDRESS OF Sue -TEST NUMBER LOCATION IN APT MAIL -BOX 
FLAG CLEARED TO BYPASS HOST COMPARES 
FLAGS USED IN START/RESTART OF THE EXERCISER 
COUNT USED IN SEQUENTIAL ACCESS OPERATIONS 



SET CPAR : 

SET UPAR : 

0UT„I0DQ, 

IN IODQ : 

GET PKT, 

PUT PKT : 

GET RETPKT 

PUT RETPKT 

GET 10 BUFF 

PUT 10 BUFF 

PUTA BUFF : 

SEND, 

WATT ; novalue, 

MODULAS, 



novalue, 
novalue, 

novalue, 

novalue, 



novalue, 

t novalue, 
: novalue, 
novalue. 



Mil 



G3 



/PUAM5 


RD/RX EXERCISER 


V01, 6 


DECLARATIONS 




; 1862 1 


L DROP.CTLR : novalue, 


186? 1 


L DRV_CTLERR j novalue, 


; 1864 ] 


L EMS RP1 


: novalue, 


; 1865 3 


L EMS_EL : 


novalue. 


: 1866 1 


L EMS CMP 


: novalue, 


j 186/ 1 


L EMS ERR 


: novalue, 


; 1868 


L EMS 10 ; 


novalue. 


I 1869 3 


L EMS„1? : 


novalue. 


j 1870 J 


L EMS..13 : 


novalue. 


1 1871 1 


L EMS 14 • 


novalue , 


; 18. V 3 


L EMS 18 : 


novalue , 


j 187? ] 


L EMS 21 : 


novalue. 


i 18 M 3 


l EMS. 22 i 


NOVALUE, 


; 18 ,'b . 


L EMS. 24 : 


novalue , 


J 1876 , 


L EMS 30 : 


novalue; 



11 Apr- 1984 
11 -Apr -1984 



11:08:55 VAX -11 BU99-I6 V4. 0-579 

11 s 08 j 22 DISK SUSER2 : [ POWERS JZRQADO . BL2 ; 6 



SEQ 0239 
Page 8 
CI) 



Mil 



2RQAM3 

VOI, 6 



1»7 7 

18 78 

ltt?9 

1880 

1881 

188<? 

1883 

1884 

188S 

1886 

188 7 

1888 

1889 

1890 

1891 

189c? 

1895 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

190 c 1 

1903 

1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

1914 

191S 

1916 

191/ 

1918 

1919 

19P0 

19 t 'l 

19,?? 

l')?3 

1924 

1 9. lc j 

19?6 

19?/ 

19;>8 

1929 



1 
1 
1 
1 
1 
1 
1 
1 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
4 
4 
4 
3 
3 
3 
? 
3 

3 

4 
4 
4 
4 
4 
4 
3 
3 
4 
3 
5 

4 
I 

3 

7 

3 
~\ 

4 



RD/RX EXERCISER 
TEST SECTION 

*sbttl ■ TEST SECTION 1 



H3 



11 -Apr -1984 11j08:35 
ll-Apr-1964 11:08:22 



VAX-11 Bliss-16 V4. 0-579 
DISK$USER2;[P0WERS]ZRQAD0.BL2*6 



SEQ 0240 
Page 9 
(2) 



THIS SECTION CONTAINS THE TOP-LEVEL TEST CODE FOR THE RDRX EXERCISER. 
THE EXERCISER CONSISTS OF ONE TEST WHICH IS SUBDIVIDED INTO A NUMBER OF 
SUBTESTS, ALL SUBTESTS ARE DECLARED WITHIN THIS BLOCK, 



RGNTSTj 



local 

DUMMY : word, 
DUMMY _1 j word: 

EOP_FLAG * TRUE: 

COMPARE DATA - TRUE: 

DUP„FLAGS - .OUP FLAGS AND (NOT SWP DINT); 

HOE_FLAG * FALSE; 

FORCED.ERROR - FALSE j 

incr I from to PKT_CNT - 1 do 
begin 

incr J from to PKT LEN •• 1 do 

MSCP..PKT [ .1, .J. 0, 16, 0] - 0; 

MSCP.PKT [.I, RSP„RECEIVED'J * FALSE? 

Incr I from to RP CNT - 1 do 

incr J from to RP„LEN - 1 do 

RETPKT [ .1, ,J, 0, 16, 0] " Oj 

incr I from to EP..CNT do 
begin 

Jncr J from to EP LEN - 1 do 

EL0G..PKT I .1, .J, 0, 16, 0) - Oj 

ELOG.PKT [.I, EL. CONTENTS] » EMPTY: 
endj 

if BIT_TST (SWP FLAGS, SWF CWC ) 
then 

SWP.FLAGS - .SWP FLAGS and (not SWF HWC ) j 

if BIT 1ST (SWP FLAGS. SWF RDM) 
then 

SWP.FLAGS - .SWP.FLAGS and (n t SWF.SttOj 

i f not .INIT OCCURED 
then 

begin 



! ASSUME NO UNIT AVAILABLE 

! ALLOW HOST COMAPRES IF ASKED FOR 

JCLEAR DUP INIT FLAG 171 

\ ASSUME 'HOE' FLAG NOT SF T 

! INITIALIZE "FORCED ERROR" FLAG 

! INITIALIZE PACKET AREA 



! INITIALIZE RESPONSE SAVE AREA 



• INITIALIZE ERROR-LOG SAVE AREA 



! NO SIMULTANEOUS CNTR/HOST WR1E CHECKS 



! NO SIMULTANEOUS RANDOM/SEQUENTIAL SELECTS 



/RQAM5 




VOL 6 




; 1950 


4 


; 1951 


4 


; 1^52 


4 


; 1955 


4 


; 1954 


4 


t 1955 


4 


; 1956 


4 


; 195? 


4 


; 1958 


5 


; 1959 


4 


; 1940 


5 


5 1941 


5 


: 194,? 


5 


5 1 94 5 


5 


5 1 ^4 4 


4 


; 1945 


4 


; 1946 


4 


194? 


4 


; 1948 


4 


; 1949 


4 


; 1950 


4 


; 1951 


4 


; 195? 


4 


i 1955 


4 


; 1954 


4 


; 1955 


5 


; 1956 


5 


; 1957 


5 


: 1958 


5 


; 1959 


5 


; 1960 


5 


; 1961 


5 


; 1962 


6 


; 1965 


6 


: 1964 


6 


; 1965 


5 


1966 


5 


; 196? 


5 


1968 


4 


; 1969 


4 


j 19/0 


5 


; 1971 


5 


; 19 7? 


5 


; 1975 


5 


; 1974 


4 


; 1975 


4 


; 19 76 


4 


; 1977 


3 


; 19/8 


5 


J 19 ?9 


5 


; 1980 


5 


; 1981 


5 


; 1932 


3 



RD/RX EXERCISER 
TtST SECTION 

DR5..START - 

CAUTION. . , 



1. 5 

ll-Apr-1984 ll!08j55 
U-Apr-1984 U:06;22 



,FREE..MEM„ADDR ♦ 2 * ( , . FREE_MEM_ADDR * 2); 



VAX-U Bliss-16 V4. 0-579 

DISK *USER2;{ POWERS ]ZRQAD0.BL2j 6 

! START OF SUPERVISOR 



SEQ 0241 

Page 10 
(2) 



THE FOLLOWING CODE IS • KLUGED' TO DETERMINE IF THE EXERCISER IS RUNNING UNDER THE 
APT SUPERVISOR, AND IS DEPENDENT FOR IT'S SUCCESS ON THE KNOWLEDGE OF THE ACTUAL 
APT SUPERVISOR AND THE ADDRESS OF THE MAIL -BOX WITHIN THE SUPERVISOR. 



?f (..DRS START eql *o' 167* ) and 

(not MANUAL) 
then 

begin 



;? 



APT_MODE - TRUE j 

MAIL„BOX_TESTNUM - .DRS START t *o'62' * #o' 6' { 

MAIL.BOX.SUBTST ■ .DRS.START * *o'62' » *o'4'j 

end; 

NEX - FALSE; 
CLK.PRESFNT * FALSE; 

SETVEC (4, NEX TRAP, PRI07); 
DUMMY_0 • .LINfLCLOCK; 
DUMMY 1 » Oj 
CLRVEC (4); 

if not .NEX 
then 

begin 

CLK PRESENT - TRUE; 

CLK.TICKS • 0; 

HOURS - .SWP TIME / 100; 

MINUTES - C.SWP_TIMF mod 100) ► 1; 

while .MINUTES Qequ 60 do 
begin 

MINUSES - .MINUTES - 60; 
HOURS • .HOURS * 1; 
end; 

HOURS - .HOURS mod 24 j 
end; 

end; 

if .CLK„PRESENT 
then 

begin 

SETVEC Ciio' 100', TIME, PRI06); 

LINE .CLOCK * BIT6; 

end; 

RFLAGS (DRS. FLAGS); 

if BlT.TST (DRSJO.AGS, HOE) *<;l HOt 
then 



! APT DRS STARTS WITH A JMP INSTRUCTION 



! APT MAIL -BOX IS OFFSET AT OCTAL 62 FROM 
! BEGINNING OF SUPERVISOR 



J CHECK IF LINE -CLOCK PRESENT 

! SET TRAP CATCHER ADDRESS 

! TRY TO ADDRESS THE CLOCK 

! DUMMY INSTRUCTION 

! RETURN LOC 4 TO THE SUPERVISOR 



! SET FLAG IF CLOCK PRESENT 

! INITIALIZE THE LINE -CLOCK TICK COUNT 

* TIME OF DAY (HOURS) 

! TIME OF DAY (MINUTES) 

! NORMALIZE. MINUTES 



! NORMAL IZfc HOURS 



LINt CI OCK VECTOR 
START THE CLOCK 



I RUD URS FLAUS INI (J LOC QRS>XAGS 



ZWG1AM5 
VOL 6 



1985 

1984 

1985 
1986 
1987 
1^88 
1989 
1990 
1991 
199? 
1993 
1994 
1995 
1996 
199? 
1998 
1999 
2000 
2001 
200? 
2003 
2004 
200b 



RD/RX EXERCISER 
TEST SECTION 

HOE. FLAG - TRUEj 

INIT.TEST ( h 

incr CTLR from to (MAX„CTLR 



J3 

11 Apr- 1984 11:08:35 
ll-Apr-1984 11j08:2? 



1) do 



if C.CST [.CTLR. STATE] eql ONLINE) and 

(.OCT [.CTLR, STAT] eql ONLINE) and 

C.CST [.CTLR, U..CNT] gequ 0) 
then 

incr OFFSET from (0 ♦ OF_UN) to ( ( UNITS..PER „CNTR 



VAX -11 Bliss- 16 V4. 0-579 
DISK$UStR2: [POWERS ]ZRGAD0,BL2 ( 6 

SET FLAG IF » HOE ' SET 

INITIALIZE TtST ENVIRONMENT 

F"0R EVERY CONTROLLER 

IF CONTROLLER ONLINE 



1) * UNIT.SIZt: ♦ 4) by UNIT .SIZE do 



SEQ 0242 
Page 11 
(2) 



if .CST [.CTLR, .OFFSET * OF. DATA, O.STAT] eql ONLINE 
then 



beain 
EOP_FLAG 
e\» tloopj 
end; 



FALSE} 



!f not ,EOP_FLAG 
then 

MULTI.DRIVE () 5 
ENDTSTj 



! IF AT LEAST ONE UNIT ALIVE 
! NOT END OF PASS 



! RUN MULT I -DRIVE TEST 



000000 
000000 

000050 
000054 

000064 
000074 

000076 

000100 

000102 000000V 

000104 

000106 
000110 
000 112 
000114 
000116 

00C124 000001 
000126 000000 



.TITLE 


ZRQAM3 RD/RX EXERCISER 


.IDENT 


/V01.6/ 


.ENABL 


AMA 


.PSECT 


$GGG$, RO 


COMM.AREA: 




.BLKW 


24 


DPST: .BLKW 


2 


MAX, LBN: .BLKW 


4 


STORAGE; .BLKW 


4 


ICOM.ADDR: 




.BLKW 


1 


ICST.ADDR: 




.BLKW 


1 


IDCT.ADDR: 




.BLKW 


1 


INT.ADDR: 




.WORD 


A/INTO 


ICTLR: .BLKW 


x 


MX1: .BLKW 


1 


MX2: .BLKW 


1 


MAOlt .BLKW 


1 


MA02; .BLKW 


1 


l.AST.PKT: 




.BLKW 


* 


PAT02: .WORD 


1 


.WORD 






I<3 



7RQAM3 




RO/RX 


EXERCISER 






ll-Apr-1984 11:08:35 


VOL 6 




TEST 


SECTION 






ll~Apr-1984 11{08:22 


000130 


000001 






PAT03 


.UORD 


1 


00013.? 


177777 








.WORD 


-1 


000134 


000001 






PAT04 


.WORD 


1 


000136 


105613 








.WORD 


-72165 


000140 


000001 






PAT05 


.WORD 


1 


000142 


031463 








.WORD 


31463 


000144 


000001 






PAT06 


.WORD 


1 


000146 


030221 








.WORD 


30221 


000150 


000020 






PAT07 


.WORD 


20 


00015? 


000001 








.WORD 


1 


000154 


000003 








.WORD 


3 


000156 


000007 








.WORD 


7 


000160 


000017 








.WORD 


1 / 


000162 


000037 








.WORD 


57 


000164 


00007/ 








.WORD 


77 


000166 


000177 








.WORD 


177 


000170 


000377 








.WORD 


377 


000172 


000777 








.WORD 


777 


000174 


001777 








.WORD 


1777 


000176 


003777 








.WORD 


3777 


000200 


007777 








.WORD 


7777 


000-202 


017777 








.WORD 


17777 


000204 


037777 








.WORD 


37777 


000206 


0.7777 








.WORD 


77777 


000210 


177777 








.WORD 


-I 


000212 


000020 






PAT08 


: . WORD 


20 


000214 


177776 








.WORD 


-2 


000216 


177774 








.WORD 


-4 


000220 


177770 








.WORD 


-10 


000222 


177760 








.WORD 


-20 


000224 


177740 








.WORD 


-40 


000226 


177/00 








.WORD 


•100 


000230 


17 7600 








.WORD 


-200 


000232 


177400 








.WORD 


-400 


000234 


1 7 7000 








.WORD 


-1000 


000236 


176000 








.WORD 


-2000 


000240 


174000 








.WORD 


-4000 


000242 


1 70000 








.WORD 


- 10000 


000244 


160000 








.WORD 


-20000 


000246 


140000 








.WORD 


-40000 


000250 


100000 








.WORD 


100000 


000252 


000000 








.WORD 





000254 


000020 






PAT09 


; .WORD 


20 


'100256 


000000 








.WORD 





000260 


000000 








.WORD 





000262 


000000 








.WORD 





000264 


177777 








. WORD 


-1 


000266 


17777 7 








.WORD 


1 


0002 70 


17 777/ 








.WORD 


1 


00027? 


000000 








.WORD 





000274 


000000 








. WORD 





ooo? i*; 


17/7/7 








.WORD 


•1 


000300 


177777 








.WORD 


-1 



VAX-11 Bliss-16 V4. 0-579 
DISK*USfcR2: [ POWERS ]2RQADO.BL2} 6 



SEQ 024 3 
Page 12 
(2) 



3 



2RQAM3 
VOL 6 

000302 
000304 
000306 
000310 
00031? 
000314 
000316 
000320 
000322 
000324 
000326 
000330 
000332 
000334 
000336 
000340 
000342 
000344 
000346 
000350 
000352 
000354 
000356 
000360 
000362 
000364 
000366 
000370 

0003 72 
000374 
000376 
000400 
000402 
000404 
000406 
000410 
000412 
000414 
000416 
000420 
000422 
000424 
000426 

0004 30 
000432 
000434 
000436 
000440 
000442 
000444 
000446 
000450 
000452 



RD/RX EXERCISER 
TEST SECTION 



ll-Apr-1984 11:08:35 
ll-Apr-1984 ll?08j22 



VAX -11 Bliss-16 V4. 0-579 
DISKJUSER2 it POWERS itfRQADO ,812 »6 



SEQ 0244 
Page 13 
(2) 



000000 

177777 

000000 

1777^7 

000000 

177777 

000001 

133331 

000020 

052525 

052525 

052525 

125252 

125252 

125252 

052525 

052525 

125252 

125252 

052525 

125252 

052525 

125252 

052525 

125252 

000024 

026455 

026455 

026455 

151322 

151322 

151322 

026455 

026455 

151322 

151322 

026455 

026455 

151322 

026455 

151322 

026455 

151322 

026455 

151322 

026455 

000001 

066666 

000020 

000001 

000002 

000004 

000010 



.WORD 





.WORD 


-1 


.WORD 





.WORD 


-1 


.WORD 





.WORD 


-1 


PATIO; .WORD 


1 


.WORD 


-44447 


PATH- .UORD 


20 


.WORD 


52525 


.WORD 


52525 


.WORD 


52525 


.WORD 


-52526 


.WORD 


-52526 


. WORD 


-52526 


.WORD 


52525 


.WORD 


52525 


.WORD 


-52526 


.WORD 


-52526 


.WORD 


52525 


.WORD 


-52526 


.WORD 


52525 


.WORD 


-52526 


.WORD 


52525 


.WORD 


-52526 


PAT12: .WORD 


24 


.WORD 


26455 


.WORD 


26455 


.WORD 


26455 


.WORD 


-26456 


.WORD 


-264! 6 


.WORD 


-26456 


.. WORD 


26455 


.WORD 


26455 


.WORD 


-26456 


.WORD 


-26456 


.WORD 


26455 


. WORD 


26455 


.WORD 


-26456 


.WORD 


26455 


.WORD 


-26456 


.WORD 


26455 


,WORD 


•26456 


.WORD 


26455 


.WORD 


264 56 


.WORD 


26455 


PAT13: .WORD 


1 


.WORD 


66666 


PAT 14} .WORD 


20 


. WORD 


1 


.WORD 


2 


.WORD 


4 


.WORD 


10 



ZHUAM3 




RD/RX EXERCISER 


VOL 6 




TEST SECTION 


000454 


000020 




000456 


000040 




000460 


000100 




000462 


000200 




000464 


000400 




000466 


001000 




0004 70 


002000 




00047.? 


004000 




0004 74 


010000 




0004 76 


020000 




000500 


040000 




000502 


100000 




000504 


000020 




000506 


177776 




000510 


177775 




000512 


177773 




000514 


177767 




000516 


177757 




000520 


177737 




000522 


177677 




000524 


177577 




000526 


177377 




000550 


176777 




000532 


175777 




000534 


173777 




000536 


167777 




000540 


157777 




000542 


137777 




000544 


077777 




000546 


000020 




000550 


133331 




000552 


133331 




000554 


133331 




000556 


155554 




000560 


155554 




000562 


155554 




000564 


133331 




000566 


133331 




000570 


155554 




000572 


155554 




000574 


133331 




000576 


155554 




000600 


133331 




000602 


155554 




000604 


133331 




000606 


155554 




000610 


000025 




000612 


000000 




000614 


106466 




000616 


106466 




000620 


071311 




000622 


071311 




000624 


071311 





PAT15: 



PAT16: 



PAT17t 



11 -Apr- 1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-li Bliss-16 V4. 0-579 
DISI<*USER2i[P0WERS]ZRQAD0.BL2*6 



SEQ 0245 
Page 14 
(2) 



.WORD 


20 


.WORD 


40 


.WORD 


100 


.WORD 


200 


.WORD 


400 


.WORD 


1000 


.WORD 


2000 


.WORD 


4000 


.WORD 


10000 


.WORD 


20000 


.WORD 


40000 


. WORD 


- 10000< 


.WORD 


20 


.WORD 


-2 


.WORD 


-3 


.WORD 


-5 


.WORD 


-11 


.WORD 


-21 


.WORD 


-41 


.WORD 


-101 


.WORD 


-201 


.WORD 


-401 


.WORD 


-1001 


.WORD 


-2001 


.WORD 


-4001 


.WORD 


-10001 


.WORD 


-20001 


.WORD 


-40001 


.WORD 


77777 


.WORD 


20 


.WORD 


-44447 


.WORD 


-44447 


.WORD 


-44447 


.WORD 


•22224 


.WORD 


-22224 


.WORD 


-22224 


.WORD 


-44447 


.WORD 


-44447 


.WORD 


22224 


.WORD 


-22224 


.WORD 


-44447 


.WORD 


-22224 


.WORD 


-4444 7 


.WORD 


-22224 


.WORD 


-4444 7 


.WORD 


-22224 


.WORD 


25 


.WORD 





.WORD 


-71312 


.WORD 


-71312 


.WORD 


71311 


.WORD 


71311 


.WORD 


71311 



ZRQAM3 




RO/RX EXERCISER 


V01, 6 




TEbT SECTION 


000626 


106466 




000630 


106466 




000632 


106466 




000634 


106466 




000636 


071311 




000640 


071311 




000642 


071311 




000644 


071311 




000646 


071311 




000650 


106466 




000652 


106466 




0000 54 


106466 




000* 06 


106466 




000660 


106466 




000662 


106466 




000664 


000025 




000666 


106466 




000670 


000000 




000672 


071311 




000674 


106466 




000676 


106466 




000700 


106466 




000702 


07131i 




000704 


071311 




00070C 


071311 




000710 


071311 




000712 


106466 




000714 


106466 




000716 


106466 




COO 720 


106466 




000722 


106466 




000724 


071311 




000726 


071311 




000730 


071311 




000732 


071311 




000734 


071311 




000736 


071311 




000740 


000025 




000742 


000000 




000744 


134631 




000746 


134631 




000750 


043146 




000752 


043146 




000754 


043146 




000/56 


134631 




000760 


134631 




000 762 


134631 




000 764 


134631 




000766 


043146 




0007 70 


043146 




0007 72 


043146 




000/74 


043146 




000776 


043146 





PAT18 



PAT19 



WORD 


-71312 


WORD 


-71312 


WORD 


-71312 


WORD 


-71312 


WORD 


71311 


WORD 


71311 


WORD 


71311 


WORD 


71311 


WORD 


71311 


WORD 


-71312 


WORD 


-71312 


WORD 


-71312 


WORD 


-71312 


WORD 


-71312 


WORD 


-71312 


WORD 


25 


WORD 


-71312 


WORD 





WORD 


71311 


WORD 


-71312 


WORO 


-71312 


WORD 


-71312 


WORD 


71311 


WORD 


71311 


WORD 


71311 


WORD 


713U 


WORD 


-71312 


WORD 


-71312 


WORD 


-71312 


WORD 


-71312 


WORO 


-71312 


WORD 


71311 


WORD 


71311 


WORD 


71311 


WORD 


71311 


WORD 


71311 


WORD 


71311 


WORD 


25 


WORD 





WORD 


-4314/ 


WORD 


-43147 


WORD 


43146 


WORD 


43146 


WORD 


43i46 


WORD 


-4314/ 


WORD 


43147 


WORD 


-43147 


WORD 


4314 7 


WORD 


43146 


WORD 


43146 


WORD 


43146 


WORD 


43146 


WORD 


43146 



N3 

U-Apr-1984 11:08:35 
U-Apr-1984 11:08:22 



VAX-11 Bliss-16 V4. 0-579 
DISKJUSER2: [POWERS JZRQAD0.BL2 j6 



SEQ 0246 
Page 15 
(2) 



M 



ZRQAM3 
VOL 6 

OOIOOO 
00100? 
001004 
001006 
001010 
001012 
001014 
001016 
001C20 
001022 
001024 
001026 
001050 
001052 
001054 
001056 
001040 
001042 
001044 
001046 
001050 
001052 
001054 
001056 
001060 
001062 
001064 
001066 
001070 
001072 
001074 
0010 76 
001100 
001102 
001104 
001106 
001110 
001112 
001114 
001116 
001120 
001122 
001124 
001126 
001150 
001152 
001154 
001156 
001140 
00114? 
001144 
001146 
OOXlbO 



KD/RX EXERCISER 
TEST SECTION 



154651 

154651 

154651 

154651 

154651 

154651 

000025 

154651 

000000 

045146 

154651 

154651 

154651 

045146 

045146 

045146 

045146 

134651 

154651 

154651 

154651 

154651 

045146 

045146 

045146 

045146 

045146 

045146 

000001 

000000 

OOOOOOG 

000124' 

000150' 
000154- 

000140' 

000144* 

000150 

000212' 

000254' 

000516' 

000522' 

000564' 

000456' 

0O0442' 

0O0504' 

0O0546' 

000610' 

000664' 

000/40' 

OO1014' 

001070' 

000000 

000000 









ll-Apr-1984 11:08:35 








ll-Apr-1984 11:08:22 




.WORD 


-45147 






.WORD 


-45147 






.WORD 


-4514/ 






.WORD 


-45147 






.WORO 


-45147 






.WORD 


-43147 




PAT20: 


.WORD 


25 






.WORD 


-45147 






.WORD 









.WORD 


45146 






.WORD 


-45147 






.WORD 


4314 7 






.WORD 


-45147 






.WORD 


45146 






.WORD 


45146 






.WORD 


45146 






.WORD 


45146 






.WORD 


-45147 






.WORO 


45147 






.WORD 


-45147 






.WORD 


-45147 






.WORD 


-45147 






.WORD 


45146 






.WORD 


45146 






.wouu 


45146 






.WORD 


45146 






.WORD 


45146 






.WORD 


45146 




PAT21: 


.WORD 


1 






.WORD 







DPA.TBt 


{.WORD 


RDM.CNT 






.WORD 


PAT02 






.WORD 


PAT05 






.WORD 


PAT04 






.WORD 


PAT05 






.WORD 


PAT06 






.WORD 


PATC<* 






.WORO 


PAT08 






.WORD 


PA TO'* 






.WORD 


PAflO 






.WORD 


PATH 






.WORD 


PAT12 






.WORD 


PAT15 






.WORD 


PAT14 






.WORO 


MAT IS 






.WORD 


PAT 16 






.WORD 


PAT 17 






.WORD 


PATiH 






.WORD 


PAT l l * 






.WORD 


PAT20 






.WORD 


PAT21 




HM .CUT 


: .WORD 







UbT.OtV 


s.WORD 








VAX-11 Bliss 16 V4.0 579 

DISK $USER2i[ POWERS URQAD0.BL2| 6 



SEQ 024 7 
Pege 16 
C2) 



C4 



ZRQAM5 
V01.6 

001152 

001154 
001156 
001 160 

0011^2 
001162 

00 1164 

001166 

001170 

001172 
0011 '4 
00117b 



RlVRX EXLRCISER 
TEST SECTION 



000 



CURRENT, VECTOR} 

,BLKW 1 
BRLEVELs .BLKW 1 
DUOFf- ; .BLKW 1 
DRS, START: 

.BLKU 1 
APT. MODE; 

.BYTE 

.EVEN 
MAIL. BOX, TESTNUM; 

.BLKU 1 
MAIL. BOX. SU6TST: 

.BLKU 1 
COMPARE. DAT A: 

.BLKB 1 

.EVEN 
DRS. FLAGS: 

.BLKW 1 
RD.MAX.SEQ.CNT; 

.BLKW 1 
RX,MAX,SEQ,CNTj 

.BLKW 1 



11 Apr 1984 ll;08i 35 
ll-Apr-1984 Ut08j22 



VAX U Bl 199-16 V4. 0-579 

DISK *USER2:[ POWERS ]ZRQAD0.BL2»6 



SEQ 0248 
Pa^« 1/ 
(2) 



.GLOBL CST, CST.ADDR, OCT, DCT.ADDR, RDRX.ADDR 

.GLOBL IRDRX.ADDR, BST , TALLY, T.ADOR 

.GLOBL DUPPKT, TRK.SGN, RDM.CNT. RANOOM 

.GLOBL C.ERR.TBL, MSCP.PKT, IPKT.AQDR 

.GLOBL PKT.USE, RETPKT, RP.USE, RP.INOX 

.GLOBL RP.AOOR. ELOG.PKT, BUFF.ADDR. BUFF. OWN 

.GLOBL IOOQ, IOOQ.IN, IOOQ.OUT. ENTRY. REASON 

.GLOBL EOP.FLAG. DUP. FLAGS, CCTLR. COISK 

.GLOBL CUOFT. CTLR.CNY, OUR, QIO, FREE ,M£M, ADDR 

.GLOBL BYTS.PER.QIO, ST.COOE, SB. CODE 

.GLOBL STEP, OF.RC. SA.REG. CMO.UME 

.GLOBL N6X, CRN. LOW, CRN. HIGH, CREDIT. BAL 

.GLOBL NEXT. PKT. USE, HOURS, MINUTES, CLK. TICKS 

.GL06L CLK. PRESENT, HOE. FLAG, FORCED. ERROR 

.GLOBL FER.LBN. FER.BC, INIT.OCCURED 

.GLOBL ADDR.VECT.OK, S. PATTERN, S.DUPPKT 

.GLOBL P.INOEX, DBM12, D6M18, D6M19, DBM20 

.GLOBL DBM21, DBM22, DBM23, DBM25, DBM26 

.GLOBL DBH27, DBM29, OBM108. DBM109, DBMU1 

.GLOBL DBM112, DBM120, DBM121, EH.O, EH.l 

.GLOBL EH. 2, EH. 3, EH. 4, EH. 5, EH, 6, EH, 7 

.GLOBL EH. 8, EH. 9, EH. 10, EH.l?. EH, 13 

.GLOBL MSG.02, MSG.05, EGS.02, EGD.10 

.GLOBL E.GD.U, EGO. 12, EGO, 13, EGD.14 

.GLOei EGO. 15, EGD.16, EGD.17. EGO. 18 

.GLOBL LGD.19, EGD.20, EGO. 21, EGO. 22 

.GLOB I EGO. 23, EGO. 24, EGH.30, DF.MSG 

.GLOBL HRD.MSG, SF1.MSG, HRD.SUB, CRl ►" 

.GLOBL SWP, ERROR, SUP.XFER, SWP, FLAGS 



/RQAM3 
VOUb 



RO HX EXfcRClSER 
TEST SECTION 



04 



11 -Apr- 1964 ll*0<Js35 

il-Apr-1984 ll!08 5 22 



VAX- 11 Bliss -lft V4.0-5 79 

DISK $USER2i[ POWERS ]^RQAD0.BL2| 6 



SEQ 0249 
Pa©« 18 



. Gl OBI. DUPROUND, SUP, RAT, SWP.DPAT, 5WP.UCNT 

.GLOBL SWP.TIME, SWP.UDPAT, LILUN, LIUNIT 

.GLOBL NEX.TRAP, TIME, SET.CPAR, SET.UPAR 

.GLOBL OUT.IODQ, IN.IOOQ, GET.PKT, PUT.PKT 

.GLOBL GET.RETPKT, PUT.RETPKT, GET . 10. BUFF 

.GLOBL PUT. 10. BUFF, PUTM.BUFF, SEND, WAIT 

.GLOBL MOOULAS, DROP.CTLR, ORV.CTLERR 

.GLOBL EMS.RP1, EMS. EL, EMS. CMP, EMS. ERR 

.GLOBL EMS, 10, EMS. 12. EMS. 13, EMS. 14 

.GLOBL EMS. 18, EMS. 21, EMS. 22, EMS. 24 

.GLOBL EMS. 30 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
00020O 

oooioo 

000040 
000020 
000010 
OO0CO4 
000002 
000001 
000040 
00003 7 
000036 
000035 
000034 
000340 
000300 
000240 
000200 
000140 
000100 
000040 

oooooo 

000004 



BIT15 
BIT14 

BIT13 

BIT12 

BIT11 

BIT10 

BIT09 

BIT08 

BIT07 

BIT06 

BIT05 

BIT04 

BIT03 

BIT02 

BIT01 

BITOO 

BIT9- 

BIT8- 

BIT7- 

BIT6- 

BITS 

BIT4- 

BIT3- 

BIT2- 

BIT1- 

BITO- 

EF. START-- 

EF.RESTART-- 

EK. CONTINUE - 

EF.Nfg 

EF . PWR 

PRI07- 

PRI06* 

PRIC5- 

PRI04- 

PRI03- 

PRI02- 

PRI01- 

PRIOO** 

bVL-- 



-100000 

40000 

20000 

10000 
4000 

:-h>i o 

l.OOO 

f-''\) 
20U 
100 

■1 

10 



1000 

400 

200 

100 

hO 

20 

10 

A 

*io 

2)7 

*>b 

34 
540 

300 
240 
200 
140 
100 
00 

o 

4 



( : : 4 



ZRQAM5 




RD/RX EXERCISER 


V01, 6 


000010 
000020 
000040 
OOOIOO 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 


TEST SECTION 


OOOOOO 






000000 


004137 


OOOOOOG 


000004 


112737 


000001 OOOOOOG 


000012 


112737 


000001 001170' 


000020 


042757 


000002 OOOOOOG 


000026 


105057 


OOOOOOG 


000052 


105057 


OOOOOOG 


000056 


005002 




000040 


010246 




000042 


012746 


00004 3 


000046 


004757 


OOOOOOG 


000052 


005001 




000054 


010005 




000056 


060103 




000060 


006503 




000062 


005063 


OOOOOOG 


000066 


0052C1 




000070 


020127 


ooro42 


0000 74 


005767 




000076 


010216 




OOOIOO 


012746 


000106 


000104 


0O475/ 


OOOOOOG 


000110 


105060 


000005G 


000114 


062706 


000006 


000120 


005202 




000122 


020227 


000015 


000126 


00? 744 




000150 


005002 




000152 


005001 




000154 


010200 




000156 


060100 




000140 


006300 




000142 


OO5060 


OOOOOOG 


000146 


OC5201 




000 150 


02012/ 


QQQQ25 


0001i>4 


00376? 





ll-Apr-1984 11:08:55 
ll-Ap^-1984 11:08:22 



LOT-- 




to 


ADR-- 




20 


IDU-' 




40 


ISR-« 




100 


UAM-- 




200 


BOE - • 




400 


PN1-' 




1000 


PR1«> 




2000 


ixe-> 




4000 


IBh- 




10000 


IER"> 


* 


20000 


LOE-« 


it 


40000 


HOP « * 


* 


-100000 




.SBTTl. 


$1 I TL5T SECTION 




.PSF.CT 


JCODE*. RO 


*U: 


JSR 


R1.ISAVE3 




M0V8 


*l,ECP,Fl.AG 




M0V8 


01, COMPARE, DATA 




BIC 


42, DUP. FLAGS 




CLRB 


HOE, FLAG 




CLRB 


FORCED. ERROR 




CLR 


R2 


H: 


MOV 


R2. (SP) 




MOV 


C43, -(SP) 




JSR 


PC.BLJMUL 




CLR 


Rl 


2$: 


MOV 


P0.R3 




ADD 


R1.R5 




A5L 


R3 




CLR 


MSCP.PKKR3) 




INC 


ni 




CMP 


Rl k *42 




BLF 






MCV 


R2 , C SP ) 




MOV 


■»i06. -CSP) 




JSR 


PC .ill IMUl 




CLRB 


MSO\PKT»5(R0) 




ADD 


</6 , SP 




INC 


R2 




CMP 


R2.&13 




DLL 


H 




OR 


R2 


5$: 


CLR 


Rl 


4*i 


MOV 


R2.R0 




ADD 


in ,ro 




/'.:.'. 1 


RO 




CLU 


Re ipktcro) 




INC 


Rl 




CMP 


R1.025 




QIE 


4J 



VAX-11 BlJss-16 V4. 0-579 
DISKJUSER2: [POWERS ]ZRQAD0,BL2j 6 



SEU 0250 
Pag* 19 
C2) 



; I,* 



J 

J,* 



j J 

j J, ♦ 

i I,* 



i 



I 



; I,* 

i I 

; J 

i J.* 



: J 
i J,* 



16/6 
1891 
1892 
1895 
1894 
1895 
18^7 
1901 



1900 

1901 



1900 



1903 



1898 
189" 



WO* 

WO ' 
1908 



190" 



ZRQAM3 




RD/RX EXERCISER 


voi.6 




TEST SECTION 


000156 


062702 


000026 




000162 


020227 


000232 




000166 


003761 






000170 


005002 






000172 


010246 






000174 


012746 


00O04 I 




000200 


004737 


OOOOOOG 




000204 


005001 






000206 


010003 






000210 


060103 






000212 


006303 






000214 


005063 


OOOOOOG 




000220 


005201 






000222 


020127 


000040 




000226 


003767 






000250 


010216 






000232 


012746 


000102 




000236 


004 737 


OOOOOOG 




000242 


105060 


00000 1G 




000246 


062706 


000006 




000252 


005202 






000254 


020227 


000014 




000260 


003744 






000262 


032737 


000020 


OOOOOOG 


000270 


001403 






000272 


042737 


000040 


OOOOOOG 


000300 


032737 


000002 


OOOOOOG 


000306 


001403 






000310 


042737 


001000 


OOOOOOG 


000316 


132737 


000001 


OOOOOOG 


000324 


001145 






000326 


017 700 


OOOOOOG 




000332 


006300 






000334 


063700 


OOOOOOG 




000340 


010037 


001160' 




000344 


062737 


000002 


001160' 


000352 


027727 


001160' 


000167 


000360 


001021 






000362 


104450 






000364 


103417 






000366 


112737 


000001 


001162' 


000374 


013737 


001160* 


001164' 


000402 


062737 


000070 


00U64' 


000410 


013737 


001160' 


001166' 


000416 


062737 


000066 


001166' 


000424 


00503 7 


OOOOOOG 




0004 30 


105037 


OOOOOOG 




0004 34 


012746 


000340 




000440 


012746 


OOOOOOG 




000444 


012746 


000004 




000450 


012/46 


00000 3 




000454 


104457 






000456 


012700 


000004 





F4 

U-Apr-1984 11:08:35 
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DISK JUSER2 : [ POWERS ]2RQAD0 . BL2 ; 6 ( 2 ) 



5$: 



6$: 



7$ 
8$ 



9* 



AIM) 
CMP 

iu.e 

CLR 
MOV 
MOV 
JSR 
CLR 
MOV 
ADO 
ASL 

nr. 

INC 
CMP 

Ri.t: 

MOV 

MOV 

ojR 

CLR3 

ADD 

INC 

CMP 

BLfc". 

BIT 

BEG 

UK 

BIT 

BEu 

BIO 

HIU1 

BN": 

MOV 

AS! 

ago 

MOV 
AJli) 

rr.p 
Br-' 1 .: 

TRAP 

act 

MOVrX 

Mf)w 

M)\* 

MOV 

ADO 

O..R 

n r«] 

MOV 

i-IOV 

MQv 
MOV 
TfcAP 

MOV 



*.?6.R2 

R2.0232 
3* 

R2 

R2, -CSP) 

441. (SP) 

PC.BLIMUL 

Rl 

R0.R3 

»U,(\3 

R3 

U.0G.PKTCR3) 

HI 

ru,#40 

6 J 
Rrf.CSP) 

0102. -CSP) 

rnr,BL*Mui_ 

CLCG.PKTfl(RO) 

■M , bP 

K2 

R2.«14 

5> 

420, SWP. FLAGS 

7i 

040, SUP. FLAGS 

C2.5WP.ri. AGS 

6 5 

* LOCO ,SWP. FLAGS 

♦l.INIT.OCCUHED 

lit 

q*«£-X;, mem.addr.ro 

RO 

^EE.MEM.ADDR.RO 

tiO.DRS. START 

*2,QRS. START 

tfTViS. START, 0167 

°i 

50 



n 

ft'*! 
i*3 



, AH. MODE 

*■' . START .MAIL .BOX . TESTNUM 

O.M.UL. BOX. TESTNUM 

5 . S I AR T . MA IL . BOX , SU8T ST 

o, MAIL. BOX. SUBTST 

/ .PRESENT 
40, (SP*) 
iV .. TRAP, -(SP) 
, (SP) 
. (SP) 



i *.I 

! I,* 

I I 

J I,* 



I J 

i 

J J # * 



I J 
f J.* 

; I.* 



j 

; I 
j I.* 



&4.R0 



1906 



1910 
1914 



1913 
1914 



1913 

1916 



1911 
1910 



1919 

1921 
192* 

1925 
1927 

1930 



1937 

1938 

1941 
1942 

1^4 3 

1^46 
194 * 

1^4^ 



l^i 



G4 



ZRQAM3 
V01.6 

000462 
000464 
0004 72 
000474 
000502 
000506 
000512 
000516 
000522 
000526 
00053? 
000536 
000542 
000544 
000546 
000552 
C00560 
000562 
000564 
000570 
000574 
000600 
000604 
000606 
000610 
000614 
000620 
000624 
000630 
000634 
000640 
000646 
000650 
C00654 
000660 
000664 
000670 
000672 
000700 
000704 
0C07O6 
000712 
000716 
000722 
000 724 
000730 
000732 
000734 
00074 
000 742 
000/50 
000 754 
000756 



104436 
032737 
001060 
112737 
005037 
013716 
012746 
004 737 
110037 
013716 
012746 
004737 
010001 
005201 
110137 
123727 
103412 
005000 
153700 
162700 
110037 
105237 
000762 
005016 
113716 
012746 
004737 
110037 
062706 
062706 
132737 
001416 
012746 
012746 
012746 
012746 
104437 
012737 
062 706 
104421 
010037 
042700 
020027 
001003 
012700 
000401 
005000 
020027 
001003 
112737 
004 757 
005002 
010246 



RD/RX EXERCISER 
TEST SECTION 



000001 OOOOOOG 

000001 OOOOOOG 

OOOOOOG 

OOOOOOG 

000144 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000144 

OOOOOOG 



OOOOOOG 
OOOOOOG 000074 



OOOOOOG 
000074 
OOOOOOG 
OOOOOOG 



OOOOOOG 

000030 

OOOOOOG 

OOOOOOG 

000006 

000010 

000001 OOOOOOG 

000300 
OOOOOOG 
000100 
000003 

000100 177546 
000010 

001172' 

077777 

100000 

000001 



100000 

000001 OOOOQOU 
000000V 
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VAX-11 Bliss-16 V4. 0-5/9 

DISK $USER2:[ POWERS ]ZRQAD0.BL2j 6 





TkAP 


36 




DIT 


**: Nix 




BN£ 


!.-♦ 




MOVC 


tfl.'/LK. PRESENT 




CLR 


a.u TICKS 




MOV 


Swr'.TIMF.CSP) 




MOV 


♦ i*':-.-(SP) 




JSR 


PC.HUUIV 




MOVB 


R(.\rOjR$ 




MOV 


SW:-\ UME.CSP) 




MOV 


01-V, -CSP) 




JSR 


PC> ! L$MOD 




MOV 


R0.H1 




INC 


Rl 




MOVB 


HI MINUTES 


10$: 


CMPB 


MINUTES,*?* 




BlO 


lit 




CLR 


RO 




BTSB 


MiV;TFS,RO 




SUB 


«7'.\R0 




MOVB 


RO !iJ;!UTES 




If.'CB 


ho-.?:s 




BR 


10: 


11$: 


Cl.R 


(S»\. 




MOVD 


HOL'.M.tSP) 




MOV 


*30 t -(£P) 




JSR 


PC. -U.fMOD 




MOVB 


RO.IiUURS 




ADD 


06 £i J 


12$: 


ADD 


< \ C : SP 


13*: 


BITB 


«1 r Cl.K. PRESENT 




BfcQ 


14; 




MOV 


ft.V'iO, -C 1 jP) 




MOV 


JT 1 .';, -csp) 




MOV 


flio\ C5P) 




MOV 


**A. CSP) 




TRAP 


3/ 




MOV 


ttUV.blQ 17 7546 




ADD 


^i^,'>P 


14$: 


TRAP 


2' 




MOV 


RO ORS. FLAGS 




BIC 


0/ 7/V\R0 




CMP 


RO ., 1 00000 




BNf 


t l '- ', 




MOV 


-i :,0 




BR 


'i. ' 


15$: 


CLR 


Hi: 


j.6$: 


CMP 


RO. ?■ 100000 




BHf-. 


1 M 




MOVB 


ft"! ,10b .TLAli 


17$: 


J',R 


t-L, 'WTI'.TEST 




CL.R 


r; 


18*1 


MOV 


R2 , ( SP ) 



SEQ 0252 
Page 21 
C2) 



1953 



1956 
195 / 
1958 



1959 



1961 
1963 



1964 
1961 
1967 



1955 
1929 
197,* 

1975 



19 76 
1974 
14 7^ 

1981 



CUR 

CTLR,* 



1983 

1-V* ' 
1959 



H4 



ZRQAM5 




RD/RX EXERCISER 






U-Apr-1984 11:08:35 


V01. 6 




TEST SECTION 






ll-Apr-1984 11:08:22 


000760 


012746 


000126 




MCV 


ticlh. -C3P) 


000764 


004 737 


OOOOOOG 




JSR 


PC.bi. *,HUL 


000770 


022626 






CMP 


CS-'m.CSP)* 


000 772 


005760 


000002G 




1ST 


l5f«,?(R0) 


000776 


100040 






BPL 


t'.'-i > 


OC1000 


010246 






MOV 


F?. *(bP) 


001002 


012746 


000022 




MOV 


* 2 : , • { sp ) 


001006 


004 737 


OOOOOOG 




JSR 


PC.M.MUL 


001012 


022626 






CMP 


( ?y ) • . ( sp ) ♦ 


001014 


005760 


OOOOOOG 




TST 


PCKHO) 


001020 


100027 






BPL 


22* 


001022 


010246 






MOV 


R2, tSP) 


001024 


012746 


000053 




MOV 


Wb'i. (SP) 


001030 


004 737 


OOOOOOG 




J?R 


PC.3L.SMUL 


001034 


012701 


000003 




MOv 


tfS.fil 


001040 


010003 




19$; 


MOV 


R0.R3 


001042 


060103 






ADD 


Hi .35 


001044 


006303 






ASK 


<V3 


001046 


032763 


020000 OOOOOOG 




DI1 


"20^00, CSTCR3) 


001054 


001403 






eta 


JOS 


001056 


105037 


OOOOOOG 




CLRB 


e op. flag 


001062 


000405 






BR 


2^ * 


001064 


062701 


000012 


20$: 


ADO 


V12.P1 


001070 


02012 7 


000042 




CMP 


i:. ,**? 


001074 


003/61 






BLE 


m 


001076 


022626 




21 i: 


CMP 


«;£!o.,(sp)# 


001100 


005202 




22 1 1 


iuc 


P2 


001102 


000243 






. WORD 


CLVJfLC 


001104 


003 724 






BLL 


18* 


001106 


132737 


000001 OOOOOOG 




Ml TO 


^1, tOP. FLAG 


001114 


001002 






BNt 


■)!■ * 

k. • < 


001116 


004 737 


000000V 




JSR 


PC, MU.TI. DRIVE 


001122 


000207 




231: 


RTS 


PL 



VAX-11 Bliss 16 V4.0 579 SEQ Pmc 3 22 
DISKSUSER2; [ POWERS ]ZRQAD0,BL2; 6 (2) 



j CTLR,+ 



1990 



j CTLR,* 

+ ,OFf -SET 
OFFSET ,♦ 



i *. OFFSET 
j OFFSET,* 



x CTLR 



1995 



1993 
1995 



1998 
199/ 
1993 



1987 



2002 

2004 

1876 



Routine Sl/e: 298 words, Routine Base: *CODE* ♦ 0000 
Maximum stack depth per invocation: 12 wordv; 



OOOOOO 
000000 
000004 
000006 
OOOOIO 
000012 



004 737 OOOOOO 

104466 
006000 
103773 
000207 



.5BTTL \ I fl.ST SECTION 



11:: 








Hi 


JSR 
TRAP 


PC 


ni 




RCR 


H«'i 






Ml 


) '* 






PTS 


pi: 





J004 



Routine r ;i/e: 6 words, kout ine Base* SCOUE$ ♦ \ ) i.'4 
Maximum st*>ck depth per invocation: 2 words 



T4 



7R0AM5 
VOL 6 



2006 
200 ! 

200* 
2001 

0010 

2012 

2013 

0014 
00 IS 
001b 
20X7 
2016 
201* 
2020 
0001 
0000 
2023 
0004 
2025 
0006 
200/ 
0008 
0009 
0030 
0031 
0030 
0033 
0034 
PO.^S 
20 56 
203/ 
0038 
0039 
0040 
004 1 
0040 
004 3 
0044 
204 b 
0046 
004 .' 
0048 
004 4 
0050 



2 

3 
3 
3 
3 

3 
3 
3 
3 
3 

r 

4 

3 
4 
4 

S 

4 
C 

4 

3 

3 



il -Apr- 1984 11:08:35 
il Apr-1984 11:08:22 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 

Ksbttl 'INITIALIZATION TEST ROUTINES- 
GLOBAL routine INIT TEST : novalu* ' 



THE INITIALIZATION TEST IS OESlGNru TO VERIFY THE EXISTENCF OF THF 
DEVICES AS CONFIGURED Br THE OPERATOR DURING THE HW DIALOG, AND TO 
BRING EACH DEVICE ONLINE IN PREPARATION FOR EITHER THE MULTI-DRIVE TEST 
OR THE DM EXERCISER. 

BASICALLY. THE DEVICES ARE 9ROIX5HT UI'.INE VIA "DRIVER INIT", WHICH IS 
INVOKED IMMEDIATELY. ANY DEVICES V'Hl'CH FAIL DURING THIS PHASE WILL BE 
MARKED OFFLINE IN THEIR OCT AN'.) CS1 FOR THOSE DEVICES WHICH SURVIVE 
THE INITIALIZATION, THIS ROUT IN 1 . UU.L ATTEMPT 1 OR ACCESS COMMAND'; TO 
EACH DISK VIA ROUTINE "ACCESS". THF INITIALIZATION TEST IS DEEMf-D A 
SUCCESS ir A BLOCK ON THE INNER TRACK OF EACH DISK CAN BE ACCESSED, 



VAX-11 Bl .99 16 V4. 0-579 

DISK $USER2:[ POWERS URQAD0.BL2; 6 



SEQ 0054 
Poge 03 
C3) 



begin 

DRIVER.. INIT ( ); 

incr CTLR from to (MAX..CTLR 
begin 

SET_CPAR (.CTLR) j 



1) do 



if .CSV ..ADDR tSTATF] «ql ONLINE 
then 



! INIT DRIVER DATA AND DEVICES 

! FOR EACH CONTROLLER 

! SET UP COMMONLY -USED CONTROLLER -RELATED DATA ITEMS 

! IF CONTROLLER IS STILL ALIVE 

! FOR EACH DISK 



incr OFFSET from CO ♦ OF. .UN 3 to C ( LHITS_PER _CNTR - 1) ♦ UNIT.' '. t- iF. UN) by UNIT^SIZE do 

if C.CST ADDR [.OFFSET » 0: IMlA, D PRE Si eg I PRESFNT) an- - 
C.CST.ADDR [.OfTSET * UF DAiA, STAT] eql ONE INfc ) and 
(not .CST ADDR [.OFFSET * OF DATA, D FATAL)) 
then 

b«?g i n 

Ei UP UNIT -RELATED DATA ITEMS 



jr. i 



SET UPAR ( ,01 ■'* SF I >j 

IF SWP DINT NtU I .DUE* 1 MAGS AND SWP DINT) !ZZZ 

THEN ACCESS C )j »ZZZ 

!SKTP IF PUP CAUSED INIT ZU 



end] 



end: 



end; 



! IF UNIT IS PRESENT AND ONLINE 
» CONTROl LER I OOP 
! ROUTINE INIT TEST 



000000 004 13/ COOOOOii 



000004 
00001 o 
000012 



004/5/ 

oosoo;? 

01004b 



oooooov 



. sb i n 

INIT. TEST : ; 
JSR 
JSP 
Ci R 

1 * : MOV 



TnlT.HST INITIALIZATION TEST ROUTINES 



Ki , *'"AW.2 

PL. DRIVER, INIT 

R.: 

RO , ( SP ) 



J 

\ 

i CTLR 

j CTLR,* 



AW 
202^ 



J4 



7RQAM5 
V0K6 

000014 
000020 
000024 
000030 
000032 
000036 
000040 
000042 
000046 
00005? 
000054 
000060 
000062 
000066 
000070 
0000 72 
000076 
000104 
000106 
000112 
000116 
000122 
000124 
000126 
000130 

000132 
0001*4 



004 73 7 
013700 
005760 
100035 
012701 
010100 
006300 
063700 
032710 
001417 
032710 
001414 
032710 
001011 
010116 
004 737 
032737 
001002 
004 737 
062 701 
020127 
003745 
OPS 726 
005202 
00024 3 

003727 
000207 



RO/HX EXF.RCISFR 
INITIALIZATION TEST ROUTINES 

OOOOOOG 
OOOOOOG 
000002 



000003 

OOOOOOG 
040000 

020000 

010000 



OOOOOOG 

000002 OOOOOOG 

000000V 
0OC012 
00004 1 



2$ 



3$ 
4$ 
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11 -Apr -1964 11:06:22 


JSP 


PC. SET.CFAR 


MOV 


CST.ADOR.RO 


TSI 


-H»0) 


BPl. 


4t 


:«0V 


•>3,R1 


NOV 


Rl.RO 


ASL 


no 


AOL 


CST.ADIJR.RO 


rrr 


$40000, i.'RO) 


B'-Q 


3; 


pn 


#,?00">0.(H0) 


VEO 


3$ 


BIT 


fllOOOO.(RO) 


BNE 


35 


*'iG\ 


Kl.l :f*; 


i * 4 ' 


PC^t = ,UPPR 


' 1 . ' 


w?,Oi>" J il AGS 


(;N:: 


3$ 


.i$r 


PC,A.;t:tss 


i-OD 


$12,1*1 


r ■ 


Rl.^il 


01. f 


2* 


TS." 


C SP ) * 


?".Nv" 


R2 


.WW 


CLVJCLC 


BLfc 


IS 


RTS 


PC 



SEQ 0255 
VAX-11 flliss-16 V4.0 579 Page 24 

DISK$U5ER2 : [ POWERS JZRQADO . BL2 ; 6 C 3 ) 



l *, OFFSET 
; OFFSET,* 



OFFSET ,♦ 



: *, offset 
: OFFSET,* 



i CTIR 



2031 



2034 
2036 



203/ 

2038 

2041 

2042 

2043 
2034 

2028 
2027 

2006 



Routine Size: 47 words, Routine Base: $CO0E 
Maximum stock depth per invocation: 5 words 



114. 



I<4 



/RCMM3 




VOL 6 




; 2051 


1 


; 2052 


1 


; 2053 


1 


; 2054 


1 


; 2055 


1 


; 2056 


I 


; 205 7 


1 


; 2033 


1 


; 2059 


1 


; 2060 


c. 


; 2061 


2 


; 2062 


•I 


; 206? 


2 


; 2064 




; 2065 


L. 


2066 


2 


5 206 7 


2 


; 2068 


2 


: 2069 


3 


; 2070 


3 


; 2071 


3 


i 2 0/2 


3 


j 20 73 


3 


j 20 74 


3 


; 2075 


2 


20 /6 


2 


; 207 7 


2 


; 2078 


2 


2079 


i v. 


; 2080 


2 


j 2081 


3 


; 2082 


3 


j 208 3 


7 


j 2084 


3 


; 2085 


3 


; 2086 


3 


; 208 7 


3 


; 2068 


/ 


; 2089 


3 


; 2090 


:i 


; 2091 


3 


; 2092 


5 


; 2093 


4 


; 2094 


3 


! 2095 


4 


; 2096 


4 


; 209 7 


4 


; 2098 


4 


; 2099 


4 


; 2100 


4 


2101 


4 


; 2102 


3 


; 2103 


3 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 

GLOBAL routine DRIVER. INIT : novalue 



UApr-1984 lls08:35 
ll-Apr-1984 11;08}22 



VAX-U Bltss-16 V4, 0-579 
DI5K*USER2:[P0WERS]ZRQAD0.BL2 : 6 



StU 0256 
Page 25 
(4) 



THIS ROUTINE IS EQUIVALENT IN FUNCTION 10 THE INITIALISATION EN1RY 
POINT OF A STANDARD DEVICE DRIVER. ITS RESPONSIBILITY IS TO INITIALIZE 
DRIVER DATA, AND TO BRING EACH RDRX CONTROLLER AND UNIT (DISK) 
ONLINE, 

begin 

local 

PKT _ ADDR; 

PKT ADDR - MSCP_PKT * 10 j 
NEXT. .PKT. USE - 6 { 

incr COUNT from to (PKT.CNT - 1) do 
beg i n 

PKT USE [ .COUNT] ■ -It 

MSCP. PKT [.COUNT, PKT^LO] - .PKT ADDR j 
MSCP. PKT [.COUNT, PKT HI] - 0; 
MSCP. PKT [.COUNT, CCNNID] « CID DISKj 
PKT _ ADDR - .PKT. ADDR ♦ (PK7,LEN ♦ 2); 
ends 

incr CTLR from to (MAX_CTLR - 1 ) do 

if .CST {.CTLR, IP.ADDR] neqo 
then 

begin 

SET CPAR ( ,CTI R)' 

CURRENT..VECTOR -'.CST ADDR [ VEC ADDR]; 

BRLEVEL - .CST_ADDR [BR .LEV] t 5j 

CTLR..TNIT ( ); 

if .OCT.ADDR ISTAT] eql ONLINE 
then 



ADDR (TEXT ♦ ) OF 1ST MSCP PKT 
NEXT PACKET TO ALLOCATE 



! FOR EACH MSCP PACKET 



incr OFFSET from (0 ♦ OF. UN) to C (UNITS. PF.R..CNTR 1) ♦ UNIT. SIZE 

if (.CST^ADDR [.OFFSET * OF ..DAT A. D.PRES] cql PRESENT") and ■ 

(not .CST ADDR [.OFFSET ♦ OF DATA, D FATAL]) 
then 

begi n 

CST ADDR [.OFFSET ♦ Of NAME 0, D.NAME.O) « *o'40' ; 

CST ADOR [.OFFSET * OF NAME 0. D NAME I] - *o'40 t 

CST .ADDR I. OFFSET » Of NAME 2, D NAME 2J - *o*40'; 

CST„ADDR [.OFFSET ♦ OF NAMfc.2, 0~NAME 3] » Ko'40'; 

SET UPAR ( .OFFSET) | 

UNTT..INIT l ){ 

ends 



NARK PACKET FREE 

LOAD ADDR INTO BUFFER DESCRIPTOR 

SET CONNECTION 10 TO MSCP ID 
ADVANCE ADDR TO NEXT PACKET 



FOR EACH CONTROLLER 

IF CONTROLLER IS PRESENT 

CURRENT CONTROLLER PARAMETERS 
CURRENT CONTROLLER'S VECTOR 
r T f CURRENT CONTROLLER'S BR LEVEL 
TNIT DEVICE AND CTLR DATA 

IF CONTROLLER IS STILL ALIVE 
FOR EACH DIAK UNIT 

♦ OF_UN) by UNIT .SIZE do 
IF UNIT EXISTS 



BLANK DEVICE NAME 



SET UP UNIT RELATED DATA ITEMS 
BRING UN II ONI 1NE 
IF UNIT EXISTS 



/i 



ZRQAM5 

VOL 6 



J! 104 

2105 



2106 1 



PD/RX EXERCISER 
INITIALIZATION TEST RUUT1NLS 



end; 



cndj 



1.4 

11 Apr -1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss-16 V4.0-579 

DISK SUSER2 • [ POWERS ] ZRQADO , BL2 ; 6 



3EQ 0257 
Page 26 
(4) 



• IF CONTROLLER IS PRESENT 
I ROUTINE DRIVER_INIT 



OOOOOO 004137 COOOOOG 



000004 

000010 

000014 

000016 

000024 

000026 

000032 

000036 

000042 

000046 

000052 

000056 

000060 

000062 

000066 

000070 

000072 

000074 

000100 

000104 

000106 

000*1? 

000114 

000116 

000122 

000126 

000134 

000142 

000144 

000 ISO 

000154 

000160 

000164 

000170 

000174 

000176 

000202 

000206 

000210 

000212 

000214 

000220 

000222 

C0O226 

000250 



012702 

105037 

005001 

112761 

010146 

012746 

004737 

010260 

005060 

105060 

062702 

02262^ 

005201 

020127 

003753 

005003 

010346 

012746 

00473/ 

022626 

005760 

001503 

010346 

004737 

013700 

016037 

042737 

005016 

116016 

012746 

004/3/ 

010037 

004 737 

005777 

100051 

012701 

013702 

010100 

006300 

060200 

032 710 

0014 32 

032? 10 

00102/ 

010X00 



OV0012G 
OOOOOOG 

00037 7 OOOOOOG 

000106 
OOOOOO 
OOOOC 

ooooo; .. 

00001 1G 
000106 



000013 



DRIVER 



15 



000126 
OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 

000002 001152* 
177000 001152' 

000004 

000005 

OOOOOOG 

001154' 

000000V 

OOOOOOG 

000003 
OOOOOOG 



040000 
010000 



2$ 



3$ 



.SBTTL 


DRIVER. INIT INITIALIZA 


INIT:: 




JSR 


R1.JSAVE3 


MOV 


0MSCP.PKT*12,R2 


CLRB 


NEXT. PKT. USE 


CLR 


Rl 


MOVB 


0377.PKT.USECR1) 


MOV 


Rl.-CSP) 


MOV 


0106. (SP) 


JSR 


PC.BLfMUL 


MOV 


R2.MSCP.PKTCR0) 


CLR 


MSCP.PKT*2(R0) 


CLRB 


MSCP,PKT*11(R0) 


ADD 


0106. R2 


CMP 


( SP ) ♦ . ( SP ) * 


INC 


Rl 


CMP 


R1.013 


BLE 


1$ 


CLR 


R3 


MOV 


R3.-CSP) 


MOV 


0126. -(SP) 


JSR 


PC.BL*MUL 


CMP 


(5P)*.(SP)* 


1ST 


CST(RO) 


BEQ 


6$ 


NOV 


R3. (SP) 


JSR 


PC.SET.CPAR 


MOV 


CST.ADDR.RO 


MOV 


2(R0). CURRENT. VECTOR 


BIC 


01 77000, CURRENT, VECTOR 


CLR 


(SP) 


MOVB 


4(R0).(SP) 


MOV 


05, (SP) 


JSR 


PC.Bl.ISHF 


MOV 


RO.BRLEVEL 


JSR 


PC.CTLR.INIT 


TST 


aOCT.ADDR 


BPL 


5$ 


MOV 


03, Rl 


MOV 


CST.ADDR.R2 


MOV 


Rl.RO 


ASL 


RO 


ADD 


R2.R0 


BIT 


040000, (RO) 


BEQ 


4$ 


BIT 


010000 f lRO) 


BNt 


At 


MOV 


Ri,RO 



+.PKT.ADDR 

COUNT 

*,*( COUNT) 
i COUNT,* 



: PKT.ADDR,* 



; *, PKT.ADDR 

I COUNT 
j COUNT,* 

j CTLR 
{ CTLR,* 



l CTLR,* 



\ 



i * .OFFSET 
j OFFSET.* 



2051 
2065 
2066 
2068 
20 70 
2071 



2072 
2073 
20/4 
2069 
2068 



20 7/ 
2079 



2082 
2083 

2064 



20^5 
208' 

2092 



I OFFSET,* 



20 v »3 
209b 



M4 



ZRQAI.3 
VOL 6 

000232 
000234 
000236 
000244 
000252 
000254 
000256 
000260 
000266 
000274 
000276 
000302 
000306 
000312 
000316 
000320 
000322 
000324 



006300 
060200 
112760 
112760 
010100 
006300 
060200 
112760 
112760 
010116 
004737 
004737 
062701 
020127 
003731 
022626 
005203 
00024 3 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 



000040 000012 
000040 000013 



000040 000014 
000040 000015 

OOOOOOG 
000000V 
000012 
000041 



ll-Apr-1984 11:08:35 

ll-Apr-1984 11:08:22 



VAX-11 Biiss-16 V4. 0-579 

DISK 5USER2 : [ POWERS )ZRQADO . BL2 ; 6 





ASL 


RO 




ADD 


R2.R0 




MOVB 


#40,12CR0) 




MOVB 


440.13CR0) 




MOV 


Rl.RO 




ASL 


RO 




ADD 


R2.R0 




MOVB 


*40,14(R0) 




MOVB 


040,15(R0:> 




MOV 


Rl.(SP) 




JSR 


PC,SET.UPAR 




JSR 


PC.UNIT.INIT 


4$: 


ADD 


012, Rl 




CMP 


Rl,*41 




BLE 


3$ 


5$: 


CMP 


(SP)»,(SP)* 


6$: 


INC 


R3 




.WORD 


CLV'CLC 




BLE 


2$ 




RTS 


PC 



; OFFSET,* 



; OFFSET,* 



I ♦ , OFFSET 

I OFFSET,* 



; CTLR 



SEQ 0258 
Page 27 
(4) 



2097 
2098 



2099 
2100 

2101 

2090 



000326 003661 
000330 000207 

; Routine Size: 109 words. Routine Base: $CODE$ ♦ 1276 
i Maximum stock depth per invocation: 7 words 



2081 
2077 



2051 



N4 



ZRQAM3 
V01, 6 



2107 

2108 
2109 
2110 
2111 
2112 
211? 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
212? 
2124 
2125 
2126 
2127 
2128 
2129 
2150 
2131 
2132 
21?? 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2146 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 



c. 

2 

2 

2 

3 

3 

3 

2 

2 

3 

2 

2 

2 

2 

3 

3 

3 

2 

2 

2 
-\ 
*.. 

?. 



RO/RX EXERCISER 

INITIALIZATION TEST ROUTINES 

GLOBAL routine CTLR_INIT : novolue 



11 -Apr- 1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss-16 V4. 0-579 

DISK $USER2 : [ POWERS ] ZRQADO . BL2 ; 6 



SEQ 0259 
Page 28 
(5) 



THIS "DRIVER" ROUTINE IS CALLED FROM DRIVER INIT FOR EACH CONTROLLER 
CONFIGURED FOR TESTING. ITS GENERAL PURPOSE IS TO BRING THE RDRX ONLINE 
TO THE HOST. SPECIFICALLY, IT IS WRITTEN TO: 

1. INITIALIZE DRIVER CONTROLLER DATA, INCLUDING THE OCT, 

2. SET UP THE DEVICE'S INTERRUPT VECTOR ADDRESS. 

3. PERFORM A REGISTER EXISTENCE TEST TO VERIFY THE DEVICE'S PRESENCE, 

4. PERFORM A VECTOR AND BR LEVEL TEST TO VERIFY THE DEVICE'S VECTOR 

ADDRESS AND INTERRUPT REQUEST LEVEL. 

5. DO A HARD INITIALIZATION (FOUR STEPS) ON THE DEVICE. 

IF ANY OF THESE INITIAL TESTS FAIL, THEN ALL UNITS ASSOCIATED WITH THE 
DEVICE ARE DROPPED. 



begin 

local 

RESULT : bytes 

INI_CTLR_DAT ( ); 

SETVEC (.CURRENT VECTOR, .INT ADDR [.CCTLR'J, PRI04); 

OCT ADDR [IG INT] - TRUE? 

L5LUN - .CST ADDR [OF_UN ♦ OF DATA, UNIT]: 



IF SUP .DINT NEQ (,DUP_FLAGS AND SWP.D1NT) 
THEN 

If REG_EXIST () eql FAILURE 
then 

begin 

DROP_CTLR C.CCTLR, DU_INIT); 

return; 

end; 

IF SWP^DINT NEQ ( .DUP ..FLAGS AND SWP DINT) 
THEN 

if VEC.BR.TEST () eql FAILURE 
then 

begi n 

DROP_CTLR C.CCTLR. DU_INIT)j 

retur . 

end; 

RESULT - HARD INIT ( ); 
DCT..ADDR [IG^INTJ * FALSE; 

if .RESULT eql SUCCESS 
then 



! INITIALIZE CONTROLLER DATA 

! SET DEVICE'S ASSUME.n VECTOR ADDRESS 

! SET "IGNORE INTERRUPT' BIT 

! GET FIRST UNIT NUMBER OF CONTROLLER 

! (USED BY DRS FOR DEVICE-FATAL CTLR ERRORS) 
!IF DUP 17.1 

{CAUSED INIT, SKIP THIS CODE 111 

\ REGISTER EXISTENCE TEST 



! DROP ALL CONTROLLER'S UNITS 



•CAUSED INIT, SKIP 



!IF DUP 777 
THIS CODE 111 

\ VECTOR ADDR AND BR LEVEL TEST 



! DROP ALL CONTROLLER'S UNITS 



ATTEMPT HARD DfcVlC*-' INIT 
ClAER "IGNORE INTERRUPT" BIT 

IF HARD INIT WAS SUCCESSFUL 



f 



■) r 



ZRQAM3 




V01.6 




i 0160 


3 


; 01t»l 


3 


; 0160 


3 


; 0163 


3 


; 0164 


3 


0165 


3 


; 0166 


3 


; 0167 


4 


; 0168 


4 


; 016* 


4 


t 0170 


3 


; 0171 


3 


i 01*0 


3 


; 0173 




; 0174 


3 


; 0175 


3 


; 0176 





; 0177 





; 0178 


1 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 

begin 

ADOR.VECT OK - TRUE i 

INI RRING ( )} 

WRT_RDRX (RCSA, RC..ALL. SA.GO)i 

if SET..CTLR..CHAR () eql SUCCESS 
then 

DCt'aoDR [STAT] • ONLINE i 
CST^ADDR [STATE] - ONLlNEj 
end | 



end 



else 



DROP.CTLR (,CCTLR, DU.INIT)| 

endi 



11 Apr 1984 11 t08: 35 
U-Apr-1984 11*08:22 



VAX- 11 Bl!»s-16 V4. 0-579 

DISK $USER2i( POWERS IZRQADO.BLOj 6 



5EQ 0060 
Paye 09 
(5) 



end; 



! ADDRESS/VECTOR TEST PASSED 

\ INITIALIZE RESPONSE RING 

• SET "GO" BIT (START CTLR POLLING) 

• SET CONTROLLER CHARACTERISTICS 



• MARK CONTROLLER ONLINE. IN "DRIVER' 

• MARK CONTROLLER ONLINE IN "PROGRAM" 



! HARD INIT TAILED 

1 DROP ALL CONTROLLER'S UNITS 

! ROUTINE CUR. INIT 



000000 010146 



000000 
000006 
OOOO10 
000016 
OOOOOO 
000004 
000030 
00O034 
0000 3o 
000O44 
000050 
000054 
000056 
000060 
000066 
0000 74 
0000 76 
000100 
000104 
000106 
000114 
000116 
O001 00 
00104 

000106 
00013? 
000156 
014,' 
000146 



0O4737 
010746 
013700 
006300 
016046 
013746 
010746 
104437 
052777 
013700 
016001 
000501 
040701 
010137 
050^3/ 
001005 
004737 
005700 
001410 
030737 
001015 
004737 
005/00 
001011 
015716 
010/46 
004 7 5 / 
060/06 
000455 



000000V 

OOOOOO 

OOOOOOG 

OOO100' 
001150' 
000003 

040000 OOOOOOG 

COOOOOG 

000006 

177760 

OOOOOOG 

OOOOOO OOOOOOG 

OOOOOOV 



OOOOOO OOOOOOG 
OOOOOOV 



OOOOOOG 
OOOOOO 
OOOOOOG 
OOOOiO 



,SBTTL 


CTLR. INIT INITIAl.I/A 


CTLR, INIT: : 




MOV 


Rl.-(SP) 


JSR 


PC.INI.CTLR.DAT 


MOV 


0200, (SP) 


MOV 


CCTLR.RO 


ASL 


RO 


MOV 


INT.ADDR(RO). (SP) 


MOV 


CURRENT. VECTOR, (SP1 


MOV 


03, CSP) 


TRAP 


37 


BIS 


040000, BOCT.ADDR 


MOV 


CST.AODR,RO 


MOV 


6(R0),R1 


SWAB 


Rl 


BIC 


0177/60, Rl 


MOV 


Rl.l ILLH 


BIT 


OO.DUP.Tl AGS 


BNE 


01 


JSR 


PC. RFG. EXIST 


TST 


RO 


BEQ 


1$ 


BIT 


OO.DUP.* I AGS 


BNE 


01 


JSR 


PC.VECBR, TEST 


TST 


KO 


BNf 


oi 


Us MOV 


CCUR.l SP) 


MOV 


00, fSP> 


JSR 


PC, DROP. CTLR 


ADO 


010, SP 


BH 


51 



010^ 
0130 
0131 



0130 
0133 



0155 
0158 

0141 
014*1 

014S 
01'*1 

oiv 
o:^o 



C':> 



/ROAM 3 
V01, 6 

000150 
000154 

000156 
000164 
000170 
000170 

000200 

000204 
000^10 
000214 
000220 
000224 
000230 
000232 
000240 
000244 
000252 
000254 
000260 
000264 
000270 
0002 72 
0002 76 
000300 



RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 



004 73 7 
110001 
042777 
120127 
001031 
112737 
004737 
012701 
013700 
010160 
004737 
020027 
001C20 
052777 
013700 
052760 
000407 
013716 
012746 
004 7 3" 
00572b 
062706 
012601 
00020 7 



oooooov 

040000 
000001 

000001 

oooooov 

000001 

OOOOOOG 

000002 

oooooov 

000001 

100000 

OOOOOOG 

100000 

OOOOOOG 

000002 

OOOOOOG 

000010 



2$! 



OOOOOOG 
OOOOOOG 



OOOOOOG 
000002 



3Si 



4$: 
5$ t 



11 -Apr -1984 

11 Apr- 1984 

JSR PC.HARD.INIT 

MOVB R0.R1 

BIC O40000.Q0CT.ADDR 

CMPR R1.01 

BNE 3$ 

MOVB n.ADDR.VECT.OK 

jsr pc.ini.rrim; 

MOV 01, Rl 

MOV RDRX.ADDR.RO 

MOV R1.2CR0) 

JSR PC.SET.CTLR.CHAR 

CMP RO.Oi 

BNE 41 

BIS OlOOOCO.QOCT.ADDR 

MOV CST.ADOR.RO 

BIS $100000, 2CR0) 

BR 41 

MOV CCTLR.(SP) 

MOV 02.-CSP) 

JSR PC.DROP.CTLR 

TST (SP)» 

ADD 010. SP 

MOV (SP)»,R1 

RTS PC 



11:08:35 VAX-11 Bliss 16 V4.0 579 

Ut08i22 DISK»U5ER2:[POWE!?SURQAD0.BL2|6 



♦ .RESULT 
RESULT ,♦ 



*.RC.REG 

RC.REG,* 



Page 30 

(5) 

2155 

2156 

2158 

2161 

2162 
2165 



2165 



2163 
2169 

2158 

2175 



2174 
2125 

210? 



; Routine Si .re: 97 words, Routine Base: tCQDE* * 1630 

j Moximtim stack depth per invocations 7 words 



ZRQAM3 
V01.fr 



21 79 
2180 

2181 
J 182 
2185 
2184 
2185 
2186 
218? 
2188 
2189 
2190 
21^1 

2192 
2195 
2194 
2195 
2196 
2197 
2198 
2199 



D!: 



RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 

GLOBAL routine IN1_CTLR„DAT } novalue - 



1? -Apr- 1984 
11 -Apr -1984 



11{08j35 VAX-11 Bliss 16 V4.0 579 
lls08{22 DISKtUSER2:[P0WERS]ZRQAD0.BL2}6 



SEQ 0262 
Page 3?. 

ce.) 



THIS ROUTINE IS RESPONSIBLE FOR INITIALIZING ALL CONTROLLER REt ATED 



DATA IN THE ''DRIVER'* PORTION OK THE EXERCISER, 
CONTROLLER'S OCT AND OUTSTANDING COMMAND LIST. 



THIS INCLUDES THE 



IMPLICIT INPUTS: 

CCTLR - CURRENT CONTROLLER NUMBER 
DCT..ADDR - ADDRESS OF CURENT CONTROLLER'S 



OCT 



begi 

DCT 

DCT 

DCTl 

DCT_ 

DCT 

DCT_ 

DCT^ 

end: 



n 

ADDR fWORDO] - Oj 

ADDR [RR BEG] - COMM AREA * 8 

ADDR TRR.ENO] - .DCT~ADDR [RR BEG] • 

ADDR [CR.BEG] - .OCT ADDR fRR END] * 

ADDR [CR_ENO] • ,DCT~ADDR [CR~9EG] ♦ 

ADDR [RR_POLL] • .OCT ADUR ( RR BEG]j 

ADDR [CR^POLL] • DCT..ADDR [CR NEXT] - .DCT ADDR [CR BEGlt 



( .CCTLR ♦ COHM LEN 
((RRING LEN - 
4j 
CfCRINGAEN - 



* 2), 
1) * 4)j 

1) * 4), 



1 CLEAR FIRST DCT WORD 
START OF RESPONSE RING 
LAST SLOT IN RESPONSE PiNG 
START OF COMMAND RING 
LAST SLOT IN COMMANT RING 
FIRST RRING SLOT TO POLL 
CRING POLL AND NEXT COMMAND POINTERS 



000000 00413 7 



.SBTTL XNI.CTLR.DAT INITIALIZATION TEST ROUTINES 



000004 
0000 10 
000012 
000016 
000020 
000024 
000030 
000034 
000040 
000042 
000046 
000054 
000060 
000062 
000066 
000072 
000076 
000104 
000110 
000114 
000120 
000122 



013701 
005011 
012702 
060102 
013746 
012746 
004737 
062700 
010012 
010061 
062761 
012700 
060100 
016110 
062710 
011061 
062761 
011261 
011061 
011061 
022626 
000207 



OOOOOOG 




INI.CTLR.DAT:: 








JSR 


R1.ISAVE2 


OOOOOOG 




MOV 


DCT. ADDR, Rl 






CLR 


CR1) 


000004 




MOV 


04, R2 






ADD 


R1.R2 


OOOOOOG 




MOV 


CCTLR. (5P) 


000050 




MOV 


$50, -CSP) 


OOOOOOG 




JSR 


PC.BLtMUL 


000010' 




ADD 


*C0MM.AREA>10,R0 






MOV 


R0.CR2) 


000006 




MOV 


R0.6CR1) 


000014 


000006 


ADD 


*14.6(R1) 


000010 




MOV 


010.RO 






ADD 


Rl.RO 


000006 




MOV 


6(R1),(R0) 


000004 




ADD 


04, (RO) 


000012 




MOV 


(R0).12(R1> 


000014 


000012 


ADD 


014.12CR1) 


000014 




MOV 


CR2).14(Ri ) 


000020 




MOV 


(R0),20(R1 ^ 


000016 




MOV 


(HO), 16CR1 ) 






CMP 


t,>P)».CSP)» 






RTS 


PC 



21- '9 
2192 

2193 



2194 

2195 

2 1 9r^ 

219 * 
2198 

2191 
21'.'9 



Routine M;e: 42 words, Routine Base: $CODb$ * 2152 
Maximum stack depth per Invocation; 6 words 



JRQAM3 




VOL 6 




i 2200 


1 


; 2201 


1 


; i^202 


1 


i 220? 


1 


j 2204 


1 


; 2205 


1 


; 2206 


1 


; 220 7 


1 


; 2208 


1 


; 2209 


1 


; 2210 





2211 


C. 


2212 


"4 


f. 


; 2215 


t. 


; 2214 


2 


; 2215 


2 


; 2216 


2 


; 2217 


2 


; 2218 


2 


; 2219 


2 


j 2220 


2 


; 2221 


2 


; 2222 


2 


; 2225 


5 


; 2224 


5 


; 2225 


3 


; 2226 


3 


; 2227 


5 


I 2228 


3 


; 2229 


5 


; 2250 


5 


; 2251 


3 


; 2252 


3 


; 2255 


4 


; 2234 


4 


; 2255 


4 


; 2256 


4 


: 2257 


4 


; 2258 


5 


; 2259 


5 


; 2240 


5 


; 2241 


4 


j 2242 


4 


; 2245 


4 


: 2244 


4 


; 2245 


4 


; 2246 


4 


; 224 7 


5 


; 2248 


3 


; 2249 


5 


; 2250 


5 


; 22 j 1 


2 


; 2252 


2 



RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 

GLOBAL routine REG_EXIST - 



[ !) 

ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bllss-16 VI. 0-579 
DISKIUSER2: [POWERS ]ZRQADO, BL2;6 



SEQ 0263 
Page 52 
CO 



THIS IS THE REGISTER EXISTENCE (OR "PROBE") TEST DESIGNED TO VERIFY 
THE PRESENCE OF AN RDRX DEVICE. THIS OBJECTIVE IS ACCOMPLISHED Br 
SETTING UP THE NON-EXISTENT MEMORY (NEX) TRAP VECTOR (LOCATION 4) AND 
ATTEMPTING TO READ WHAT IS ASSUMED TO BE THE DEVICE'S SA AND IP 
REGISTERS. IF THE NEX TRAP HANDLER IS INVOKED DOE TO AN ABSENT DEVICE* 
THEN THE GLOBAL DATUM "NEX" WILL BE SET TO "TRUE", THIS DATUM 
DETERMINES THE SUCCESS / FAILURE VALUE OF THIS ROUTINE. 



begin 

local 

DUMMY _0 

DUMMY 1 



word, 
word; 



If .ENTRY REASON eql NEW PASS 
then 

return SUCCESS; 

OF„RC < 2; 



do 



begin 

NEX - FALSE: 

SETVEC (4, NEX TRAP, PRI07) 5 

DUMMY. .0 - .(.RDRX ADDR ♦ .OF ROj 

DUMMY_1 « 0; 

CLRVEC (4)j 

if .NEX 
then 

begin 

C.ERR..TBL [.CCTLR, C..ERR..HRD) - 

if .APT MODE 

then 

begin 

.MAIL BOX TESTNUM •> lj 

.MAIL_BOX„SUBTST • Oj 

ERRDF (10. EGO 10, EMS.10)| 
SETPRI (PRIOO); 
return FAILURE j 
end 



! TEMP FOR READING SA AND IP 
j 

! SKIP TEST FOR NEXT PASS 

! SET UP TO RLAD SA FIRST 



SET TO "TRAP NOT RECEIVED" 

SET LOCATION 4 TRAP VECTOR ADDRESS 

READ REGISTER (THEN TRAP OR CONTINUE) 

DUMMY INSTRUCTION TO COVER TRAP RETURN DUG 

(TRAP RETURNS TO NEXT INSTRUCTION) 
CLEAR LOCATION 4 TRAP VECTOR ADDRESS 

! IF NEX TRAP OCCURRED 



CERRJBL [.CCTLR, C_ERR_HRD} ♦ 1} 



else 



OF.RC * .0F..RC - 2 1 



I REGISTER EXISTENCE TEST FAILED 
} LOWER PRIORITY 



! SET UP FOR IP REG UR QUIT 



until t QF„RC las Oj 



ZRQAM5 




RO/RX EXERCISER 






11 -Apr- 1984 


V01, 6 




INITIALIZATION TEST 


ROUTINES 




ll-Apr-1984 


2253 2 


return SUCCESS; 








; 2254 1 


end; 




















.SBTTL 


REG. EXIST INITIALIZA 


OOOOOO 


004137 


OOOOOOG 




REG, 


EXIST:; 
JSR 


R1.ISAVE2 


000004 


123727 


OOOOOOG 


000005 




CMPB 


ENTRY. REAS0N.05 


000012 


001472 








BEQ 


4$ 


000014 


012737 


000002 


OOOOOOG 




MOV 


02, OF, RC 


000022 


005037 


OOOOOOG 




Ut 


Cl.R 


NEX 


000026 


012746 


000340 






MOV 


0340, (SP) 


000032 


012746 


OOOOOOG 






MOV 


ONEX. TRAP.-CSP) 


000036 


012746 


000004 






MOV 


04, -(SP) 


000042 


012746 


000003 






MOV 


03,-CSP) 


000046 


104437 








TRAP 


37 


000050 


013700 


OOOOOOG 






MOV 


RDRX.ADOR.RO 


000054 


063700 


OOOOOOG 






ADD 


of.rc.ro 


000060 


011001 








MOV 


(RO).Rl 


000062 


005002 








CLR 


R2 


000064 


012700 


000004 






MOV 


04. RO 


000070 


104436 








TRAP 


36 


000072 


032737 


000001 


OOOOOOG 




BIT 


01. NEX 


000100 


001427 








BEQ 


3$ 


000102 


013700 


OOOOOOG 






MOV 


CCTLR.RO 


000106 


006300 








ASL 


RO 


000110 


105260 


OOOOOOG 






INCB 


C.ERR.TBLCRO) 


000114 


032737 


000001 


001162' 




BIT 


01, APT, MODE 


000122 


001405 








BEQ 


2$ 


000124 


012777 


000001 


001164' 




MOV 


Ol.OMAIL.BOX.TESTNUM 


00013? 


005077 


001166' 






CLR 


aMAIL.BOX.SUBTST 


000136 


104455 






2$: 


TRAP 


55 


000140 


000012 








.WORD 


12 


0001.42 


0000006 








.WORD 


EGO. 10 


0001*4 


OOOOOOG 








.WORD 


EMS. 10 


000146 


005000 








CLR 


RO 


000150 


104441 








TRAP 


41 


000152 


062706 


000010 






ADD 


010, SP 


000156 


0004 1 3 








BR 


5i 


000160 


162737 


000002 


OOOOOOG 


3$: 


sue 


02.0F.RC 


000166 


062706 


000010 






ADD 


010, SP 


000172 


005737 


OOOOOOG 






TST 


OF'.RC 


000176 


002311 








BGE 


1$ 


000200 


012700 


000001 




4$: 


MOV 


01, RO 


000204 


00020 7 








RTS 


PC 


000206 


005000 






5$: 


CLR 


RO 


000210 


000207 








RT^ 


PC 



VAX-It Blis9-I6 V4. 0-579 

DISK JUSER2 i ( POWERS ] ZRQADO , BL2 } 6 



SEQ 0264 
Page 



C7) 



; 



j *, DUMMY ,0 

j DUMMY .1 



2200 
2216 
2218 
2220 
2224 
2225 



2226 

222 7 
2229 

i^:3l 
2234 



2236 

2239 

2240 
2243 



2244 

224 5 
2233 
2248 

2251 

2210 

2200 



; Routine Size: 69 *ords , Ratine Bose : $CODE$ * 2256 
j Maximum stock depth p**r invocation: 9 words 



GS 



ZRQAM? 




V01. 6 




2255 


1 


2256 


1 


225? 


1 


; 2253 


1 


; 2259 


1 


; 2260 


1 


; 2261 


1 


j 2262 


1 


2263 


1 


; 2264 


1 


: 2265 


1 


i 2266 


1 


; 2267 


1 


; 2268 


1 


; 2269 


1 


2270 


1 


; 22/1 


1 


2272 


1 


; 2273 


1 


; 2274 


1 


; 2275 


1 


; 2276 




227? 


2 


; 2278 




2279 


2 


; 2280 


^ 


2281 


3 


; 2282 


3 


; 228 3 


4.- 


j 2284 


2 


2285 


2 


: 2286 


2 


; 2287 


2 


; 2288 


2 


; 2289 


3 


; 2290 


3 


2291 


3 


: 2292 


3 


; 2293 


3 


; 2294 


4 


j 2295 


4 


; 2296 


4 


2297 


3 


; 2298 


3 


; 2299 


3 


; 2300 


3 


; 2301 


3 


; 2302 


? 


; 2303 


5 


; 2304 


3 


; 2305 


3 


; 230*> 


3 


I 2307 


3 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 

GLOBAL routine VEC^BR„TEST ■ 



ll-Apr-1984 11:08:35 
ll-Apr-198' 11:08:22 



VAX-11 Bliss-16 V4. 0-579 

DISK JUSER2 j [ POWERS ] ZRQADO . BL2 \ 6 



SEQ 0265 
Page 34 
C8) 



THIS ROUTINE ATTEMPTS TO VERIFY (A) THAT THE. RORX VECTOR ADDRESS GIVEN 
BY THE USER DURING THE HW DIALOG IS VALID, AND CB) THAT THE 
USER -SPECIFIED BUS REQUEST LEVEL FOR THE DEVICE IS CORRECT, THE FIRST 
OBJECTIVE IS ACCOMPLISHED BY SETTING THE CPU PRIORITY TO AND FORCING 
AN RDRX INTERRUPT. IF THE USER SPECIFIED AN INCORRECT VECTOR ADDRESS, 
THEN THE RESULT MAY BE UNPREDICTABLE, FOR THIS REASON, THE MESSAGE 
"FUNCTIONAL TEST STARTED" IS PRINTED BEFORE THE TEST, AND 
"EXERCISER STARTED" IS PRINTED AT ITS SUCCESSFUL CONCLUSION. IT 
EITHER "FUNCTIONAL TEST ..." OR "EXERCISER ..." DOES NOT APPEAR, THEN 
PROGRAM CONTROL IS ASSUMED LOST AND A FATAL TRAP IS LIKELY TO OCCUR. AT 
THIS POINT, THE EXERCISER MUST BE STARTED AGAIN. 

IF THIS TEST SUCCEEDS, THEN THE BR LEVEL TEST IS RUN Br SETTING The 
PROCESSOR PRIORITY TO THE ASSUMED INTERRUPT PRIORITY GIVEN BY THE 
USER. A FORCED INTERRUPT SHOULD NOT OCCURR . THEN, BY LOWERING THE 
PRIORITY BY ONE, THE DELAYED INTERRUPT SHOULD OCCUR. 



begt n 

If .ENTRY„REASON cc^l NEU.PASS 
then 

begin 

SETPRI (PRIOO); 

return SUCCESS j 

end; 

PRINTF (MSG..02): 

if INT_GEN ( ) eql FALSE 
then 

beg i n 



! LOWER PRIORITY 

! SKIP TEST IF NEXT PASS 



"FUNCTIONAL TEST STARTED" 
FORCE AN INTERRUPT 

IF INTERRUPT DID NOT OCCUK 



C_ERR_TBL r.CCTLR, C_ERR_HRD] * ,C,ERR.,TBL [.CCYLR, C_ERR,HRD) ♦ 1; 

If .APT MODE 
then 

begin 

.MAIL_B0X_TESTNUM - 1| 

.MAIL_BOX„SUBTST - Oj 



else 



ERRDF (11, EGD..11, 0)} 

return FAILURE} 

begin 

PRINTF CMSG.03)} 
SETPRI ( .BRLEVEL): 

If INT. GEN ( ) eql FALSI 



! VECTOR TEST FAILED 



! INTERRUPT DID OCC* 

! "EXERCISER STARTED' 

! SI I PRIORITY Tf) ASSUMED BR LEVEL 

! FORCE AN iNURRUPT (SHOULD NOT OCCUR) 



!•) 



7RQAM3 
V01. 6 



RO/RX EXERCISER 
INITIALIZATION TtST ROUTINES 



2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
231? 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
232S 
2330 
2331 
2332 
2333 
2334 
2335 
2336 



3 
4 
4 

4 
4 
4 
4 
5 
5 
5 
4 
4 
3 
3 

».. 

■> 

i.. 

2 
2 



2 



then 



begin 

SETPRI C.BRLEVEL * *o'40' ); 

DELAY (1), 

If .DCT„ADDR ISA.SAVE] neq 
then 

begin 

SETPRI (PRIOO)i 

return SUCCESS; 

end} 

end; 



11 Apr-1984 11:08;35 
11 -Apr 1984 11:08:22 



SEQ 0266 
VAX -11 Bliss- 16 V4. 0-579 Page 35 

DISK*USER2: [POWERS ]2RQAD0.BL2|6 C8) 



! IK INTERRUPT DID NOT OCCUR 

• LOWER PRIORITY BY 1 

♦ WAIT 

! IF INTERRUPT DID OCCUR (SA.SAVF. WOULD BE NON-ZERO) 



» RESTORE PROCESSOR PRIORITY TO 
! ONLY SUCCESSFUL EXIT POINT 



COME HERE ONLY FOR PR TEST FAILURE 



end; 

SETPRI CPRIOO); 

C_ERR_TBL CCCTLR, C.ERR_HRD] « .C„ERR„TBL I .CCTLR, CERR.HRD] ♦ Xj 

IF ,APT_MODE 
then 

begin 

.MAIL_B0X_TESTNUM » lj 

,MAIL„BOX_SUBTST - 0; 

end; 

ERRDF (l^, EGO. 12, EMS. 12); 

return FAILURE ; 

end: 



.GLOBL LiDLY 



000000 010146 



000002 
000004 
000012 
000014 
000016 
000020 
000022 
000026 
000032 
000034 
000036 
000042 
000044 
000046 
000052 
0C0054 



005 746 
123/2/ 
001003 
005000 
104441 
000504 
012/46 
012746 
010600 
104417 
004/3 7 
005700 
001023 
013/00 
00*300 
105260 



OOOOOOG 000005 



OOOOOOG 
00O001 



OOOOOOV 

OOOOOOG 
OOOOOOG 





.SBTTL 


VEC.BR. TEST INI 


VEC.BR 


TEST; ; 






MOV 


Rl, (SP) 




TST 


( SP ) 




CMPB 


ENTRY. REASON.05 




BNE 


li 




Cl.R 


RO 




TRAP 


41 




BR 


8$ 


Ut 


MOV 


OMSCi.02. -(SP) 




MOV 


i>[ , l SP ) 




MOV 


SP , RO 




TRAP 


17 




JSR 


PC, INT. GEN 




TST 


RO 




BNE 


3$ 




MOV 


CCTl R.HO 




AM 


RO 




1NCB 


C.LRR.TUL(RO) 



SP,* 



2255 

22 *8 
228 l 

22i*^ 
2285 



c c 



!290 



is 



ZRQAM5 

VOL 6 

000060 
000066 
000070 
000076 
000102 
000104 
000106 
000110 
00011? 
000114 
000120 
000124 
000126 
000130 
000134 
000136 
000142 
000144 
000146 
000152 
000156 
000160 
000164 
000166 
000172 
000174 
000200 
000202 
000204 
000206 
000210 
000214 
000220 
000222 
000224 
000226 
000232 
000236 
000240 
000242 
000244 
000246 
000252 
000254 
000260 
000266 
000270 
000276 
000302 
000304 
000506 
000510 
000312 



032737 

001405 

012777 

005077 

104455 

000013 

OOOOOOG 

000000 

0004 7 7 

012716 

012746 

010600 

104417 

013700 

104441 

004 737 

005700 

001035 

013700 

162700 

104441 

012701 

001411 

013700 

001404 

005066 

005300 

001374 

00530J 

000 766 

013700 

005760 

001407 

005000 

104441 

062 706 

012700 

00042/ 

005/26 

005000 

104441 

013700 

006300 

105260 

03273/ 

001405 

01277/ 

0050/7 

104455 

000014 

OOOOOOG 

OOOOOOCi 

022626 



RO/Rx EXERCISER 

INITIALIZATION TEST 

000001 001162' 

000001 001164' 
001166' 



OOOOOOG 
000001 



001154' 

oooooov 

001154' 
000040 

000001 

OOOOOOG 

000006 



OOOOOOG 
000002 



000006 
000001 



OOOOOOG 

OOOOOOG 
000001 001162 

000001 001164 
001166' 







U-Apr-1984 11:00:35 


INES 




11 -Apr -19*34 11:08:22 




BIT 


#1, APT. MODE 




BEQ 


2$ 




MOV 


#1, ©MAIL, BOX. TESTNUM 




CLR 


QMAIL.BOX.SUBTST 


2$: 


TRAP 


55 




.WORD 


13 




.WORD 


EGD.ll 




.WORD 







BR 


11* 


3$: 


MOV 


0MSG.O3.CSP) 




MOV 


01, CSP) 




MOV 


SP.RO 




TRAP 


17 




MOV 


BRLEVEL.RO 




TRAP 


41 




JSR 


PC. INT. GEN 




T5T 


RO 




BNE 


9$ 




MOV 


BRLEVEL.RO 




sue 


04O.RO 




TRAP 


41 




MOV 


01. Rl 


4$: 


BEQ 


7i 




MOV 


I. IDLY.RO 




BEQ 


6$ 


5$: 


CLR 


6vSP) 




DEC 


RO 




BNE 


5* 


t$: 


DEC 


Rl 




BR 


4$ 


7$: 


MOV 


DCT.ADDR.RO 




1ST 


?(R0) 




BEQ 


$ 




CLR 


F ) 




TRAP 


' L 




AOD 


<6,5P 


8$: 


MOV 


01, RO 




BR 


12$ 


9$: 


TST 


(SP)» 




CLR 


RO 




TRAP 


41 




MOV 


CCTLR.RO 




ASL 


RO 




INCB 


C.ERR. TBL(RO) 




BIT 


01 .APT. MODE 




BEQ 


10$ 




MOV 


01, 8MAIL . BOX. TESTNUM 




CLR 


aMAIL .BOX.SUBTST 


10$: 


TRAP 


55 




.WORD 


14 




.WORD 


EGO. 12 




.WORD 


EMS. 12 


11$: 


CMP 


(SP)*.ISP>» 



SEQ 026/ 
VAX-H BlIss-16 V4.0-579 Page 36 

D I SK $ USER2 : [ POWERS ] ZRQADO . BL2 j 6 ( 8 ) 

! 2292 

; 2295 

! 2296 

i 2299 



; SP.+ 



j 

i *,$$TMP2 

j *,$$TMP1 

; $$TMP 

} $$TMP1 

; 5 5TMP2 



2300 
2304 



2305 
2307 

2310 

2311 



2313 



2 316 

2317 
2315 

2303 
2324 

2325 



232 " 

23 30 
2331 

2354 



2335 



i'RUAM5 
V01, 6 

000514 
00051ft 
000520 
000522 



00^000 
00572ft 

012601 
00020 7 



RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 



12$ 



CLR 
TST 
MOV 
RTS 



11 -Apr -1984 

11 -Apr -1984 



11:08:55 VAX -11 Bliss-16 V4, 0-579 

1 1 : 08 i 22 D ISK SUSER2 1 [ POWERS 3 ZRQADO . BL2 j 6 



SEQ 0268 
Page 



RO 

(3P)» 

(SP)#,R1 

PC 



C8) 
2255 



j Routine Size: 10ft words, Routine Bnse: $C0DE$ » 2470 
; Maximum stack depth per Invocation; 7 words 



I<5 



/RQAM3 
V01, 6 



033? 

0338 
2339 

0340 
0341 
0340 
034 3 
0344 
034 5 
0346 
034 7 
0348 
0319 
0350 

0350 
035.3 

0354 
0355 
0356 

0357 
0356 
0359 
2360 
0361 
2360 
0363 
0364 
0365 
2366 
036,' 
0368 
0369 

03 ;o 
03 a 

03 70 
0373 



RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 

GLOBAL routine INT GEN « 



11 -Apr 1984 11:08:35 
11 -Apr -1964 11; 08; 22 



VAX-11 Bltss-16 V4, 0-579 
DISK$USER2:rP0WF.RS]ZRQADO.BL2i6 



SEQ 0069 
Page 33 

(9) 



THIS ROUTINE BEGINS AN RDRX INITIALIZATION SEQUENCE, BUT ONLY 



COMPLETES THROUGH THE STEP 1 WRITE. ITS PURPOSE 
INTERRUPT (AT THE COMPLETION OF STEP 1) IN ORDER 
THE USER -SPECIFIED VECTOR ADDRESS AND BUS REQUEST 
A VALUE OF "TRUE" IS RETURNED TO THE CALLER IF AN 



IS TO CREATE AN RDRX 
TO HELP VERIFY THE 
INTERRUPT LEVEL. 
INTERRUPT OCCURS, 



ANO "FALSE" OTHERWISE. THE INTERRUPT IS VERIFIED BY A NON-ZERO VALUE 
IN THE "SA SAVE" WORD IN THE DEVICE'S OCT, 



beg i n 

local 

SA : word; 

DCT .ADDR [SA^SAVE] * 0; 

URT RDRX (RCIP, RC ALL, ALL .ONES)? 

DELAY (2); 

SA * .RDRX ADDR [RCSA, RC ALL]j 

SA * (WRJ1ING t 6) or C.CURRENT^VECTOR ♦ -2) or SA INT ; 

WRT..RDRX CRCSA, RC^ALL, .3A); 

incr COUNT from 1 to 8000 do 
begin 
DELAY (1); 

if .OCT ADDR [SA SAVE] neq 
then 

return TRUE} 

BREAK; 

end,' 

return FALSE; 
end; 



! STORAGE FOR STEP 1 READ AND WRITE 

! ZERO OUT SA SAVE WORD IN DCT 

• WRITE IP TO START INIT SEQUENCE 
! WAIT 

! STEP 1 READ 

• STEP 1 WRITE VALUE 
5 STEP 1 WRITE 



TOTAL DELAY COUNT OF 8,000 
IF SA WAS CHANGED 
INTERRUPT OCCURED 

! IF INTERRUPT DID NOT OCCUR 



000000 004137 OOOOOOG 



.SBTTL INT. GEN INITIALIZATION TEST ROUTINES 



000004 
000006 
000010 
000016 

oooooo 

000006 
000030 
000034 
000040 
000040 
000046 



024646 
013700 

005060 
012 700 
010077 
012701 
001411 
013700 
001404 
005066 
005300 



OOOOOOG 

OOOOOO 

1/7777 

OOOOOOG 

OOOOOO 

OOOOOOG 



INT 


.GEN; : 






JSR 


Rl.JSAVEO 




CMP 


(SP). (SP) 




MOV 


DCT .A0DR,RO 




CL.R 


0(RO) 




MOV 


9 l.RO 




MOV 


RO.aRDRX.ADDR 




MOV 


00. Rl 


1$: 


BEQ 


4$ 




MOV 


LSDLY t R0 




BEU 


3$ 


05: 


Cl.R 


OCSP) 




DEC 


RO 



*,RC.RK~» 
RC.REG.* 
*, $STMPO 

♦, *$TMP1 

$ $ 1 MP 

UTMP1 



0*3' 
0354 
0S55 
035o 



.J 



ZRQAM5 
VOL 6 

000050 
000052 
000054 
000056 
00006c? 
000066 
000072 
000074 
000076 
000100 
000104 
000106 
0001 12 
000116 
000122 
000124 
000150 
000132 
000136 
000140 
000142 
000144 
000146 
000152 
000156 
000160 
000164 
000166 
000170 
000172 
000174 
0001 76 
000200 



001374 
005301 
000 766 
013700 
016016 
013701 
006201 
006201 
010102 
052702 
010201 
010160 
012702 
012701 
001411 
013700 
001404 
005066 
005300 
001374 
005301 
000766 
013700 
005760 
001403 
012700 
000404 
104422 
005302 
001351 
005000 
022626 
000207 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 



OOOOOOG 

000002 

001152' 



111200 

000002 
017500 
000001 

OOOOOOG 

000002 



11 -Apr -1984 11:06:35 

ll-Apr-1984 11:08:22 



OOOOOOG 
000002 

000001 





BNE 


2$ 


3$: 


DEC 


Rl 




BR 


1$ 


4$: 


MOV 


RDRX.ADDR.RO 




MOV 


2(R0),CSP) 




MOV 


CURRENT, VECTOR, Rl 




A5R 


Rl 




ASR 


Rl 




MOV 


R1.R2 




BIS 


♦111200. R2 




MOV 


R2.R1 




MOV 


R1.2CR0) 




MOV 


017500.R2 


5$: 


MOV 


01.R1 


6$: 


BEQ 


9$ 




MOV 


L$DLY,R0 




BEQ 


8$ 


7$: 


CLR 


2CSP) 




DEC 


RO 




BNE 


7$ 


8$: 


DEC 


Rl 




BR 


6$ 


9$: 


MOV 


DCT.ADDR.RO 




TST 


2CR0) 




BEQ 


10$ 




MOV 


01, RO 




BR 


11$ 


10$: 


TRAP 


t ^ 




DEC 


R2 




BNE 


5$ 




CLR 


RO 


11$! 


CMP 


(SP)»,(SP)* 




RTS 


PC 



SEQ 02 70 
VAX-ll Bllss-16 V4. 0-579 Pace 39 

DISK$USER2:[P0WERS]7RUAD0.BL2;6 C9) 



j $$TMP2 



; *,RC>REG 

i 



l *,SA 

s *.SA 

; SA.RC.REG 

i RC.REG.* 

: ♦ , COUNT 

; *,$$TMP2 

j ♦,$$TMP1 

I $$TMP 

; $$TMP1 

; $$TMP2 



2357 
2358 



2359 

2361 
2363 



; COUNT 



2365 



236 7 



2361 

2 349 
2337 



Routine Si^e: 65 words, Routine Base: $CQDE$ * 3014 
Maximum stock depth per invocation: 7 words 



ZRQAM5 




V01. 6 




; 2374 


1 


; 2375 


1 


i 2376 


1 


; 2377 


1 


; 2378 


1 


; 2379 


1 


; 2360 


1 


; 2381 


1 


; 2382 


1 


; 2383 


1 


i 2384 


2 


; 2385 


2 


; 2386 


2 


; 2387 


2 


; 2388 


2 


; 2389 


2 


; 2390 


2 


; 2391 


2 


; 2392 


2 


; 2393 


3 


i 2394 


3 


; 2395 


3 


; 2396 


3 


239 7 


3 


; 2398 


3 


j 2399 


3 


5 2400 


3 


; 2401 


3 


; 2402 


3 


; 2403 


J 


; 2404 


3 


; 2405 


3 


; 2406 


3 


; 2407 


4 


; 2408 


4 


; 2409 


4 


l 2410 


5 


; 2411 


5 


; 2412 


5 


; 24 13 


5 


; 2414 


5 


; 2415 


5 


; 2416 


5 


; 24 1 7 


5 


; 2418 


5 


j 2419 


4 


; 2420 


4 


; 2421 


4 


2422 


3 


j 2423 


3 


; 2424 


^ 


; 2425 


3 


; 2426 


3 



RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 

GLOBAL routine HARD.INIT - 



Mb 

ll-Apr-1984 11-08:35 
U-Apr«1984 11}08j22 



VAX-11 Bliss-16 V4. 0-579 

DISK *USER2 : [ POWERS ] ZRQADO . BL2 j 6 



SEQ 0271 

Page 40 
(10) 



THIS ROUTINE PERFORMS THE TOUR READ / WRITE STEPS REQUIRED TO 
INITIALIZE AN RDRX DEVICE. IF NO READ ERRORS ARE DETECTED IN ANY OF 
THE FOUR STEPS, THEN A SUCCESS VALUE IS RETURNED TO THE CALLER. 
OTHERWISE, ADDITIONAL ATTEMPTS MAY BE MADE TO INITIALIZE THE DEVICE 
IF ALL ATTEMPTS FAIL, A FAILURE INDICATION IS RETURNED. 



beg i n 

Local 

IE.VEC : word; 



IE_VEC ■ .CURRENT_VECTOR t -2; 

»ncr ATTEMPTS From 1 to INI_ATT do 
begin 

label 

STEP„1 READ, 
STEP_2_READ, 
STEP_3_READ, 
STEP_4_READ{ 

WRT.RDRX (RCIP, RCJUX, ALL..QNES)} 

STEP 1 READ 

STEP - l; 
STEP_1_READ; 
begin 

incr COUNT From 1 to 500 do 

begin 

DELAY (1); 

SA^REG - .RDRX^ADDR [RCSA, RC..ALL]} 

if CSA_REG ano SI ..MASK) eql SA.S1 
then 

leave STEP,l^READj 

BREAK j 

end? 

ent tloopj 
end: 



STEP 1 WRITE 



IE-BIT-AND-VECTOR-ADDRESS/4 BYTE 

CUSF_D IN STEP 1 WRITE AND STEP 3 READ) 

GET VECTOR ADDR/4 (IE 0) 



! WRITE IP TO START INIT SEQUENCE 



■ TOTAL DELAY COUNT OF 500 FOR STEP 1 
! READ SA 

! IF STEP 1 READ IS O.K. 



/RQAM5 




H 


VOL 6 




I 


; 2427 


3 




l 2428 


3 




I 2429 


3 




; 2430 


3 




{ 2431 


3 




l 2452 


3 




i 2433 


3 




{ 24 34 


4 




j 54 3 r. 


4 




i 2436 


4 




5 24 37 


5 




; 2438 


5 




; 24 39 


5 




; 2440 


5 




; 2441 


h 




j 2442 


5 




; 244 3 


5 




; 2444 


5 




j 2445 


5 




; 2446 


4 




; 244 7 


4 




; 2448 


4 




! 2449 


3 




; 2450 


3 




i c45l 


3 


i 


J 2452 


3 


i 


; 2453 


3 


; 


; 2454 


3 




; 2455 


3 


• 


; 2456 


3 


i 


j 245 7 


3 


i 


; 2458 


3 




; 2459 


3 




; 2460 


4 




; 2461 


4 




; 2462 


a 




; 2463 


5 




; 2464 


5 




; 2465 


5 




; 2466 


5 




; 246/ 


b 




; 2468 


r- 




; 2469 


5 




j 24 70 


5 




; 24 71 


5 




; 24 72 


4 




; 2473 


4 




i 24 74 


4 




j 24 75 


z 




; 24 76 


3 




; 24 > / 


3 




; 24 /8 


3 




i 2479 


3 





HD/RX EXERCISER 

INITIALIZATION TEST ROUTINES 



N5 

ll-Apr~1984 11:08:35 
li-Apr-1984 11:08:22 



5EQ 0272 
VAX-11 Bliss -16 V4. 0-579 Page 41 

DI SK *USFR2 : [ POWERS ] ZRQADO , BL2 ; 6 CIO) 



REG 



(WR RING t 8) or .IE VFC 



WUT.RDRX CRCSA, RC.ALL, .SA.RtG)| 

STEP 2 READ 

STEP - .STEP ♦ Is 
STEP,2_RFAD: 

Incr COUNT from 1 to 10000 do 
begin 
DELAY (1) 5 
SA_REG ■- .RDRX_ADDR [RCSA, RC.ALl.lj 



! STEP 1 WRITE VALUE 
! STEP 1 WRITE 



• TOTAL DELAY COUNT OF 10,000 FOR STEP 2 

.' READ SA 



if USA REG and S2 Hm-: 
then 

leave STEP..2.READ; 

BREAK j 
end; 



O eql (SA„S2 or WR.^RING) ! IF STEP 2 READ IS O.K. 



e\ I Hoop; 
end; 



STEP 2 WRITE 

WRT„RDRX (RCSA, RC_ALL, .PCT.ADDR [RR.BEUDi 

STEP 3 REAC 

STEP - .STEP ♦ lj 
STEP 3. RE AD: 
b*-gin 

incr COUNT from 1 to 10000 do 
begin 

DELAY (1); 

SA_REG - .RDRX.ADDR [RCSA, RC..ALL J; 



\ RINGBASE-LO, PI > 



! TOTAL DELAY COUNT OF 10.000 FOR STEP 3 READ 
! READ SA 



if (.SA_REG and S3. MASK) € qi ( SA„S3 or .it.VtC) i IF STEP S READ IS O.K. 
then 

leave STEP„3„READi 

BREAK; 
erdj 



ex i tloop; 
end; 



STEP 3 WRITE 



/R0AM5 




V01. 6 




t .-'VO 


3 


; 24 ri 


3 


; 2462 


3 


; 24*55 


3 


; 24* 4 


3 


; 2485 


3 


; 24 36 


4 


j 248 7 


4 


; 2458 


4 


; 2489 


5 


; 2490 


5 


j 24 <U 


5 


j 24 <V 


5 


; 2493 


5 


; 2494 


5 


; 2495 


5 


; 2496 


5 


; 249? 


5 


; 2498 


4 


i 2499 


4 


j 2500 


4 


l 2501 


3 


; 2502 


3 


j 2503 


3 


; 2504 


3 


; 2505 


3 


; 2506 


3 


; 250 7 


3 


i 2508 


3 


{ 2509 


c. 


; 2510 


J 


: 2511 


1. 


j 2512 


2 


j 25 1 3 


t. 


; 2514 


2 


; 2515 




; 2516 


3 


; 2517 


3 


; 2518 


3 


; 2519 


2 


2520 


~i 


; 2521 




i 2522 


2 


; 2523 


1 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 



11 Apr- 1984 Uj0ei35 
U -Apr-1984 Us08:22 



VAX-ll BUM- 16 V4, 0-579 

DISK IUSER2; I POWERS ]ZRQAD0.BL2j6 



SEQ 02 7 3 
Page 4? 
CIO) 



WRT.RDRX (RCSA, RC_ALl , 0)| 

STEP 4 READ 

STEP • .STEP » 1| 
STEP. 4. RE AD: 
begin 

incr COUNT from i to 10000 do 
beg! n 
DELAY (1)| 
SA,REG - .RDRX_ADDR [RCSA, RC_AU.li 

if C.SA REG and S4_MASK) eql SA..S4 
then 

leave STEP„4_READ| 

BREAK j 
•ndi 

• k» t loop! 

endi 

STEP 4 WRITE 

CREDIT 8AL • lj 

WRT_RDRX (RCSA, RC.AlL, 0)\ 

return SUCCESS; 



! PP, RINGBASE-HI - 



! TOTAL DELAY COUNT UP 10,000 FOR STEP 4 READ 
! READ 5 A 

! IE STEP 4 READ IS O.K. 



•ndj 

CREDIT^BAL - Oj 

C_ERR.TBL [.CCTLR, C.ERR.HRDl 

If .APT MOOE 
then 

begin 

.HAH., BOX .TfcSTNUM • ll 

.MAIL„BOX .SUBTST - Oj 

endi 

t.RRDT (13, EGO. 13, EMS„13)| 

return FAILURE, 
end j 



• START WITH A CREDIT BALANCE » 1 
! BURST, LF , GO • 

• SUCCESS EXIT POINT 

J TRY AGAIN OR GIVE UP 



• NU CREDIT BALANCE 
.C.ERR..TBL (.CCTLR, C.ERR.HRD] ♦ 1| 



» IN IT StUUt-NCE E All ED 
! ROUTINE HARD. INI T 



000000 0O4 1 3 7 OOOOOOd 



00OOO4 
000010 
000014 
000016 



162 706 
013704 
006204 
006204 



0000 1 2 
001152' 



.SBTTl 

HARD.INXT; : 
JSH 
SUB 

MOV 
A'»R 
ASR 



HARO.INIT INITIALIZATION TEST RUUUNEb 

i 



R 1.1 SAVE 5 
♦12, SP 

CURRENT .VLCTUR»R4 

R4 

R4 



i ♦.IE.VK 
I U .VEC 
I XE.VbC 



2 *■ '4 
w)390 



D~ 



7RQAM5 
VOL 6 

000020 
000004 
000030 
000054 
00004 2 
00004b 
000052 
000054 
000060 
00006? 
000066 
000070 
0OOC72 
000074 

0000 7'j 
000102 
000106 
000112 
000114 
000 120 
000124 
000126 
000130 
000132 
000 154 
0O0136 
0OO142 
000150 
000154 
000160 
000164 
000170 
000174 
000200 
000202 
000206 
000210 
000214 
000216 
000220 
0O0222 
000224 
000230 
0002 36 
000244 
000250 
000254 
000260 
000262 
000264 
000266 
000270 
000*72 



RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 



012705 
012700 
010077 
012737 
012702 
012701 
001411 
013700 
001404 
005066 
005300 
001374 
005301 
000766 
013700 
016016 
011637 
0116CO 
042 700 
02002 7 
001404 
104422 
005302 
001345 
000532 
010437 
052737 
013701 
013700 
010160 
005237 
012702 
012701 
0014U 
013700 
001404 
005066 
005300 
001374 
005301 
000766 
013700 
016066 
0166 3/ 
016600 
042700 
02002 1 
001404 
104422 
005 302 
001342 
0005!? 

C3700 



000002 

177777 

OOOOOOG 

000001 

000764 

000001 

OOOOOOG 

000010 



OOOOOOG 

000002 

OOOOOOG 

001/77 
004000 



OOOOOOG 



2$ 



31: 

4$: 

51: 



OOOOOOG 



OOOOOOG 

111000 

OOOOOOG 

OOOOOOG 

000002 

OOOOOOG 

023420 

000001 

OOOOOOG 

0000 10 



OOOOOOG 
000002 000002 
000002 OOOOOOG 
0O0OO2 



61: 



/$: 
81: 



91: 

10*: 
111; 



003400 
010222 



OOOOOOG 



12*1 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BEQ 

MOV 

BEQ 

CLR 

DEC 

BNE 

DEC 

BR 

MOV 

MOV 

MOV 

MOV 

BIC 

CMP 

BEQ 

TRAP 

DEC 

BNE 

BR 

MOV 

BIS 

MOV 

MOV 

MOV 

INC 

MOV 

MOV 

BEQ 

MOV 

BEQ 

CLR 

DEC 

BNE 

DEC 

BR 

MOV 

MOV 

MOV 

MOV 

BIC 

CMP 

UEQ 

TRAP 

Dec 

BNE 

BR 

MOV 



11 Apr 1984 

11 Apr -1984 



111 09: .15 VAX -11 Bliss 16 V4.0 5/9 ^pSjji* 4 5 
11 : 08 } 22 DISK IUSER2 ; [ POWERS 1ZRQAD0 , Bl 2 » 6 ( 10 ) 



02, R5 

0-1, RO 

RO.SRDRX.ADOR 

Ol.STEP 

0/64, R2 

01, Rl 

5* 

LIDLY.RO 

41 

10CSP) 

RO 

3* 

Rl 

2t 

RDRX.ADDR.RO 

2(R0),CSP , » 

(SP).SA.REG 

(SP),R0 

01777, RO 

RO, 04000 

61 

21 

R2 

II 

191 

R4,SA,REG 

0111000, SA. REG 

SA.REG.R1 

RORX.AODR.RO 

R1,2(R0) 

STEP 

023420, R2 

01, Rl 

ill 

LIDH ,R0 

101 

lO(SP) 

RO 

9t 

Rl 

8$ 

RDRx.MDDR, RO 

2(R0).2tSP) 

2(SP),SA.REG 

21 'jfM.RO 

0*400. RO 

RO, 010222 

121 
> > 

H2 
M 

26$ 
DCT,ADOR t RO 



♦.ATTEMPTS 

♦.RC.REG 

RC.REG,* 

♦.COUNT 

♦.IITMP2 

♦, IITMPl 

IITMP 

IITMPl 

IITMP2 



♦.RC.REG 

RC.REG,* 
SA.REG,* 



COUNT 

IF..VFC.* 

♦.RC.REG 

RC.REG,* 

*, COUNT 
*. IITMP 2 

*, IITMPl 

IITMF 
IITMPl 

IITMP,? 



♦. RC.REG 
RC.Rtti,* 

<;a,reg,* 



COUNT 



2 592 
2401 

2405 
240V 
2411 



2412 
2414 

2416 

2409 

2393 

242 7 

2428 



24 32 
24 36 
24 38 



.'439 
2441 

244* 

24 3r, 

2**#* 
J454 



Dl\ 



/Ri)AM3 

VOL 6 

0O0276 
00030.? 
000306 
00031? 
000316 
000320 
000324 
000330 
000334 
000336 
00034*? 
000344 
000350 
000352 
000354 
000356 
000360 
000364 
000372 
000400 
000404 
000410 
000412 
000414 

00047.6 

000420 
0OO422 
0OO424 
0004 30 
0OO4 34 
000440 
000444 
000450 
000452 
000456 
000460 
000464 
000466 
0004 70 
0004 72 
0004 74 
000500 
000506 
000514 
000520 
000524 
000550 
000532 
000534 
OO0536 
000540 
000542 
000550 



016001 
013700 
010160 
005237 
010403 
052703 
012702 
012701 
001411 
013700 
001404 
005066 
005300 
001374 
005301 
000766 
013700 
016066 
016637 
016600 
042700 
020003 
001404 
104422 
005302 
001343 
000462 
013700 
005060 
005237 
012703 
012701 
001411 
013 700 
001404 
005066 
005300 
001374 
005301 
000766 
013700 
016066 
016637 
016600 
042 700 
02002 7 
001404 
104422 
005303 
001342 
0004 1 3 
012/3/ 
005001 



RD/RX EXERCISER 
INITIALIZATION TEST ROUT INKS 

000004 
OOOOOOG 
000002 
OOOOOOG 



020000 
023420 
000001 

OOOOOOG 

000010 



OOOOOOG 
000002 000004 
000004 OOOOOOG 
000004 
003400 



OOOOOOG 

000002 

OOOOOOG 

023420 

000001 

OOOOOOG 

000010 



OOOOOOG 
00OO02 000006 
000006 OOOOOOG 
000006 



00377/ 
040000 



000001 OQQOOQG 





MOV 




MOV 




MOV 




INC 




MOV 




BIS 




MOV 


13$: 


MOV 


14$: 


BEQ 




MOV 




BEQ 


15$: 


CLR 




DEC 




BNE 


161: 


DEC 




BR 


17$: 


MOV 




MOV 




MOV 




MOV 




BIC 




CMP 




BEQ 




TRAP 




OEC 




BNE 


18$: 


BR 


19$: 


MGV 




CLR 




INC 




MOV 


20$; 


MOV 


21$: 


BEQ 




MOV 




BEQ 


22$: 


CLR 




DEC 




BNE 


23$: 


DEC 




BR 


24 $ : 


MOV 




MOV 




MOV 




MOV 




BIC 




CMP 




BEQ 




TRAP 




DEC 




BNE 




BR 


25*; 


MQV 




cm 



n 


-Apr 


1984 11:08:35 


VAX-11 Bli 


u 


Apr 


•1904 11808:22 


DISK$U5ER2 


4(R0).R1 
RDRX.ADDR, 






t 


♦.RC.REG 


RO 








R1.2CR0) 






i 


RC.REG.* 


STEP 






l 




R4.R3 






i 


IE.VEC* 


020000. R 3 










023420, R2 






l 


♦.COUNT 


01, Rl 






I 


♦ , $$TMP2 


17$ 










L$DLY,RO 






t 


♦, $$TMP1 


16$ 










lO(SP) 






l 


HTMP 


RO 






l 


$$TMPi 


15$ 










Rl 






l 


$$TMP2 


14$ 










RDRX.ADDR, 


RO 




i 




2(R0;>,4(SP) 




i 


♦.RC.REG 


4(SP),5A.REG 




i 


RC.REG.* 


4(5P),R0 






l 


SA.REG,* 


03400, RO 










R0,R3 










19$ 






t 




2? 










R2 






» 


COUNT 


13$ 










26$ 






; 




RDRX.ADDR, 


RO 




• 




2CR0) 










5TEP 






; 




023420. R3 






i 


*.CC JNT 


01, Rl 






t 


*, MTMP2 


24$ 










L$DLY,RQ 






: 


*, $*TMP1 


23$ 










lO(SP) 






J 


MTMP 


RO 






i 


$$TMP1 


22$ 











Rl 

21$ 

RDRX.ADDR.RO 

2CR0),6(SP) 

6(SP).5A.REU 

6( SP),R0 

03///.R0 

RO, 040000 

25$ 

» •» 

l- 4 

R3 

20 i 

26$ 

ol, CREDIT. BAt 

Rl 



j $$TMP2 



I ♦ . RC.REG 
i RC.REG,* 
I SA.REG,* 



I 

I CUUNT 

i 
i 
j RC.REG 



SEQ 0275 
Poqc 44 
C 10) 



2458 

246/ 



2462 
2464 



2465 

2467 

2469 
2462 

2393 

2480 

2484 
2488 
2490 



2491 

2493 

.'495 

2488 

239? 
2505 
250o 



F-: r> 



ZRQAM5 




RD/RX EXERCISER 






11 -Apr-1984 


V01, 6 




INITIALIZATION TEST 


ROUTINES 




11 -Apr -1984 


000552 


013700 


OOOOOOG 






MOV 


RDRX.ADDR.RO 


000556 


005060 


000002 






CLR 


2(R0) 


000562 


012700 


000001 






MOV 


01. RO 


000566 


000425 








BR 


28$ 


000570 


005037 


OOOOOOG 




26$: 


CLR 


CREDIT. BAL 


000574 


013700 


OOOOOOG 






MOV 


CCTLR.RO 


000600 


006300 








ASL 


RO 


000602 


105260 


OOOOOOG 






INCB 


C.ERR.TBL(RO) 


000606 


032737 


000001 


001162* 




BIT 


01, APT. MODE 


000614 


001405 








BEQ 


27$ 


000616 


012777 


000001 


00U64' 




MOV 


Ol.SMAIL.aOX.TLSTNUM 


( 00624 


00507 7 


001166' 






CLR 


8MAIL.B0X.SUBTST 


000630 


104455 






27$; 


TRAP 


55 


00O632 


000015 








.WORD 


15 


000634 


OOOOOOG 








.WORD 


EGO. 13 


00O636 


OOOOOOG 








.WORD 


EMS. 13 


000640 


005000 








CLR 


RO 


000642 


062706 


000012 




28$: 


ADD 


012.SP 


000646 


000207 








RTS 


PC 



11:08:35 VAX-li BUss-16 V4. 0-579 
11:08:22 DISK$USER2: [ POWERS ]ZRQAD0.8L2 j6 



SEQ 02 76 
Page 45 
CIO) 



2393 



2511 
2512 



2514 

2517 

2518 
2521 



2384 
2374 



Routine Size: 212 words. Routine Base! $COOE$ » 3216 
Maximum stack depth per Invocation: 13 words 



Fb 



ZRQAM3 
VOi.6 



2524 
2525 

2526 
2537 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2530 
2539 
2540 
2541 
2542 
254 3 
2544 
2545 
2546 

254 7 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 

255 / S 
2558 1 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 

GLOBAL routine INI. .RRING ; novalu* * 



11 -Apr -1984 Ili08:35 
U-Apr-1904 Hj0<?!22 



V'AX-11 Bliss-16 74. 0-579 
DI5KIUSER2: [POWERS )ZRQAD0,BL2?6 



SEQ 0277 
Pnge 46 

cm 



THIS ROUTINE IS RESPONSIBLE TOR ALLOCATING ENOUGH MSCP PACKETS TO 
FILL AN RDRX RESPONSE RING. THE BUFFER DESCRIPTOR OF EACH PACKET 
(LOCATED IN FRONT OF THE PACKET ITSELF) IS LOADED INTO SUCCESSI7E 
RRING SLOTS. NOTE THAT THE BUFFER DESCRIPTORS HAVE BEEN INITIALIZED 
WITH THE FLAG AND OWNERSHIP BITS SET TO "1", MAKING EACH SLOT 
CONTROLLER ^ OWNED. 

IMPLICIT INPUTS: 

CCTLR - CURRENT CONTROLLER NUMBER 

DCT..ADDR - ADDRESS OF CURRENT CONTROLLER'S OCT 



beg I n 

local 

index ; word, 
RRING.ADDR; 

RRTNG_AODR - .DCT_ADDR [RR.BEGlj 

incr COUNT from 1 to RRING.LEN do 



begin 

\n<*x - GET_PKT ( .CCTLR); 
.RRING.ADDR - .MSCP PKT [.Index, 
RRING ADDR - .RRING ADDR ♦ 2; 
.RRING ADDR « .MSCP PKT [.Index, 
PKT„USE [ . Index] - .CCTLR; 
.RRING ADDR • ..RRING ADDR or 
RRING.ADDR - .RRING.ADDR ♦ 2; 
end; 



PKT ,L01; 
PKT.Hlli 



ED_OWN or ED.FLAG; 



.♦ FIRST RESPONSE RING SLOT 



GET AN MSCP PACKET 

LOAD LO-OHDER BUFF DESC INTO SLOT 

ADVANCE TO SECONO WORD 

LOAD HI -ORDER BUFF OESC INTO SLOT 

PACKET IN USE 

GIVE OWNERSHIP TO CONTRLLER 

ADVANCE TO NEXT SLOT 



end; 



000000 004 1 3 I OOOOOOG 



.SB1TL INI. RRING INITIALIZATION TEST ROUTINES 



000004 
000010 
000014 
000020 
000024 
000026 
000032 
000034 
00OO36 
000042 
0OOO46 
000052 
000056 



013 700 
016001 
013703 
012704 
010346 
004 737 
010002 
010216 
012746 
004737 
016021 
016011 
013703 



OOOOOOG 
000004 
OOOOOOG 
000004 

OOOOOOG 



000106 

OOOOOOG 

OOOOOOG 

000002G 

OOOOOOG 



INI. RRING: : 
JSR 

MOV 
MOV 
MOV 
MOV 
1 J J MOV 
JSR 
MOV 
MOV 
MOV 
J f 3R 
MOV 
MOV 
MOV 



R1.ISAVE4 

DCT.ADDR.RO 

4(R0),R1 

CCTLR, R3 

04, R4 

R3. fSP) 

PCGET.PkT 

R0,R2 

R2.CSP) 

0106, (SP) 

PC,BL$MU 

MSCP.PKT(R0\(R1)» 

MSCP. PKT»2(R0), CRD 

CCTLR, R3 



{ 



*, RRING. ADDR 
•k, COUNT 



; *, INDEX 
; INDEX,* 



I *, RRING. ADDR 
l ♦.RRING.ADDR 

J 



2524 

2545 

2549 
254 * 
2549 



2550 



/552 
2553 



G6 



ZPQAM3 
VOL 6 




RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 




11 -Apr- 
il-Apr- 


1984 
1984 


11: 
11; 


:08: 
t08; 


;35 

s22 


VAX-11 Bliss-1 
DISK$USER2j[P0 


00006,? 
000066 
000072 
000074 
000076 
000100 


11036? 

052721 
022626 
005304 

001352 
000207 


OOOOOOG 
140000 


MOVB 

BIS 

CMP 

DEC 

BNE 

RT5 


R3.PKT.USECR2) 

#140000. (PI )♦ 

(SP)f,CSP)+ 

R4 

15 

PC 










j *,*(INDEX) 
j *,RRING,AODR 

i COUM 

J 


; Rout i ne S ize: 
j Maximum stack 


33 words. Routine Base: 
depth per invocation: 8 words 


$CQDE$ 


♦ 4066 













V4. 0-579 



SEQ 02/8 
Page 4 7 
(11) 



2548 
254 7 



2524 



7RQAM5 




V01,6 




; 2559 


1 


; 2560 


1 


i 2561 


1 


{ 2562 


1 


; 2565 


1 


{ 2564 


1 


; 2565 


1 


; 2566 


1 


; 2567 


1 


; 2568 


1 


; 2569 


1 


2570 




i 2571 


■> 


; 2572 


2 


; 2573 


2 


i 2574 


«_ 


i 2575 


2 


; 25 76 


2 


; 2577 


2 


; 2578 


2 


; 2579 


2 


i 2580 


2 


; 2581 


2 


; 2582 


2 


; 2583 


2 


; 2584 


c 


; 2585 


2 


; 2586 


2 


; 2587 


2 


; 2588 


2 


; 2589 


2 


j 2590 


2 


; 2591 


2 


; 2592 


2 


; 2593 


2 


; 2594 


3 


; 2595 


3 


; 2596 


3 


; 259 7 


3 


; 2598 


3 


; 2599 


4 


; 2600 


4 


; 2601 


4 


2602 


3 


; 2603 


3 


; 2604 


3 


; 2605 


3 


; 2606 


5 


; 260 7 


3 


; 2608 


-i 


{ 2609 


? 


: 2610 


3 


; 2611 


3 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 

GLOBAL routine SET.CTLR.CHAR - 



H6 

ll-Apr-1984 11:08:35 
ll-Apr-19«4 11:08:22 



VAX -11 Bliss 16 V4. 0-579 

DISK 5USER2 : [ POWERS ] ZRQADO . BL2 ; 6 



SEQ 0279 
Page 48 
(12) 



THIS ROUTINE IS CALLED BY CTLR.INIT AFTER THE RDRX HAS BEEN HARD 
INITIALIZED. ITS PURPOSE IS TO FORMAT AND SEND THE "SET CONTROLLER 
CHARACTERISTICS'* COMMAND, ,WD TO VALIDATE THE RESPONSE (END MESSAGE) 

IMPLICIT INPUTS: 

CCTLR • CURRENT CONTROLLER NUMBER 



begin 

local 

P INDEX 



word: 



» MISCELLANEOUS INITIALIZATION 

QIO [. CCTLR] - 0: 
CST [ .CCTLR, U. CNT] - 0; 
INCR COUNT FROM TO (RP.CNT - 
RP„USE [ .COUNT] • l\ 

IODQ_IN » IODCLOUT - 0; 



UNIT NO OF OUTSTANDING QIOS 
.'CLEAR UNITS IN CST TABLE 
1) DO ,'INIT RETURN PACKET POOL 



SINIT I/O DONE QUEUE POINTERS 



Mil 
\1U. 
Mil 
\1Z7 
Mil 
Mil 
\ZZZ 
IZZZ 



P. INDEX ' GET PKT (.CCTLR); 
MSCP^PKT [.P_INOEX, MSGLEN] - 
MSCP.PKT r.P.INUEX, OPCODE] - 
MSCP^PKT [.P_ INDEX, C..FLAGS] 
MSCP^PKT [.P„INDEX, CMD TYPE] 



SZ_SCCi 
OP_SCC 5 
' CF MASK; 
- IMM_CMD; 



PACKET 



if SEND C.P^INDEX) eql FAILURE 
then 

begin 

C_ERR_TBL I. CCTLR. C_ERR„HRD] - 

i f .APT MODE 
then 

begin 

.MAIL ..BOX TESTNUM - 1; 

.MAIL..B0X_SU8TST - Oj 

end; 

ERRDF (20, EGO 20, 0)j 

PUT_PKT ( .P INDEX)i 

DROP.CTLR C. CCTLR, DU.CFATAL); 

return FAILURE; 

end 



! GET AN MS 

! PACKET SIZE 

! OPCODE " SET CU.R CHAR 

I CONTROLLER FLAGS 

* IMMEDIATE COMMAND 

! ATTEMPT SEND 



• IF SEND WAS UNSUCCESSFUL 
.C„ERR_TBL [.CCTLR, C.ERR.HRU) ♦ li 



else 



begin 



! FATAL ERROR 

! RETiJRN PACKET TO POOL 

} DROP CONTROLLER 



! IF SEND WAS SUCCESSFUL 



7RQAM5 




VOL 6 




j 261? 


3 


; 2613 


4 


; 2614 


4 


; 2615 


4 


; 2616 


4 


; 2617 


4 


: 2618 


4 


t 2619 


4 


1 2620 


4 


j 2621 


4 


; 2622 


4 


; 2623 


? 


; 2624 


4 


; 2625 


3 


5 2626 


5 


; 2627 


3 


; 2628 


3 


j 2629 


4 


2630 


4 


; 2631 


4 


; 2632 


4 


; 2633 


4 


5 2634 


4 


j 2635 


3 


; 2636 


4 


; 2637 


4 


; 2638 


4 


; 2o39 


5 


2640 


4 


; 2641 


5 


2642 


5 


; 264 3 


5 


j 2644 


5 


5 2645 


5 


; 2646 


6 


; 264 7 


6 


; 2648 


6 


; 2649 


5 


; 2650 


5 


2651 


5 


; 2652 


5 


; 2653 


5 


; 2654 


5 


; 2655 




; 2656 


4 


; 2657 


5 


; 2658 


5 


{ 2659 


5 


; 2660 


b 


; 2661 


5 


; 2662 


5 


; 266 5 


5 


j 2664 


4 



RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 



do 



16 

ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



SEQ 0280 
VAX-11 B1I3S-16 V4. 0-579 Pooe 49 

DISK *USER2 j [ POWERS ]ZRQADO . BL2 ; 6 C 12 ) 



begin 

WAIT (): 

RP_INDX - OUT.IOOQ ( ); 

RP_ADDR * RETPKT * C.RP.INDX + RP_LEN * 2): 

if .RP ADDR [MESTYP] neq MT SEQ 
then 

PUT.RETPKT ( >RP„INDX)i 

end 
until (,RP ADDR [CONID] eql CID DRIVER) or 
(CRP..ADOR [MEST^P] eql MT SEQ) and 
(C.RP.ADDR [ENDCOD] and 0P..END) eql OP_END))j 

if .RP_ADDR [CONID] eql CIDJ)RIVER 
then 

begin 

PRINTF CDBM23) { 
PUT RETPKT C .RP^INDX)} 
DR_ERR ( ) 5 
return FAILURE? 
end 
else 

begin 

if C.RP_ADDR [ENDC0D1 neq (OP SCC or OP END)) or 
(C.RP^ADDR IC.FLGS] and CF..MASK) neq~CF MASK) 
then 

begi n 

C_ERR_TBL [.CCTLR, C\ERR_HRD] 



! WAIT FOR RETPKT RESPONSE 

J GET INDEX OF RETPKT 

! CALCULATE RETPKT ADDRESS 

I RETURN ALL RETPKTS NOT SENT BY CONTROLLER 



! IF RETPKT IS FROM "DRIVER" 



! "ERROR IN SET CTLR CHAR" 
! RELEASE RETURN PACKET 
! DROP CONTROLLER 



! ELSE - RETPKT IS FROM DISK MSCP 

! IF URONG ENOCODE 
! OR FLAGS IN ERROR 



.C.ERR.TBL [.CCTLR, C_ERR_HRD] • lj 



Ise 



if .APT_MODE 
then 

begi n 

.MAIL_BOX TESTNUM - lj 

.MAIL_BOX„SUBTST - Oj 

end j 

ERRDF (21, EGD.21, EMS. 21); 
DROP CTLR C. CCTLR, DU.CFATAL)} 
PUT.RETPKT ( .RP_INDX) } 
return FAILURF 
end 



t,i tu_ I 1» «l_ - .Hi 



[C .TIME] * 2 j 



FATAL ERROR 
DROP CONTROLLER 
RELEASE RETURN PACKET 



! RETPKT HAS CORRECT ENDCODE 



if BIT.TST (SWP FLAGS, SWF TRC) 
then 

PRXNTF CDBM25, ,RP,ADQR IC.UME])| 

end} 



• RETPKT HAS CURRECT ENDCUDE 



ZRQAM3 
VOL 6 



2665 
2666 
266 7 
2668 
2669 
2670 
2671 
2672 



4 
3 
3 

3 

3 
:> 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 



end; 



PUT RETPKT ( .RP INDX ) ; 

return SUCCESS} 

end; 



J6 

11 -Apr- 1984 11:08:35 
ll-Apr-1984 11:08:22 



end; 



VAX -11 Bltss-16 V4. 0-579 

DISK $USER2 : [ POWERS ] ZRQADO . BL2 1 6 



SEQ 0281 
Page 50 
(12) 



IF RETPKT WAS SENT Br DISK MSCP 



IF SEND WAS SUCCESSFUL 



ROUTINE SET CTLR CHAR 



000000 010146 



000002 
000006 
000012 
000014 
000020 
000024 
000030 
000032 
000040 
000042 
000046 
000050 
000054 
000060 
000062 
000066 
000070 
000072 
000076 
000102 
000110 
000116 
000124 
000130 
000132 
000136 
000140 
000142 
000146 
000150 
000154 
000162 
000164 
000172 
000176 
000200 

00020:? 

000204 
00020** 
000210 



013701 

105061 

010146 

012746 

004737 

105060 

005000 

112760 

005200 

020027 

003771 

005037 

005037 

010116 

004737 

010001 

010116 

012746 

004737 

012760 

112760 

012 760 

105060 

010116 

004 737 

005/00 

001036 

013700 

006300 

105260 

032737 

001405 

012777 

0050 7/ 

104455 

000024 

OOCOOOC 

000000 

010116 

00473 7 



OOOOOOG 
OOOOOOG 

000126 

OOOOOOG 

000005G 

000377 OOOOOOG 

000007 

OOOOOOG 
OOOOOOG 

OOOOOOG 



000106 

OOOOOOG 

000040 000006G 

000004 000022G 

000120 000030G 

000004G 



OOOOOOG 



OOOOOOG 

OOOOOOG 
000001 001162 

000001 001164 
001166' 



OOOOOOG 





.SBTTL 


SET, CTLR. CHAR INITIAI 


SET, 


CTLR .CHAR: : 






MOV 


Rl, -(SP) 




MOV 


CCTLR.R1 




CLRB 


QI0CR1) 




MOV 


Rl.-(SP) 




MOV 


0126, -(SP) 




JSR 


PC.BLJMUL 




CLRB 


CST*5CR0) 




CLR 


RO 


1$: 


MOVB 


0377.RP.USECRO) 




INC 


RO 




CMP 


R0.07 




BLE 


1$ 




CLR 


IODQ.OUT 




CLR 


IOOQ.IN 




MOV 


Rl.CSP) 




JSR 


PC.GET.PKT 




MOV 


R0.R1 




MOV 


Rl.CSP) 




MOV 


0106, -(SP) 




JSR 


PC.BLIMUL 




MOV 


040,MSCP.PKT*6(R0) 




MOVB 


O4.MSCP.PKT»22(R0) 




MOV 


0120,MSCP.PKT*30(RO) 




CLRB 


MSCP.PKT*4(R0) 




MOV 


Rl.CSP) 




JSR 


PC , SEND 




TST 


RO 




BNE 


3* 




MOV 


CCTLR.RO 




ASL 


MO 




INCB 


C.ERR. TBl.CRO) 




BIT 


01, APT. MODE 




BEQ 


2* 




MOV 


Ol.SJMAIL.BOX. If STNUM 




CLR 


aKAIL.BOX.SUBTST 


2$: 


TRAP 


55 




.WORD 


24 




.WORD 


EGD.20 




.WORD 







MOV 


Rl.(SP) 




JSR 


PC.PUT.PKT 



5 COUNT 

; ♦.♦(COUNT) 

; COUNT 

; COUNT,* 



; ♦. P. INDEX 
; P. INDEX, ♦ 



P. INDEX, ♦ 



; P. INDEX.* 



255? 
257-3 

2579 



2580 
2581 
2580 



2583 
2586 

2587 



2588 

25^0 
2592 



2595 



259 ' 

2*00 
2*01 

2604 



2*05 



I<6 



ZRQAM3 

V01 6 

000214 

000200 

000224 

000230 

000232 

000234 

000236 

000242 

000246 

000252 

000254 

000260 

000264 

000270 

000274 

000302 

000304 

000310 

000314 

00031,6 

000322 

000324 

000332 

000334 

000336 

000340 

000346 

000350 

000354 

000356 

000360 

000362 

000366 

000372 

000374 

000376 

0004 02 

000406 

000412 

000414 

000422 

000424 

000430 

0004 34 

000440 

000442 

000446 

000450 

000454 

000462 

000464 

0004 72 

0004 76 



013716 
012746 
004737 
005726 
005000 
000571 
004737 
004 737 
010037 
010016 
012746 
004 737 
062700 
010037 
132760 
001404 
013716 
004737 
005726 
013701 
005000 
126127 
00.1002 
005200 
000407 
132761 
001333 
105761 
100330 
006000 
103015 
012716 
012746 
010600 
104417 
013716 
004737 
004737 
00044 / 
126127 
001007 
016100 
042700 
020027 
001437 
013700 
006300 
105260 
032737 
001405 
012777 
005077 
104455 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 

OOOOOOG 

000006 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

000054 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000360 000002 

OOOOOOG 
OOOOOOG 

OOOOOOG 

000003 000003 

000360 000002 
000014 



OOOOOOG 
0OC0O1 



OOOOOOG 
OOOOOOG 
000000V 

000014 000204 

000022 
177657 
000120 

OOOOOOG 

OOOOOOG 
000001 001162 

000001 001164 
001166' 



3$; 



4*j 



5$: 



6$: 



7$; 



8$j 



9$: 





ll-Apr-1984 11 


08:35 




ll-Apr-1984 11 


08 ; 22 


MOV 


CCTLR.CSP) 




MOV 


#6,-(SP) 




JSR 


PC.DROP.CTLR 




TSI 


(SP)> 




CLR 


RO 




BR 


13$ 




JSR 


PC. WAIT 




JSR 


PC.OUT.IODQ 




MOV 


RO.RP.INDX 




MOV 


RO.CSP) 




MOV 


454, -CSP) 




JSR 


PC.BLJMUL 




ADD 


4RETPKT.R0 




MOV 


RO,RP,ADDR 




BITB 


4360, 2CR0) 




BEQ 


4* 




MOV 


RP.INDX.CSP) 




JSR 


PC.PUT.RF.TPKT 




TST 


CSP)* 




MOV 


RP.AD0R.R1 




CLR 


RO 




CMPB 


3CR1).#3 




BNE 


5i 




INC 


RO 




BR 


6$ 




BITB 


»360,2(R1) 




BNF 


3$ 




TSTB 


14CR1) 




BPL 


3$ 




ROR 


RO 




BCC 


7$ 




MOV 


40BM23.CSP) 




MOV 


01, -CSP) 




MOV 


SP.RO 




IRAP 


17 




MO" 


RP.INDX.(SP) 




JSR 


PC.PUT.RETPKT 




JSR 


PC. DR. ERR 




BR 


10$ 




CMPO 


14(R1),4204 




BNE 


8$ 




MOV 


22(R1),R0 




BIC 


4177657, RO 




CMP 


R0.4120 




BEQ 


in 




MOV 


CCTt.R.RO 




ASL 


RO 




1NCB 


C.ERR.TBUR01 




BIT 


41,APT % M0DE 




BEQ 


9* 




MOV 


Ol.aMAU.BGX. USTNUM 




rt.H 


MMAIL.BOX.SUBTST 




TRAP 


55 





SEQ 0282 
VAX-11 Bllss-16 V4. 0-579 Page 51 

DISK JUSER2 : t POWERS URQADO , BL2 ; 6 C 12 ) 

; 2606 



2594 
2610 

2614 
2615 

2616 



; RP.INDX,* 



SP.» 



2618 

2620 

2613 
2623 



2624 
2625 
262 7 
2630 

2631 

2632 
2^3 3 
26 38 

263* 

2t>42 

2->4-l 
2».4 * 

Jo 51 



6 



ZRQAN5 
VOL 6 

000500 
000502 
000504 
000506 
000512 
000516 
00052-2 
000526 
000552 
000536 
000540 
000546 
000552 
000560 
000562 
000566 
000572 
000576 
000600 
000602 
000604 
000610 
000614 
000620 
000624 
000626 
000630 
000632 



000025 

OOOOOOG 

OOOOOOG 

013716 

012746 

004737 

013^16 

004 737 

062706 

000433 

016137 

006337 

032737 

001411 

016116 

012746 

012746 

010600 

104417 

022626 

013716 

004737 

012700 

062706 

000401 

005000 

012601 

00020 7 



RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 



OOOOOOG 

000006 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000010 



000024 OOOOOOG 

OOOOOOG 

000001 OOOOOOG 

000024 

OOOOOOG 

000002 



OOOOOOG 
OOOOOOG 
000001 
OOOOOfo 



10$ 

11$ 



12$ 



13$ 

14$ 
15$ 



11 -Apr 
11-Apr 

. WORD 25 

.WORD EGO. 21 

.WORD EMS. 21 

MOV CCTLR.(SP) 

MOV 06,-CSP) 

JSR PC.DROP.CTLR 

MOV RP,INDX,(SP) 

JSR PC.PUT.RETPKT 

ADD 010, SP 

BR 14$ 

MOV 24CRD.CMD. TIME 

ASL CMD.TIME 

BIT *1,SWP. FLAGS 

BEQ 12$ 

MOV 24CR1),(SP) 

MOV C0BM25,-(SP) 

MOV 02,-CSP) 

MOV SP.RO 

TRAP 17 

CMP ( SP ) ♦ , ( SP ) ♦ 

MOV RP.INDX.C5P) 

JSR PC,PUT.RETPKT 

MOV CI, RO 

ADD 06, SP 

BR 15$ 

CLR RO 

MOV (SP)f.Rl 

RTS PC 



1984 11;08;35 
1984 ll 5 08i22 



SEQ 0283 
VAX-11 Bliss-16 V4.0 579 p age 5? 

DISK$USER2:[P0WERS]/RQAD0.BL2j6 (12) 



2652 

2653 

2654 
2641 
2658 

2660 
2662 



I SP.+ 



2668 

.2610 
2592 
^570 
2559 



Rout ! ne £ 



b izc 



206 words. 



Routine Base: $CODE$ * 4170 



Maximum stack depth per invocation: 8 words 



Me 



ZRQAM3 




VOL 6 




; 2673 


1 


; 2674 


1 


; 2675 


1 


; 2676 


1 


! 267 7 


1 


; 2678 


1 


; 2679 


1 


; 2680 


1 


; 2681 


1 


; 2682 


1 


} 2683 


1 


i 2684 


1 


5 2685 


1 


; 2686 


1 


2687 


1 


j 2688 


2 


; 2689 


2 


; 2690 


2 


; 2691 


2 


! 2692 


2 


{ 2693 


2 


; 2694 




; 2695 


2 


; 2696 


2 


; 2697 


2 


; 2698 


2 


; 2699 




; 2700 


2 


; 2701 


2 


2 702 


5 


; 2703 


3 


j 2704 


3 


; 2705 


3 


i 2706 


3 


; 2707 


3 


; 2708 


3 


i 2 709 


3 


: 2/10 


2 


2711 


3 


; 2712 


3 


; 2713 


3 


; 2714 


4 


; 2715 


4 


j 2716 


4 


; 271.7 


4 


; 2/18 


4 


; 2719 


4 


; 2 /20 


4 


; 2721 


4 


; 2? 22 


4 


; 2723 


4 


; 2 ??A 


5 


i 2725 


4 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 

routine UNIT.INIT ; novftlue u 



} 



ll-Apr-1984 
ll-Apr-1984 



11:08:35 VAX-11 Bliss-16 V4. 0-579 

1 1 j 08 ; 22 DISK $USER2 ; [ POWERS 1ZRQAD0 , BL2 ; 6 



SEQ 0284 

Page 53 
C13) 



THIS ROUTINE IS CALLED FROM DRIVER INIT FOR EACH CONFIGURED UNIT 
(DISK) WHICH IS ATTACHED TO A CONTROLLER THAT SURVIVED 
INITIALIZATION. ITS PURPOSE IS TO FORMAT AND SEND AN "ONLINE" 
MESSAGE, AND TO VERIFY THE RESPONSE. 

IMPLICIT INPUTS: 

CCTLR - CURRENT CONTROLLER NUMBER 

CDISK - CURRENT DISK ADDRESS (RD/RX DISK NUMBER) 

LSLUN - CURRENT (DRS) UNIT NUMBER 

CST..ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 



beg i n 

local 

MAXO LBNS 
MAXl^LBNS 



WORD UNSIGNED, 

WORD UNSIGNED; 



P^INDEX - GET PKT (.CCTLR); 
MSCP_PKT [.P_INDEX, MSGLEN] - SZ_ONL; 
MSCP^PKT [.P INDEX, DK NUM] « .CDISK; 
MSCP_PKT [.P_INDEX, OPCODE] - OP ONL ; 
MSCP„PKT [.P_INDEX, DDPAR J ■ BITOO; 
MSCP_PKT [.P. INDEX, CMD TYPE] - SEQ CMDs 



if SEND (.P_INDEX) eql FAILURE 
then 

begin 

T_A0OR IERR..HRD_HST] - , 1 _ADDR [ ERRJHRD^HST ] 



! UNIT'S MAXIMUM LO WORD LBN 
I UNIT'S MAXIMUM HI WORD LBN 

! GET AN MSCP PACKET 

! PACKET SIZE 

! SET DISK ADDMt.SS (RD/RX DISK NUMBER) 

• OPCODE FOR "ONLINE" 

! SHOW ALL ECC ERRORS IN ERROR LOG MESSAGES 

I SEQUENTIAL COMMAND 

! ATTEMPT TO SEND; IF CTLR IS OFFLINE 



else 



CST_ADDR [.CUOFF, D FATAL] 
ERRDF (22, EGD 22, 6); 
DUR f .L*LUN] - DU ONLINE; 
DODU ( .LU.UN); 
PUT.PKT ( .P..1NDEX); 
end 



TRUE; 



1; 



be-g i n 
do 



FATAL ERROR 

SETUP REASON TO DROP UNIT 

DROP UNIT 

RETURN PACKET TO POOL 



J OTHERWISE (SEND WAS SUCCESSFUL) 



begin 

WAIT ()s ! WAIT hOR RETPKT RESPONSE 

RP„INDX « OUT^IODQ (); • GET INDEX OF RETPKT 

RP..ADDR « RETPKT * (.RP INDX 4 RP LEN * 2); ! CALCULATE RETPKT ADDRESS 



if .RP ADDR [MESTYP] neq MT SEQ 
then 

PUT. RETPKT ( .RP .INDX); 

end 
until (.RP_ADOR [CONIU] eql CID DRTVER) or 
(CRP.ADDR [MESTYP] eql MT_SEQ) and 



■ RETURN ALL RETPKTS NOT SENT By CONTROLLER 



Nt 



) 



7/RQAM3 




V01. 6 




; 2 726 


3 


; 2/27 


3 


; 2728 


3 


; 2724 


3 


; 2730 


4 


5 2751 


4 


5 2 7 52 


4 


; 2753 


4 


; 2734 


3 


; 2735 


3 


j 2 736 


4 


l 2737 


^ 


; 2738 


4 


; 2 73S 


4 


; 2740 


4 


: 2 741 


4 


2742 


4 


; 2T4 3 


4 


j 2744 


4 


; 2745 


3 


j 2746 


4 


; 2 74 7 


4 


; 2 748 


4 


; 2 744 


4 


; 2750 


4 


; 2731 


4 


; 2752 


5 


; 2753 


5 


i 2754 


5 


; 2 755 


5 


; 2756 


s 


i 2757 


5 


: 2758 


5 


; 2 75S 


4 


j 2760 


5 


; 2761 


5 


; 2 762 


5 


; 2763 


5 


; 2764 


5 


; 2765 


6 


; 2766 


5 


; 2767 


6 


j 2 768 


6 


i 2764 


h 


; 27 70 


b 


; i/n 




; 27 72 


5 


; 2773 


5 


; 2 7 74 


5 


IK LBN* 


LISTED 


j 2775 


5 


i 27 76 


<» 


TO LARGE 


LOR 


; ?.!?! 


6 


: 27 78 


6 


c will error* 



RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 



ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss-16 V4. 0-579 
DISK$USER2: [POWERS ]ZRQAD0.BL2} 6 



SEQ 0285 
Page 54 
C13) 



C(.RP_ADDR [ENDCOD] and OP .END) eql OP_END)) { 

• IF RETPKT IS FROM "DRIVER" 



if .RP ADDR [CONID] eql CIDJ)RIVES 
then 

beg i n 

PRINTF CDBM26)j 

DR_ERR ()j 

end 
else 



! "ERROR IN UNIT INIT" 
! DROP CONTROLLER 



if .RP_ADDR [ENDCOD] neq (OP ONL or OP„END) 

then 

begin 

T^AODR (ERR HRD_DRV] • .T_ADDR [ERR_HRD DRVj 

CST_ADDR [.CUOFF, U_FATAL] = TRUE j 



IF RETPKT IS FROM DISK M5CP 
1: 



else 



ERRDF (23, EGD_23, EMS 21); 
DUR [,LILUN] - DU_ONLINEi 
DODU ( 4 L*LUN)| 



begin 

ST. CODE 
SB. .CODE 



.RP ADDR [STSCOD]; 
.RP.ADDR [SUBCODh 



if .ST CODE neq ST SUC 
then 
be 



» FATAL ERROR 

• SETUP REASON TO DROP UNIT 

» DROP UNIT 



! RETPKT HAS GOOD ENDCODE 
• GET STATUS CODE 
! GET SUB CODE 

! IF STATUS CODE IS NOT SUCCESSFUL 

1; 



else 



j>eoin 

T ADDR [ERR HRD DRV I - . T ADDR [ERR HRD DRV] ♦ 

CST.ADDR [.CUOFF, D_FATAL] - TRUE i 

ERRDF (15, EGD.15, EMS.50)| ! ONLINE FAILED 

DUR [.LiLUNJ - DOWNLINE; ! SET UP REASON FOR DROPPING UNIT 

DODU C.L$LUN); ! DROP UNIT 

end 



begin 

MAXO LBNS 
MAX1 LBNS 



! SUCCESFUL OPERATION 



.RP„ADDR [Sr/EO] 
.RP..ADDR [SIZED 



if ( ,MAXO„LBNS eql 0) 
then 

begin 

MAXO.LBNS * *0' 1777/;' 

MAX1.LBNS * .MAX1„LBNS 

end 
else 

MAXO.L3N5 - .MAXO LBNS 



! LOAD LOWER WORD OE UNIT SIZE 

! LOAD UPPER WORD Of UNIT SIZE 

! THIS SUBTRACTS ONE FROM THE TOTAL 

! BECAUSE EVERYTHING STARTS AT 

• THROUGH (MAXIMUM - 1) 



1? 



ll 



if 



( .CST..ADDR [ .CUOFF ♦ 2, 



D,6EU1] gtru .MAX1 LBNS) or 



(C.CST..ADDR [.CUOFF ♦ 2. D.BEGll eqlu .MAXl.LBNS) and 
C.CST.ADDR I. CUOFF * l ( D.UEGO] gtru C.MAXQ,LBNS * 1))) 



! THIS SECTION CHECKS TO SEE 



» IN SOFTWARE QUESTIONS WERE 

{ UEVIO SPFCUIR) 
! note 1 less then ma\ t or diagnosis 



n / 



/RQAMJ 
VOL b 



N 

; 



.V7S> 

2 7*0 

2 782 

2:85 

2 T 84 

2 785 
2 786 
278' 
2788 
2 78* 
J .'90 
2^*1 

2 :*$ 

2>94 
2 W 
2 .*9b 
279* 
2798 
2 799 
2800 
2801 
2802 
2803 
2804 
2805 
280* 
2807 
2808 

2tiu9 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
281 7 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
<>*<>? 

;»8i'H 

2829 
28 3u 
2631 



5 
6 
b 
b 
5 
5 
5 
5 
5 
b 
b 
5 
b 
b 
h 
5 
5 
5 
5 

; 

6 
b 
b 
b 
6 
5 
b 
b 
b 
b 



b 
5 
b 
b 
»> 
t, 

b 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 



thtn 



CST AOOR I .cuon 
CST. ADDR T , CUOFF 



11 Apr -1984 Ili08j35 
11 Apr -1984 Ut08i22 



2. O.BEGl) - Oi 
1, O.BF.GO} " Oj 



VAX-U Bl>«9 16 V4, 0-579 

DISK IU5ER2 if POWERS URQADO.BLZj 6 



SEQ 028b 
Page 55 
(15) 



f Operator error 

! change beginning ibn to 



if 



C.CST.ADDR [.CUOFF • 4, D.EN01] gtru .MAX1 L.BNS) or 



((.CST. ADDR [.CUOM* » 4, D.tNOl) eqlu .MAxi l.BNS) f*nd 
C.CST.ADDR (.CUOFF . 5, O.ENOO) gtru .MAXO LBNS ) ) 
than 



begin 

CST ADDR I . CUO* y * 4, D EN01 J 
CST.ADDR [, CUOFF . 5, DLENDO] 
«ndi 



.MAXi L.BNS i 
.MAXO^LBNSi 



if (((.ENTRY REASON eql RFSTART) or 
( .FNTRY .REASON eql START)!) and 



( .CRN. LOU l«q 8) and 
( , CRN. HIGH eql 0)) 



THEN 



begin 

BST [ .ni JN, 10 WRD) 
BST ( .L RUN. HIWRO) 
TRK <; GN [ ,i u.UNl - l| 

end j 



! and ending lbn to max. Ibn 



! if restart or 

J if continue 

I and 

! first initialisation 

! intiali^e block numbers 



.CST ADDR [.CUOFF » 1. D BECiO ] i 
.CST.ADDR (.CUOFF » 2, D.BEGlh 



! LOAD sequential LBN tabic 

i 

! POSITIVE TRACKING DIRECUQ 



selectoneu .h"* 1DDR tR MUDEl ) of 
set 



I THIS SECTION LOADS TYPE INTO CST TABLE 
• MOOEL BYTE TELLS WHAT TYPE OF UNIT IN 
! INDENTIFICATION BLOCK 



t#Ob- ) : 

1*0' 7' ] ; 

[*0* 10' ] : 

[ otherwise 



tenj 



CST ADDR [ .CUOF* 
CST ADDR [ ,CUO*r 
CST AODR [ .CUOFF 



TtPE ) • RD c j1, 
TtPE ) ■ RX 50 1 
D TYPE } - RD bi?i 



BtGIN 

ERRD* 125 ,E(iD 24 ,EMS 50 ) | 

END | 



if C(.RP ADDR (U flCiSj and L* WPh ) «ql ur WPH ) and 

(.CST AODR [.CUOFF, ,') PROTl aql UNPROTECTED^ 
then 

btg' n 

T ADDR TEi'R M> U l)fc M • .T ADQR U HR.HRQ 0«V ] * l\ 

CST ADDR T.CUOn , ;i FATAL ] « TRUtj 

tRUQf ( lb. IQV lb EMS 50 )[ 

DUR [ .ULUN) • QU.PRUTECTl 



! RD M 
! Rx 50 
» RD 52 



ERROR UNKNOWN DEVICE- 



STATUS CODE Is O.K. 



! WRIT* PROTECT Ci^cIC 
} SET REASON TO DROP UNIT 



2RQAM3 




VOL 6 




; 2832 


b 


; 2833 


b 


; 2834 


5 


; 2835 


b 


; 2836 


b 


i 283/ 


b 


; 2838 


5 


j 2e?9 


4 


; 2840 


3 


; 2841 


3 


; 2842 


3 


j 254 3 




j 2844 




t 2845 


1 



c/ 



RO/RX EXERCISER 
INITIALIZATION TbST ROUTINES 



ll-Apr-1984 Ut08i35 
ll-Apr-19ti4 Ut08i22 



else 



DODU ( .L$UUN)| 

end 
i 

be 



end j 
end j 

PUT.RETPKT ( .RP^INDX); 
endi 



oeg«n 

CST ADDR (.CUOFF, D.STAT] - ONLINE, 

CST [.CCTI.R, U.CN1) - .CST [.CCTLR. U_CNT1 ♦ It 

endi 



SEQ 028/ 
VAX-ll 81.99-16 V4 4 0-579 Paoe 56 

DISK»USER2irP0UERS]ZRQAD0.BL2i6 (15) 

! DROP UNIT 



WRITE PROTECT SWITCH IS O.K. 

SET ONLINE FLAG 

ADD UNIT TO CTRL TABLE 



end} 



! IF RETPKT HAS CORRECT ENDCODE 

• IF SEND WAS SUCCESSFUL 
! ROUTINE UNIT-INIT 



000000 004137 OOOOOOG 



000OO4 
000006 
0A0012 
0CO016 
0OO022 
000024 
000030 
000034 
000042 
000050 
0000 56 
000064 
000072 
0000 76 
000102 
000104 
000106 
000112 
000116 
000122 

ooou \ 

000130 
000134 
COO 136 
000140 
000142 
000144 

oooro 

000156 
000160 
COO 164 
000170 
000174 
000200 



024646 

013746 

004737 

010037 

01001b 

012746 

004737 

012760 

013760 

112760 

012760 

112760 

013716 

004737 

005700 

001033 

013700 

105260 

013700 

006300 

063700 

052710 

104455 

0OOO26 

OOOOOOG 

OOOOOO 

013700 

U2V60 

104451 

013716 

004 737 

00013 7 

004 737 

004737 



OOOOOOG 
OOOOOCC 
OOOOOOG 

000106 
OOOOOOG 

000044 000OO6G 
OOOOOOG 000016G 
OOOOll 0OO022G 
000001 0O0O46G 
000001 000004G 
OOOOOOG 
OOOOOOG 



OOOOOOG 

0OO051 

OOOOOOG 

OOOOOOG 
010000 



OOOOOOG 

000007 OOOOOOG 

OOOOOOG 
OOOOOOG 

006 5 30' 

OOOOOOG 
OOOOOOG 



.SBTTL 


UNIT.INIT INITIALIZATION TEST 


ROUTINES 


UNIT.IN1T: 








JSR 


R1.ISAVE5 




i 


CMP 


(SP), (SP) 






MOV 


CCTLR.-CSP) 




I 


JSR 


PC.GET.PKT 






MOV 


RO*P. INDEX 






MOV 


RO.(SP) 




i P. INDEX,* 


MOV 


«106, (SP) 






JSR 


PC.BLIMUL 






MOV 


♦44.MSCP.PKT 


»6(R0) 




MOV 


CDISK,MSCP.PKT*lt(RO) 


} 


MOVB 


«U,MSCP.PKT 


♦22CR0) 


i 


MOV 


•1,MSCP.PKT»46(R0) 


j 


MOVB 


C1.MSCP.PKTh 


»(R0) 


I 


MOV 


P.INOfcX.CSP'J 




i 


JSR 


PC, SEND 






TST 


RO 






BNE 


\% 






MOV 


T.ADDR.RO 




i 


INCB 


51CR0) 






MOV 


CUOFF, PO 




i 


ASL 


RO 






ADD 


CST.ADDt\RO 






BIS 


10000 ,(R0) 






TRAP 


55 




j 


.WCRD 


2b 






.WORD 


EGD.22 






.UORD 









MQV 


I i\ UN.RO 




i 


MOVB 


«/,DUR(RO) 






TRAP 


SI 




i 


MOV 


P. INDt X.CSP) 




: 


JSH 


PC.PUT.PKT 






JMP 


24$ 




t 


Us JSR 


HC.wAir 




i 


JSR 


pc.oumoou 




I 



26 ' 3 
2693 

2694 



2695 

2696 
2697 
2698 
2 700 



2 703 

2 "04 

2 '05 

2 W' 

2 70 * 
2 *08 



2 W 



[)/ 



/PUAM5 




RD/RX EXERCISER 


V01. 6 




INITIALIZATION 


000204 


010037 


000000(3 




000210 


010016 






0002 12 


012746 


000054 




000216 


004737 


OOOOOOG 




000222 


062700 


OOOOOOG 




000226 


010037 


OOOOOOG 




000232 


132760 


000 560 


oooooa 


000240 


001404 






000242 


013716 


OOOOOOG 




000246 


004 73 7 


OOOOOOG 




000252 


005726 






000254 


013702 


OOOOOOG 




000260 


005000 






000262 


126227 


000003 


000003 


0O0270 


001002 






000272 


005200 






000274 


000407 






000276 


132762 


000360 


000002 


000304 


001333 






000306 


105762 


000014 




000312 


100330 






000314 


006000 






000316 


103012 






000320 


012716 


OOOOOOG 




000324 


012746 


000001 




0O0330 


010600 






000332 


104417 






000334 


004 73? 


OOOOOOV 




000340 


000137 


006316' 




0O0344 


013705 


OOOOOOG 




000350 


013766 


OOOOOOG 


000006 


000356 


006366 


000006 




000362 


060566 


000006 




000366 


126227 


000014 


000211 


000374 


001422 






0003 76 


013700 


OOOOOOG 




000402 


105260 


000050 




000406 


052776 


010000 


000006 


000414 


104455 






000416 


000027 






000420 


OOOOOOG 






000422 


OOOOOOG 






000424 


013700 


OOOOOOG 




0004 30 


112760 


000007 


OOOOOOG 


0004 36 


104451 






000440 


000445 






000442 


116237 


000016 


OOOOOOG 


000450 


04273 7 


177740 


OOOOOOG 


000456 


C 16200 


0OOC16 




00O462 


006200 






000464 


006200 






000466 


006200 






0004 70 


006200 







TEST RUUTlNtS 



2*: 



3$: 



4$; 



b»: 



6$: 





11 Apr- 1904 11:08:35 


VAX-U Bil» 




11 Apr-1SB4 11:08:22 


DI5KIU5ER2: 


mov 


RO.RP.INDX 




MOV 


RO.(SP) 


l RP.INDX.* 


MOV 


454 , - ( SP ) 




JSR 


PC.BLtMUL 




ADD 


ORETPKT.RO 




NOV 


RO.RP.ADDR 




BITC 


0360, 2CR0) 


i 


BEQ 


2\ 




MOV 


RP.INDX.CSP) 


1 


JSR 


PC.PUT.RETPKT 




TST 


(SP)» 


j 


MOV 


RP.ADDR.R2 


1 


CLR 


RO 




CMP8 


3(R2),03 




BNE 


3$ 




INC 


RO 




BR 


41 




BIT8 


0360. 2CR2) 


t 


BNfc 


\\ 




T5TB 


14(R2) 


i 


BPL 


\% 




ROR 


RO 


I 


BCC 


51 




MOV 


*0BM26,(SP) 


i 


MOV 


•1,-CSP) 




MOV 


SP.RO 


1 SP,» 


TRAP 


17 




JSR 


PC, DR. ERR 


i 


JMP 


2?$ 


i 


MOV 


CSr.ADDR.R5 


I 


MOV 


CU0rF,6CSP) 




ASL 


6(SP) 




ADD 


R5.6CSP) 




CMPB 


14(R2).ff2U 


i 


BEQ 


6t 




MOV 


T.ADDR.RO 


» 


INCB 


50CRO) 




BIS 


<U0OOO,b)6(SP) 


* 


TRAP 


55 


. 


.WORD 


27 




.UOfVO 


EGD.i?3 




.WORD 


EMS. 21 




MOV 


l.ll.UN.RO 


I 


MOVB 


«7,DUR(R0) 




TRAP 


M 


l 


BR 


n 


I 


MOVB 


l6(R2),Sr.C0DE 


l 


BIC 


01 77 740, ST. CODE 




MOV 


16(R2),R0 


I 


ASR 


RO 




ASR 


RO 




ASR 


RO 




ASR 


RO 





3EQ 0288 r 
Page 5/ 

(13) 



2/17 



2719 
2721 



c ' I** 

2724 



2 725 
2 726 
2/28 
2?5l 



27?0 
2 7 40 



2 '36 

i?73 f * 

2 740 
2741 

2742 

2 74? 
^ , 4 , 

*?748 



F. V 



ZRQAM5 




RO/RX EXERCISER 


V01, 6 




INITIALIZATION 


000472 


006200 




0004 74 


042700 


174000 


000500 


010037 


OOOOOOG 


000504 


005737 


OOOOOOG 


000510 


001423 




000512 


013700 


OOOOOOG 


000516 


105260 


000050 


000522 


052776 


010000 000006 


000530 


104455 




000532 


000017 




000534 


OOOOOOG 




000536 


OOOOOOG 




000540 


013700 


OOOOOOG 


000544 


112760 


000007 OOOOOOG 


000552 


104451 




000554 


000137 


006320' 


000560 


016203 


000044 


000564 


016204 


000046 


000570 


005703 




000572 


001004 




000574 


012703 


177777 


000600 


005304 




000602 


000401 




000604 


005303 




000606 


013700 


OOOOOOG 


00O612 


006300 




000614 


060500 




00061o 


011766 


000004 


000622 


060066 


000004 


000626 


027604 


000004 


000632 


101012 




0OO654 


001021 




000636 


013700 


OOOOOOG 


000642 


006300 




0OO644 


060500 




00O646 


010301 




000650 


005301 




000652 


026001 


000002 


000656 


101410 




000660 


005076 


000004 


000664 


013700 


OOOOOOG 


0006 70 


006300 




00067? 


060500 




000674 


005060 


000002 


000 700 


013700 


OOOOOOG 


000704 


006300 




000706 


060500 




000710 


026004 


000010 


000714 


101010 




000/16 


001017 




000720 


013701 


OOOOOOG 


000724 


006301 




000726 


060501 





11 -Apr 1964 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss-16 V4, 0-579 

DISK $USER2 j ( POWERS ] ZRQADO , BL2 } 6 





ASR 


RO 




BIC 


0174000, RO 




hOV 


RO, SB. CODE 




TST 


ST, CODE 




BEQ 


8$ 




MOV 


T.ADDR.RO 




INCH 


50CR0) 




BIS 


010000, SJ6CSP) 




TRAP 


55 




.WORD 


17 




.WORD 


EGD.15 




.WORD 


EMS. 30 




MOV 


L$LUN,RO 




MOVB 


07.DURCR0) 




TRAP 


51 


71: 


JMP 


23$ 


8$: 


MOV 


44(R2),R3 




MOV 


46CR2),R4 




TST 


R3 




BNE 


9$ 




MOV 


♦-1.R3 




DEC 


R4 




BR 


10$ 


9$; 


DEC 


R3 


10$: 


MOV 


CUOFF.RO 




ASL 


RO 




ADD 


R5.R0 




MOV 


(P0.4CSP) 




ADD 


R0.4(SP) 




CMP 


S4(SP),R4 




BHI 


11$ 




BNE 


12$ 




MOV 


CUOFF.RO 




ASL 


RO 




ADD 


R5.R0 




MOV 


R3.R1 




DEC 


Rl 




CMP 


2(R0),Ri 




BLOS 


12$ 


11$: 


CLR 


S4CSP) 




MOV 


CUOFF.RO 




ASL 


RO 




ADD 


R5.R0 




CLR 


2(R0) 


12$: 


MOV 


CUOFF.RO 




ASL 


RO 




ADU 


R5,R0 




CMP 


10(R0),R4 




BHI 


13$ 




BNE 


14$ 




MOV 


CU0FF.R1 




ASL 


Rl 




ADD 


R5.R1 



♦,MAXO,L0NS 

♦.MAX1.LBNS 

MAXO.LBNS 

*, MAXO.LBNS 
MAX1.LBNS 

MAXO.LBNS 



: ♦ .MAXl.L.RNS 



{ MAXO.LBNS,* 



j *,MAXl.LBN& 



SEtt 0289 
Page 58 

(13) 



2 750 
2753 



2754 
2755 



2 757 
2 750 
27f2 
2763 
2 765 

2768 

2 769 
2 7 65 
2772 
2774 



2 7 76 
2 7 77 



2 78 1 

2 782 



278b 



2^89 



FY 



ZRQAM3 
V01, 6 

000730 
000734 
000736 
000742 
000746 
000750 
C00752 
000756 
000764 
000766 
0007 74 
0007 76 
001C04 
001006 
001012 
001014 
001020 
001022 
001024 
001026 
001032 
001034 
001036 
001044 
001052 
001060 
001062 
001066 
001072 
001074 
001100 
001102 
001104 
001110 
001112 
001116 
001120 
001124 
001126 
001132 
001134 
001136 
001142 
001144 
001146 
001150 
001152 
001154 
001162 
001164 
001170 
001172 
Q01174 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 



026103 

101410 

010460 

013700 

006300 

060500 

010360 

123727 

001404 

123727 

001031 

023727 

003025 

005737 

001022 

013704 

010400 

006300 

006300 

013701 

006301 

060501 

016160 

017660 

112764 

005001 

156201 

020127 

001007 

013700 

006300 

060500 

152710 

000421 

020127 

001403 

020127 

001007 

01?. 700 

006300 

060500 

142710 

000404 

104455 

000031 

OOOOCOG 

OOOOOOG 

032762 

001430 

013700 

006300 

060500 

005710 



000006 

000010 
OOOOOOG 



000006 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



000002 
000004 
000001 

000032 
000006 

OOOOOOG 



000020 
000007 
000010 
OOOOOOG 

000020 



020000 
OOOOOOG 



000002 
000001 
000010 



13$ i 



14$: 



15*j 



OOOOOOG 
000002G 
OOOOOOG 



16$; 



000022 



17$; 



18$: 



19$: 



20$: 



U-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



SEQ 029' 
VAX-11 Bliss-16 V4. 0-579 Po^ 59 

DISK$USER2sfP0WERS]ZRQADO.BL2;6 ' (13) 



CMP 


6CRn,R3 


BLOS 


14$ 


MOV 


R4.1OCR0) 


MOV 


CUOFF.RO 


ASL 


RO 


ADD 


R5.R0 


MOV 


R3.6CR0) 


CMPB 


ENTRY. REASON, 02 


BEQ 


15$ 


CMPB 


ENTRY. REASON, tfl 


BNE 


16$ 


CMP 


CRN.LOW,$10 


BGT 


16$ 


TST 


CRN. HIGH 


BNE 


16$ 


MOV 


L$LL*],R4 


MOV 


R4.R0 


ASL 


RO 


ASL 


RO 


MOV 


CU0FF.R1 


ASL 


Rl 


ADO 


R5.R1 


MOV 


2(R1),BST(R0) 


MOV 


S4(SP),BST*2CR0) 


MOVB 


01.TRK.SGNCR4) 


CLR 


Rl 


BISB 


32CR2),R1 


CMP 


R1.06 


BNE 


17$ 


MOV 


CUOFF.RO 


ASL 


PO 


ADD 


R5.R0 


BISB 


</2U,(R0) 


BR 


20* 


CMP 


R1.07 


BEQ 


18$ 


CMP 


Ri.no 


BNE 


19$ 


MOV 


CUOFF.RO 


ASL 


RO 


ADD 


R5.R0 


BICB 


420, (RO) 


BR 


20$ 


TRAP 


55 


.WORD 


31 


.WORD 


EGD . 24 


.WORD 


f-.MS.30 


BIT 


020000 ,22(R2) 


BEQ 


21$ 


MOV 


CUOFF.RO 


ASL 


RO 


ADO 


R5.R0 


TST 


(RO) 



t s.MAXO.LBNS 
; MAX1.LBNS.+ 



i MAXO.LBNS.+ 



2792 
2793 



2798 
2799 
2801 
2802 
2806 



2807 
2808 
2811 

2815 



2811 
2816 

2817 



28 1 1 
2820 



2824 
2825 



G7 



ZRQAM3 
V01. 6 

001176 
0012C0 
001204 
001210 
001216 
001220 
001222 
001224 
001226 
001232 
001240 
001242 
001244 
001252 
001256 
001262 
001266 
0012/2 
001274 
001300 
001304 
001310 



013700 

105260 

052776 

104455 

000020 

OOOOOOG 

OOOOOOG 

013700 

112760 

104451 

000414 

052776 

013716 

012746 

004737 

105260 

005726 

013716 

004 737 

062706 

000207 



RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 



OOOOOOG 

000050 

010000 000006 



OOOOOOG 

000011 OOOOOOG 



020000 000006 

OOOOOOG 

000126 

OOOOOOG 

000005G 



OOOOOOG 
OOOOOOG 
000010 







U-Apr-i984 


11:08:35 


INES 




11 -Apr -1984 


11:08:22 




BPL 


211 






MOV 


T.ADDR.RO 






INCB 


50(30) 






BIS 


V>10000,Q6(SP) 






TRAP 


55 






.WORD 


20 






.WORD 


EGD.16 






.WORD 


EMS. 30 






MOV 


L$lUN,R0 






MOVB 


011.DURCRO) 






TRAP 


51 






BR 


23$ 




21$: 


BIS 


020000, 06 (SP) 






MOV 


CCTLR.(SP) 






MOV 


0126. -CSP) 






JSR 


PC,BL$MUl 






INCB 


CSN5CR0) 




22*: 


TST 


(SP)* 




23$j 


MOV 


RP, INDX.CSP) 






JSR 


PC.PUT.RETPKT 




24$: 


ADD 


010, SP 






RTS 


PC 





VAX-11 Bliss-16 V4. 0-579 

DISK $USER2 : [ POWERS 1ZRQAD0 ♦ BL2 } 6 



SEQ 0291 
Page 60 
C13) 



2828 



2829 
2830 



2831 

28 32 
2824 
28 36 
2837 



2835 

2842 

2673 i 



Routine Size: 35? words ♦ 



Routine Base: $CODE$ * 5024 



Maximum stack depth per invocation: 13 words 



ZRQAM5 
VOL 6 



2846 
284 7 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 



RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 

GLOBAL routine OR_ERR i novalue - 



H/ 

11 -Apr- 1964 11:08:35 
11 -Apr- 1984 11:08:22 



VAX-11 Bllss-16 V4. 0-579 

DISK $USER2 s [ POWERS } ZRQADO . BL2 j 6 



3F.Q 0292 
Page 61 
C14) 



THIS ROUTINE IS DESIGNEO TO PROCESS RETURN PACKETS THAT ORIGINATE AT 
THE "DRIVER" RATHER THAN THE DEVICE. DRIVER -ORIGINATED PACKETS INDICATE 
EITHER A FATAL DEVICE ERROR OR A COMMAND TIMEOUT. SINCE THIS ROUTINE IS 
ONLY CALLED DURING THE INITIALIZATION TEST, IT TREATS A COMMAND TIMEOUT 
AS AN INITIALIZATION ERROR. 



IMPLICIT INPUTS: 

RP.ADDR - ADDRESS OF A RETPKT THAT ORIGINATED AT THE 
(I.E., CONNECTION ID « CID DRIVER) 



"DRIVER 



begin 

local 

REASON : word Initial (DU.TIMfe)i 

if .RP.ADDR [MESTYP] eql MT„FATAL 
then 

DROP.CTLR C.CCTLR, .REASON) ; 
end? 



! ASSUME COMMAND TIMEOUT 
! IF FATAL DEVICE ERROR 

! DROP ALL UNITS ON CONTROLLER 



000000 
000002 
000006 
000012 
000016 
000022 
000026 
000030 
000034 
000036 
000042 
000044 
000046 



010146 
012701 
013700 
116000 
042700 
02002 7 
001006 
013746 
010146 
004 737 
022626 
012601 
000207 



.SBTTL DR. ERR INITIALIZATION TEST ROUTINES 



000012 

OOOOOOG 

000002 

177417 

000060 

OOOOOOG 

OOOOOOG 



DR. ERR: 


:MOV 


Rl. CSP) 




MOV 


012. Rl 




MOV 


RP.ADDR, RO 




MOVB 


2(R0) $ R0 




BIC 


$177417, RO 




CMP 


R0,*60 




BNE 


U 




MOV 


CCTLR, CSP) 




MOV 


Ri, CSP) 




JSR 


PC.DROP.CTl R 




CMP 


(SP)»,(SP)* 


1$: 


MOV 


CSP)>,R1 




RTS 


PC 



i ♦, REASON 



; REASON,* 



2846 
2860 
2865 



2868 



2846 



; Routine Sl*e: 20 words, Routine Base: $CODE$ « 6336 
; Maximum stack depth per Invocation: 4 words 



ZRQAM3 
V01. 6 



2870 

28 ; 1 

28 7? 
2873 
2874 
2875 
2876 
28 77 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
288 7 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
290/ 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 

2920 
29 t '1 
2922 



1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 

3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
4 
3 
4 
4 
4 
5 
5 
3 

5 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 

routine ACCESS ; novalue ■ 



1 7 

11 Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX -11 Bliss-16 V4. 0-579 
DISK$USER2:L POWERS ]ZRQAD0.8L2}6 



SEQ 0293 

Pa$e 62 
(15) 



THIS ROUTINE IS CALLED BY INIT_TEST TO VERIFY THAT THE CURRENT DISK 
CAN BE ACCESSED. THIS OBJECTIVE IS ACCOMPLISHED BY FORMATTING AND 
SENDING ONE OR TWO MSCP ACCESS COMMANDS TO THE DISK, AND CHECKING 
THE STATUS FIELD OF THE RESPONSE MESSAGE(S)> 

IMPLICIT INPUTS: 

CCTLR - CURRENT CONTROLLER NUMBER 

CDISK - CURRENT DISK ADDRESS (RD/RX DISK NUMBER) 

LSLUN - CURRENT (DRS) UNIT NUMBER 



begin 
local 



RESULT : word initial (FAILURE), 

LBN : word, 

PASS : word initial (l)j 



! GUILTY UNTIL PROVEN INNOCENT 
J LOOP PASS COUNT 



ST. .CODE - SB CODE - Oj » STATUS CODE AND SUB -CODE 

LBN * CU.MAX,LBN [.LILUN] ♦ 1) t -1) and *©' 77777' ) - lj 

• START WITH LAST LBN ON TOP SURFACE: [CX*l)/2] -1 



do 



begin 

P.INOEX - GET PKT (,CCTLR)j 
MSCP..PKT f.P INOEX, DK_NUM] - .CDISKj 
MSCP_PKT [.P.INOEX. OPCODE] - OP ACCt 
MSCP„PKr [.P INOEX, BC LU] » 512j 
MSCP_PKT L.P^INOEX. LBN L] - .LBNj 
MSCP PKT [ 4 P INDEX, CMD TYPE] 



■ LOOP STARTS HERE 

! GET AN MSCP PACKET 

! SET DISK ADDR (RD/RX DISK NUMBER) 

! ACCESS OPCODE 

• BYTE COUNT ( 1 BLOCK) 

! LOGICAL BLOCK NUMBER 



If SEND (.P_ INDEX) eql FAILURE 
then 

begin 

PUT.PKT C .P_INUEX)j 



else 



PASS 

end 

> 

begin 
do 



2; 



NON..SEQ.CMD} * NON SEQUENTIAL COMMAND 

! ATTEMPT TO SENDj IF CTLR NOT ONLINE 



! RETURN PACKET TO POOL 
J NO MORE TRIES 



begin 
WAIT C ) 
RP INOX 
RP ADDR 



OUT IODQ ( ); 

RETPKT ♦ C.RP.INDX * RP..LEN * 2)j 



! IF SEND WAS SUCCESSFUL 



! WAIT ^OR RESPONSE 

! GET RETPKT (RESPONSE INDEX 



! CALCULATE RETPKT ADDRESS 



if .RP ADDR [MESTrPl neq MT .btU 1 RETURN ALL RtTPKIS NOT SENT U. CONTROLLER 
then 

PUT .RETPKT ( .RP_INDX)j 



J/ 



ZRQAM5 




V01.6 




5 P^J 


5 


; JW4 


4 


; .?9^ 


5 


; ^2t> 


4 


; 2*27 


4 


i ?.9?& 


4 


; 2929 


4 


; 2950 


4 


i 2931 


4 


; 293c' 


4 


2933 


5 


; 2934 


4 


; 293 r > 


5 


; 2936 


5 


; 293 7 


5 


; 2938 


5 


j 2939 


4 


; 2940 


5 


; 2941 


5 


; 2942 


5 


: 294 3 


5 


; 2944 


5 


; 2945 


5 


; 2946 


6 


; 294 7 


6 


; 2948 


6 


; 2949 


5 


; 2950 


-J 


; 2951 


4 


; 2952 


4 


; 2953 


4 


; 2954 


3 


; 2955 


3 


; 2956 


3 


j 2957 


3 


; 2958 


3 


; 2959 




i 2960 


2 


; 296 1 


2 


; 2962 


2 


; 2963 


3 


; 2964 


3 


; 2965 


3 


; 2966 


3 


; 296 / 


3 


: 2968 


3 


; 2' 96 9 


-;> 


; 29/0 


? 


j 2971 


1 



RO/RX EXERCISER 
INITIALIZATION TEST ROUTINES 

end 



U -Apr-1984 11:08:35 
ll-Apr-19«4 11:08:22 



VAX U Bl iss- 16 V4.0 -579 

DISK 5USER2 J [ POWERS ] ZRQADO . BL2 S 6 



SEQ 0294 
Page 



63 
f 15) 



until C.RP ADDR [CONIO] eql CID DRIVER) or 
(C.RP.ADDR [MESTYP] eql MTLSF.Q) and 
(C.RP. ADDR (ENDC0D1 and OP END) eql OP END)); 



If .RP.ADDR rCONID] eql CID.DRIVER 
then 

PASS ■ 2 
else 



! IP RETPKT CAME FROM "DRIVER" 
! NO MORE TRIES 



\Z1Z 



if ,RP_ADDR [ENDCOD] neq (OP.ACC or OP_END) 
then 

begin 

PRINTF (DBM29); J "RETPKT HAS BAD ENDCODE " 

EMSCMD C ); 

else 

begin • RETPKT HAS CORRECT ENOCODE 

ST_CODE * .RP ADDR [STSCOD];! GET STATUS CODE FROM PACKET 

SB CODE - .RP.ADDR [SUBCODli! GET SUBCODE FRUM PACKET 



If .ST. CODE eql ST..SUC 
then 

b«gin 

RESULT - SUCCESS} 



PASS 



2; 



ends 



PUT^RETPKT ( .RP..INDX)j 
end; 



LBN 
PASS 
end 
unt J 1 .PASS gequ 3; 



.LBN ♦ 1; 
.PASS ♦ 1{ 



! IF STATUS CODE INDICATES SUCCESS 

J NO NEED TO TR> AGAIN 

! IF RETPKT HAS CORRFCT ENDCODE 

! XV SEND WAS SUCCESSFUl 

! ADVANCE TO MRST LBN OF BOTTOM SURFACE 

» SECOND PASS 

! END OF PASS LOOP 



if .RESULT eql FAILURE 

then 

begin 

T..ADDR [ERR HRD DRV] -■ . T ADDR [ERR HRU DRV] ♦ 1; 

CST ADDR r.CUOFF, D FAi'Al ) * TRUE i ! FAIAl ERROR 

ERRDF (1/, EGD 17, EMS W)| ! ACCESS BAILED 

DUR [.LILUN] - DU_ACCESSj ! SET REASON TO DROP UNTT 

DODU UL$LUN)j ! DROP UNIT 

ends ! IF ACCESS FAILED 



end; 



! ROUTINE ACCESS 



OQOOOO 004 157 OOOOOOG 



. SRITL ACCESS INITIALIZATION 
ACCESS: JSR Rl,tSAV£4 



TEST ROUTINES 



2 s 7o 



!</ 



ZRQAM3 
VOL 6 

000004 
000006 
000012 
00001ft 
00002? 
000026 
000030 
000054 
000036 

coc ;4o 

00004? 
000\>46 
000050 
000054 
000060 
000064 
000066 
000072 
000076 
000104 
000112 
000120 
000124 
000132 
000136 
000142 
000144 
00014v> 
000152 
000156 
00016? 
000164 
000170 
000174 
000200 
00020? 
000206 
000212 
000216 
000222 
000230 
000232 
000236 
00024? 
000244 
000250 
000252 
000260 
000262 
000264 
000266 
0002 /4 
000276 



005003 
012702 
005037 
005037 
013700 
006300 
016000 
060200 
0C6200 
010004 
04 2 704 
005304 
013746 
004 737 
01003 7 
010016 
012746 
004 73 7 
013760 
112760 
012760 
010460 
112760 
013716 
004 737 
005700 
001007 
013716 
004 73 7 
012702 
000522 
004 737 
004 737 
010037 
010016 
012746 
004 73 7 
062 700 
01003/ 
132760 
001404 
013716 
004 73 7 
00572b 
013701 
005000 
126127 
001002 
005200 
00040/ 
132 761 
001333 
105761 



RD/RX EXERCISER 
INITIALIZATION TEST ROUTINES 



000001 
OOOOOOG 
OOOOOOG 
OOOOOOG 



000054 



100000 

OOOOOOG 
OOOOOOG 
OOOOOOG 

000106 

OOOOOOG 

OOOOOOG 0000 16G 

000020 000022G 

OOIOOO 000026G 

000046G 

000002 000004G 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 
000002 

OOOOOOG 
OOOOOOG 
OOOOOOG 

000054 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000360 000002 

OOOOOOG 
OOOOOOG 

OOOOOOG 

000003 000003 



000 360 000002 
000014 



1$ 



3$ 



ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



SEQ 0295 
VAX 11 Bliss-16 V4. 0-579 Page 64 

DISK$'JSER2:[P0WERS]ZRQAD0.BL2j6 (15) 



4* 



CLR 


R3 


MOV 


• 1.R2 


CLR 


SB. CODE. 


CLR 


ST, CODE 


MOV 


L$LUN,R0 


ASL 


RO 


MOV 


MAX.LBN(R0),R0 


ADD 


R2.R0 


ASR 


RO 


MOV 


R0.R4 


BIC 


0100000, R4 


DEC 


R4 


MOV 


CCTLR, -(SP) 


JSR 


PC.GET.PKT 


MOV 


RO, P. INDEX 


MOV 


RO.CSP) 


MOV 


0106. -(SP) 


JSR 


PC,BL$MUL 


MOV 


CDISK.MSCP.PKT*16(R0) 


MOVB 


020,MSCP.PKT>22(R0) 


MOV 


01000, MSCP.PKT*26(R0) 


MOV 


R4,MSCP.PKT*46(R0) 


MOVB 


02,MSCP.PKT*4(RQ) 


MOV 


P. INDEX, (SP) 


JSR 


PC. SEND 


TST 


RO 


BNE 


2$ 


MOV 


P. INDEX, (SP) 


JSR 


PC.PUT.PKT 


MOV 


02, R? 


BR 


9i 


JSR 


PC, WAIT 


JSR 


PC.OUT.IODQ 


MOV 


RO,RP. INDX 


MOV 


RO.(SP) 


MOV 


054, (SP) 


JSR 


PC.BLIMUL 


ADD 


ORETPKT.RO 


MOV 


RO.RP.ADDR 


BITB 


0360.2CR0) 


BEQ 


3$ 


MOV 


RP. INDX.(SP) 


JSR 


PC.PUT.RfTPKT 


TST 


( SP ) ♦ 


MOV 


RP.ADDR.R1 


CLR 


RO 


CMPH 


5(R1),03 


OW- 


4i 


ING 


RO 


RR 


5$ 


BITB 


0360,2(W1) 


BNt 


2 J 


TSTB 


14^R1) 



RESULT 
♦.PASS 



*,l.BN 

♦ .LBN 
LBN 



} P. INDEX,* 



LBN,* 



i *.PASS 



: RP.1N0X,* 



2884 
2891 

2892 



289' 



2898 



2899 
2900 
2901 
2 C >02 
2904 



2907 

2908 

2904 
2915 
2916 

2917 



2 C >! C * 

29? 1 

2^14 
2924 



-'92b 



\. . 7 



ZRQAM3 
V01. 6 

00030? 
000304 
000306 
000310 
000316 
000320 
000324 
000330 
000332 
000334 
000336 
000340 
000346 
000354 
000360 
000362 
000364 
000366 
000370 
000372 
000376 
000402 
000406 
000410 
OOOhU 
000420 
000424 
000430 
0004 32 
0004 34 
0004 36 
000442 
000444 
000446 
000450 
000454 
000460 
000464 
000466 
0004 72 
0004 76 
000500 
000502 
000504 
000506 
000512 
000520 
000522 



RO/RX EXERCISER 

INITIALIZATION TEST ROUTINES 



100330 

006000 

103442 

126127 

001410 

012716 

012746 

010600 

104417 

005 726 

000430 

116137 

042737 

016100 

006200 

006200 

006200 

006200 

006200 

042700 

010037 

005737 

001004 

012703 

012702 

013716 

004 73 7 

005204 

005202 

022626 

020227 

103602 

005703 

001025 

013700 

105260 

013700 

006300 

063 700 

052710 

104455 

000021 

OOOOOOG 

OOOOOOG 

013700 

112 760 

10*451 

00020 7 



5$ 



000014 000220 

OOOOOOG 
000001 



000016 OOOOOOG 
177 740 OOOOOOG 
000016 



65 



174000 

OOOOOOG 

OOOOOOG 

000001 
000002 
OOOOOOG 
OOOOOOG 



000003 



OOOOOOG 

000050 

OOOOOOG 

OOOOOOG 
010000 



7$ 
8$ 

9$ 



OOOOOOG 

000010 OOOOOOG 



10$ 





11 Apr-1984 11:08:35 




U-Apr-19B4 11:08:22 


BPL 


2$ 


ROR 


RO 


BLO 


7$ 


cmpc 


14(R1),»220 


BfcQ 


6$ 


MOV 


#DBM29,CSP) 


MOV 


#1. -CSP) 


MOV 


SP.RO 


TRAP 


17 


TST 


CSP)* 


BR 


85 


MOVB 


16CRD.ST.C00E 


BIC 


#177740, ST. CODE 


MOV 


16CRD.R0 


ASR 


RO 


ASR 


RO 


ASR 


RO 


ASR 


RO 


ASR 


RO 


BIC 


# 1740OO.R0 


MOV 


RO. SB. CODE 


TST 


ST. CODE 


BNE 


8$ 


MOV 


#1,R3 


MOV 


#2,R2 


MOV 


RP.INDX.(SP) 


JSR 


PC.PUT.RETPKT 


INC 


R4 


INC 


R2 


CMP 


CSP)*,(SP)> 


CMP 


R2,#3 


BLO 


1$ 


TST 


R3 


BNE 


10$ 


MOV 


T.AODR.RO 


INCB 


5OCR0) 


MOV 


CUOFT.RO 


ASL 


RO 


ADD 


csr .addr.ro 


BIS 


#10000. CRO) 


TRAP 


55 


.WORD 


21 


.WORD 


EGD.l / 


.WORD 


EMS. 30 


MOV 


I $l UN.RO 


MOVB 


tflO.UURCRO) 


TRAP 


51 


RT5 


PC 



SEQ 0296 
VAX-11 BIIqs-16 V4.0-579 Page 65 

DISK*USER2:[P0WERS]ZRQAD0.BL2j6 (15) 



2928 
2930 
2933 



i SP,^ 



; *, RESULT 
j *,PASS 



j 1.3N 
: PASS 

! PASS,* 

: RESULT 



2936 



2935 
2933 
2941 

2942 



2944 

294 7 
2948 
2953 

2956 

295 7 
2896 
2959 

2961 

2964 

2965 



2966 



?9**i 7 

2968 
2570 



Rout : ne 

Maximum 



stack 



WO words, Routine Base: $CODE$ f 6406 
depth per invocation: 10 words 



ZRQAM3 
V01. 6 



297? 

2973 
2974 
2975 
2976 
297 7 
2978 
2979 
2980 
2981 
2982 
298? 
2984 
2985 
2986 
2987 
298H 
298^ 
2990 
2991 
299? 
2993 
2994 
2995 
2996 
299 7 
2998 
2999 
3000 
3001 
300? 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
301? 
3013 
3014 
3015 
3016 
3017 
3018 
3019 

3020 
3021 
30?? 
30? 5 
3024 



2 
2 
? 
2 



3 
3 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
4 



4 
4 
4 



N7 

11 -Apr -1984 U;08:35 
ll-Apr-1984 11:08:22 



RD/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 

Ksbttl 'MULTI-DRIVE IF.ST ROUTINES' 

GLOBAL routine MULTI. DRIVE : revalue « 



THIS SUBTEST IS THE MOST SIGNIFICANT PART OF THE ENTIRE PROGRAM. THE 
MULTI-DRIVE TEST IS A HOST -CONTROLLED EXERCISER DESIGNED TU GIVE THE 
USER AN INDICATION OF HOW ONE OR SEVERAL RDRX DRIVES WOULD PERFORM IN 
AN OPERATING SYSTEM ENVIRONMENT. 

THIS ROUTINE ACTS AS AN "EXECUTIVE" TO THE WHOLE PROCESS. AFTER 
INVOKING MD_iwM TO INITIALIZE MULTI-DRIVE TEST DATA, THIS ROUTINE 
ENTERS A LOOP «... !T.;h ISSUES QIOs TO ALL ACTIVE CONTROLLERS AND PROCESSES 
ANY RESPONSES. IN ADDITION, ALL OUTSTANDING COMMANDS ARE TIMED IN 
DRV.TIMCHK WHICH IS INVOKED EVERY SECOND, NORMAL TERMINATION OF THIS 
LOOP OCCURS WHEN QIOs ARE NO LONGER BEING ISSUED, AND ALL OUTSTANDING 
QIOS HAVE COMPLETED. 

begin 

local 

CUR.PRIORITY : word} 

label 

SEND^COMMANDS; 



VAX-11 Bliss-16 V4. 0-579 

DISK $USER2 : [ POWERS ] ZRQADO . BL2 j 6 



SEQ 0297 
Page 66 
(16) 



MO INIT ( ); 

INIT^OCCURED 

do beg ! n 



TRUE: 



INIT MULTI-DRIVE TEST DATA 



incr CTLR from to (MAX„CTLR - 1 ) do 
begin 

S£T_CPAR C .CTLR); 
GETPRI (CUR PRIORITY); 
SETPRI (PRI04): 
IHTLR - .CCTLRj 
ICST_ADDR - .CST ADDR; 
IDCT ADOR - .DCT_ADDRi 
IRDHX ADDR - . ICST„ADDR [IP ADDR ] j 
IDCT_ADDR [SA_SAVE] - . IRDRX ADDR [RCSA, RC.AlLh 

if BIT_TST (IDCT_ADDR [SA_SAVE], SA„ERR) 
then 

begi n 

FATAL ERROR ( ); 

SETPRI ( .CUR ..PRIORITY )i 

e>» t tloop: 

end 
elue 

StTPRI C.CUR.PRIORITY)j 



! ->TART OF EXECUTIVE LOOP 
' FOR EACH CONTROLLER 

SET UP CURRENT CONTROLLER PARAMETERS 



NO INTERRUPTS WHEN EXAMINING 
FAKE INTERRUPTING CONTROLLER' 
FAKE INTERRUPTING CONTROLLER' 
FAKE INTERRUPTING CONTROLLER* 
FmKE INTERRUPTING CONTROLLER' 
CONTENTS OF THE SA REGISTER 

IF SA SHOWS AN ERROR 



! DECLARE FATAL ERROR 
J LOWER PRIORITY 
! QUIT 



! IF NO ERROR, CONTINUE 



SA 

S NUMBER 
S CST ADDR 
S DCT ADDR 
S ADDRESS 



N/ 



ZRQAM5 




VOL 6 




; 5025 


4 


; 3026 


4 


; 5027 


4 


; 3028 


5 


{ 5029 


5 


; 3030 


5 


5031 


5 


; 3032 


6 


; 3033 


5 


j 3054 


5 


; 3035. 


5 


; 3056 


5 


; 5037 


5 


; 5058 


5 


; 5059 


6 


; 3040 


6 


; 3041 


6 


; 3042 


5 


; 5045 


5 


; 5044 


5 


; 3045 


6 


; 5046 


5 


; 504 7 


6 


; 5048 


6 


; 5049 


6 


; 5050 


6 


i 3051 


6 


i 3052 


6 


; 3053 


6 


; 3054 


6 


; 3055 


6 


; 5056 


6 


; 5057 


7 


; 5058 


7 


; 3059 


7 


; 3060 


/ 


j 3061 


b 


; 5062 


5 


; 5063 


5 


; 5064 


4 


; 5065 


5 


; 5066 


3 


; 306 7 


5 


; 5066 


3 


; 5069 


5 


; 50/0 


5 


; 5071 


3 


j 30/2 


4 


; 5073 


2 


; 30 74 


•~> 


; 50 75 




; 30/6 




: 307 7 


1 



RO/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 

if QIO_OK ( ) 
then 

SEND.COMMANDSj 
begin 
QIO. GEN ()t 



11 -Apr -1984 11: 08; 35 
ll-Apr-1984 ll!08i22 



end} 



if C .MX1 geq 0) and 

(not .EOP„FLAG) 
then 

if SEND C.Mxn eql SUCCESS 
then 

QIO f .CTLR] ■ .QIO [.CTLR] ♦ I 
else 

begin 

PUT PKT ( .MXt)} 

leave SEND. COMMANDS 5 

end i 

if ( .MX2 geq 0) and 

Cnot .EQP^FLAG) 
then 

begin 

do 

BREAK 
until (.DCT„AOOR [CRING„CNT] lssu CRINn„LEN)} 

If SEND C.MX2) eql SUCCESS 
then 

QIO I .CTLR] - ,QIO [ .CTLR] ♦ 1 
else 

begin 

PRINTF (0BM121, .CRN HIGH, .CRN tOW)} 

COMPARE .DATA - FALSE j 

PUTJ>KT ( .MX2)j 

end; 
end} 

endj 



BREAK; 
PROC..RETPKT C 1 { 

end 
until ((not QIO OUT ( )) or 

((.0CT..A0DR rCRING.CNT] <ql 0) and 
( .E0P„FLAG)))} 

DCT..ADDR CIG_INT] - TRUE} 

end} 



SEQ 0298 
VAX -11 Bliss-16 V4. 0-579 Page 67 

DISK SUSER2 : [ POWERS ] ZRQADO . BL.2 { 6 ( 16 ) 

! IF O.K. TO ISSUE QIO(S) TO CONTROLLER 



! GENERATE 1 OR 2 QIOs 
! IF SUCCESS ON FIRST QIO 

! ATTEMPT TO SEND IT. IF SUCCESS 
! INCR OUTSTANDING QIO COUNT 

! RETURN PACKET TO POOL 

• IF SUCCESS ON SECOND QIO 



! WAIT TILL 1 MORE SLOT AVAILABI E IN CRING 

» ATTEMPT TO SEND IT. 

! IF SUCCESS, INCR OUTSTANDING QIO COUNT 



\ NO SENSE IN COMPARING WRITE DATA 
{ RETURN PACKET TO POOL 



! O.K. TO ISSUE Qiom 
I CONTROLLER LOOP 

! LET SUPERVISOR CATCH USER REQUESTS 
! PROCESS ANi RETURN PACKETS 

! EXECUTIVE PROCESSING LOOP 



! NO FURTHER INTERRUPTS ON THIS CONTRUl t.ER 
\ EXERCISER 



Btt 



/RQA*3 
V01.6 



OOOOOO 00415/ 



000004 
000006 
000010 

00O020 

000022 

000024 
000030 
000032 
000034 
000040 
00OO42 
000050 
000056 
000064 
00007? 
0O0076 
000102 
000 110 
000116 
000122 
000126 
000132 
000134 
000140 
000142 
000144 
000146 
000150 
0001V 
000154 
000160 
000162 
000164 
000170 

0001 74 
000176 
O0C204 
000206 
000210 
000214 
000220 
000222 
000226 
000230 

0002 34 
000240 
0O0»'4 2 
0002*6 



005746 

004 75 7 
11273/ 
005001 
010146 
004737 

104440 
010003 
012700 
104441 
013757 
015757 
015757 
017757 
015700 
015702 
016266 
016660 
016600 
042700 
020027 
001006 
004757 
010500 
104441 

005 726 
000511 
010300 
104441 
004 737 

006 OOO 
103077 
004 7 3 7 
015700 
002422 
132737 
001016 
010016 
004 7 3 7 
02002 7 
001003 
105261 
000405 
013716 
004 737 

0004 50 

005 7 5 ? 
002445 



RD-RX LXE-RCISI'R 






11 Apr 1 ^84 1 


MULTI -DRIVE TEST 


ROUTINES 




ll-Apr-1984 1 








.SBTFL 


MULTl.ORIVfc MULTI-ORI 


OOOOOOG 




MULTI 


.ORIVFj \ 
JSR 

TST 


R1.ISAVE3 
(SP) 


oooooov 






J p .R 


PC.MD.INIT 


000001 


OOOOOOG 




MOVB 


♦l.INIT.QCCURED 






1$: 


CLR 


Rl 






2$: 


MOV 


Rl. (SP) 


OOOOOOG 






JSR 

TRAP 

MOV 


PC.SET.CPAR 

40 
R0.R3 


000200 






MOV 
TRAP 


0200, RO 
41 


OOOOOOG 


000104 ■ 




MOV 


CCTLR.ICTLR 


OOOOOOG 


0000 76* 




MOV 


CST.ADDR.ICST.ADOR 


OOOOOOG 


000100' 




MOV 


DCT.AODR.IDCT.ADDR 


0OO076' 


OOOOOOG 




MOV 


UICST . ADOR . IRDRX . AODR 


000100* 






MOV 


ioct.aodr.ro 


OOOOOOG 






MOV 


IRDRX. ADOR, R2 


000002 


000002 




MOV 


2(R2),2(SP) 


000002 


000002 




MOV 


2CSP),2(R0) 


000002 






MOV 


2(SP),R0 


077777 






BIC 


077777.RO 


100000 






CMP 
BNE 


RO, 0-100000 
3t 


oooooov 






JSR 

MOV 
TRAP 
TST 
BR 


PC, FATAL. ERROR 

R3.R0 

41 

( SP ) . 

91 






31: 


MOV 
TRAP 


R3.R0 
41 


oooooov 






JSR 
ROR 
BCC 


PC, QIO. OK 

RO 

81 


oooooov 






JSR 


PC.OIO.liEN 


000106' 






MOV 
BL T 


MX1.R0 
51 


000001 


OOOOOOG 




BITB 
UNt 

MOV 


•l.EOP.EL AG 

RO , C SP ) 


OOOOOOG 






JSR 


PC.MND 


0O0O01 






CMP 
BNt 


HO, 1 
41 


0000006 






I NCR 
BR 


UlO^Pl 1 
5$ 


000106' 




41 : 


MOV 


MX1 .( '.,P^ 


OOOOOOG 






.iSR 
BR 


PC,PUT,PKT 
81 


000110* 




blr 


T",T 
ULT 





llt08|3S 

11*08-22 



VAX-11 Bliss 16 V4.0 579 

DISK IU5ER2 1 [ POWERS 3 /RQADO , BL* , 6 



StQ 0299 
Ptt^e 68 
(16) 



CTl.R 
CUR,* 



♦, CUR. PRIORITY 



•,RC.REG 

RC.RfcG,* 



CUR. PRIORITY,* 



CUR. PRIORITY,* 



♦ CCTLR} 



29 74 

2999 

5000 
3004 
3006 

300"-' 

3008 

5009 

3010 
3011 
301c' 
3013 



3015 

3018 
5019 

3017 

3023 
3025 



302* 

30 < 1 

3o V 
5055 



30 5 * 
?--)*^ 
3040 

30 <» 
$044 



Crt 



/RUAM5 




RO/RX EXERCISER 


V01.6 




MU T I -DRIVE TES 


000250 


13? 73 7 


000001 


OOOOOOG 


00025b 


001041 






000260 


104422 






000265 


127727 


OOOOOOG 


000004 


000270 


103373 






000? 7 2 


013716 


000110' 




000? ?b 


004737 


OOOOOOG 




000302 


020027 


000001 




000306 


001003 






000310 


105261 


OOOOOOG 




000314 


000422 






000316 


013716 


OOOOOOG 




000322 


013746 


OOOOOOG 




000326 


012746 


OOOOOOG 




0003 3,7 


012746 


000003 




000336 


010600 






000340 


104417 






000342 


105037 


001170' 




000346 


013716 


000110' 




000352 


004737 


OOOOOOG 




000356 


062706 


000006 




000362 


005726 






000364 


005201 






000366 


000243 






000370 


003614 






OO0372 


104422 






000374 


004737 


000000V 




000400 


004737 


oooooov 




000404 


006000 






000406 


103011 






0004 10 


105/77 


OOOOOOG 




000414 


001201 






000416 


132737 


000001 


OOOOOOG 


00O424 


001002 






000426 


000137 


007152' 




0004 32 


0527 7 7 


040000 


OOOOOOG 


000440 


005726 






000442 


00020 7 







11 Apr -1984 11j08j35 
11 Apr-19b4 ilj06{22 



6$; 



7*5 



6$: 



9$ 



10*: 



BITE) 


Ol.EOP.R.AG 


BNE 


B$ 


TRAP 


22 


CMPB 


B0CT.ADDR.04 


BHIS 


61 


MOV 


MX2.CSP) 


JSR 


PC, SEND 


CMP 


R0,*1 


BNE 


7$ 


INCB 


QIO(Rl) 


BR 


a* 


MOV 


CRN. LOW, CSP) 


MOV 


CRN. HIGH, -CSP) 


MOV 


00BM121, -CSP) 


MOV 


03, -CSP) 


MOV 


SP.RO 


TRAP 


17 


CLRB 


COMPARE. DATA 


MOV 


MX2.CSP) 


JSR 


PC.PUT.PKT 


ADO 


06, SP 


1ST 


(SP)» 


INC 


Rl 


.WORD 


CLVJCLC 


BLF 


2$ 


TRAP 


22 


JSR 


PC.PROC.RETPKT 


JSR 


PCQIO.OUT 


ROR 


RO 


BCC 


lOi 


TSTB 


SOCT .ADDR 


BNE 


11 


BITB 


01, FOP. FLAG 


BNE 


101 


JMP 


1$ 


BIS 


040000, SOCT. ADDR 


TST 


t SP ) . 


RTS 


PC 



VAX-H Bl l-is-16 V4. 0-579 fjEQ p2gS° 69 
DISK IUSER2 , [ POWERS ]/RQADO , BL2 |6 ( 16 ) 

J 3045 

3049 
3051 

305 3 



♦ CCTLR) 



SP,* 



CTLR 



3053 

3058 



3059 
3060 

305 7 

3005 
3004 



50*5 

306a 
30 71 



30 72 
A073 



*C/5 
2974 



Rout !ne S I ze : 
Maximum stack 



14b Horde, Routine B**«: $CODE» ♦ 7132 
dtpth per Invocation} 11 wo«*ds 



/ROAMS 
V01.fr 



3073 
307<* 

3080 
3061 
30tf2 
303 S 
30M4 
30H5 
3( Hfr 
308 7 
303ft 
3089 

3091 
309.? 
3093 
3094 
3095 
3096 
309/ 
3098 
30^9 
3100 
3101 
3102 
3103 
3104 

sior. 

3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 



3 
3 
5 
4 
3 
4 
4 
4 
3 

7 



RO/RX EXERCISER 

MU.T1 DRIVE TEST ROUTINES 

GLOBAL routine MD„INIT : revalue - 



1)8 

ll-Apr-1984 11j08;35 
11 Apr-1984 11:08:22 



SEQ 0301 
VAX-11 Bliss -16 V4, 0-579 P ao e /o 

DISK $ USER2 : [ POWERS ] ZRQADO * Bl 2 1 6 ( 1 7 ') 



THIS ROUTINE IS CALLED BY ROUTINE MULTI DRIVE TO INITIALIZE DATA ITEMS 
USED BY THE MULTI-DRIVE TEST, 



begin 

Will local 

!!//? AVG XFER SIZE : word. 

MIZ7 QUICK. PASS. CNT t word* 

if not .INIT OCCURED 
then 

INIT .IO..BUFK C )l 

if (.ENTRY ^REASON neq CONT) and 
C. ENTRY .REASON neq NEW_PASS) 
then 

■ ncr CTLR from to (MAX.CTLR 
begin 
SET_CPAR ( .CTLR): 



SIZE (BYTES) OF AN AVERAGE I/O xf'ER 

AVG NO, OK I/O OPERATIONS IN A QUICK PASS 

IF THIS IS A START 

PARTITION FREE MEMORY INTO I/O BUFFERS 

IF START, RESTART, OR PWR FAIL 



1) do 



INCR DISK FROM (0 * OF UN) TO ( 3 * UNIT SIZE 
♦ OF UN) BY UNIT SIZE DO 
BEGIN 
SET UPAR ( .DISK), 



Mil 
Mil 
Mil 



MU 



DPST [ .L$LUN) - DP.CNTi 
ENOi 



•INIT DATA PTRN SEQ TABLtZZZ 

Mil 



ENO; 



INCR COUNT FROM TO ( QIO^PER^CTLR * MAX CTLR - 1 ) DO UNIT 
BUFT„OWN [.COUNT] - -lj »I/0 BUFF ALLOC TABLE 

ENDt JEND MD INIT 



Mil 

\zu 

Mil 
Mil 



000000 004137 



000004 
000012 
000014 
000020 
000026 
000030 
000036 
000040 
000042 
000044 

oooor>c 

0000S4 



132757 
001002 
004/37 
123727 
001433 
123727 
001427 
0OSC02 
010246 
004 737 
012701 
010116 



OOOOOOG 

000001 OOOOOOG 

OOOOOOV 
OOOOOOG 000003 

OOOOOOG 000005 



OOOOOOG 
000003 



.SBTTL MO. INIT MULTI-DRIVE TEST ROUTINE' 



MD.INIT 


» • 






JSR 


Rl,*SAVF2 




BITB 


01, INIT .OCCURED 




BNF 


11 




JSR 


PC. INIT. 10. BUM 


1$: 


CMPB 


ENTHt .REASON, 03 




BEQ 


41 




CMPB 


ENTRY. REASON, #5 




BEQ 


4* 




CLR 


R2 


2*: 


MOV 


R2 , ( SP ) 




JSR 


PC,SET.CPAR 




MOV 


03, Rl 


3*: 


MOV 


Rl.CSP) 



CTLR 
CTLR.* 

♦.DISK 

DISK,* 



30 78 

3091 

309 5 

3096 

3099 
3101 

310* 
3 10t» 



E8 



/RQAM5 
V01.6 

000056 
000062 
000066 
000074 
000100 
000104 
000 106 
000110 
000112 

000114 
000116 
000120 
000126 
000130 
000134 
000136 



004 737 
013700 
112760 
062701 
020127 
003763 
005726 
005202 
000243 

003752 

005000 
112760 
005200 
020027 
003771 
000207 



RO/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 



OOOOOOG 

OOOOOOG 

000025 

000012 

000041 



000050* 



000377 OOOOOOG 
000007 



4$ 
5$ 



ll-Apr-1964 11:08:35 
11 -Apr -1984 U{08{22 



JSR 


PC, SET .UP AR 


MOV 


LILUN.RO 


MOVB 


025,DP3T(R0) 


ADD 


012, Rl 


CMP 


R1.041 


BLE 


3t 


TST 


(SPV 


INC 


R2 


.WORD 


CLVJCLC 


BLE 


2* 


CLR 


RO 


MOVB 


*377,BUfF t QWN(R0) 


INC 


RO 


CMP 


R0.07 


BLE 


5$ 


RTS 


PC 



Routine Size: 48 words, Routine Base; *CQDE* * 7576 
Maximum stack d*pth per invocation: 5 words 



VAX-U BlIss-16 V4. 0-579 
PlSK*USER2:[P0WERS]2RQAD0.BL2i6 



; DISK,* 

} 



SEQ 0302 
Page 71 
CI/) 



3107 

3103 



j CTLR 



i COUNT 

i ♦.♦(COUNT) 

i COUNT 

i COUNT,* 



3100 
3099 



3111 
3112 
3111 



3078 



3114 1 



F8 



ZRQAM3 

V01. 6 



3115 
3116 
3117 
311ft 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 



1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
-> 

2 
2 
2 
2 
?. 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
2 
2 

c 

2 

2 
2 
2 
2 
1 



RO/RX EXERCISER 

MULT I -DRIVE TEST ROUTINES 

GLOBAL routine INIT^I0_BUFF : novalue - 



ll-Apr-1984 
ll-Apr-1984 



11:08:35 VAX-U Bliss -16 V4. 0-579 
11:08:22 DISKJUSER2: [ POWERS ]ZRQAD0.BL2 j6 



SEQ 0303 
Page 72 
(16) 



THIS ROUTINE IS CALLED BY MD..INIT WHEN THE MULTI-DRIVE TEST IS FIRST 
STARTED. IT IS RESPONSIBLE FOR PARTITIONING FREE MEMORY INTO A 
COLLECTION OF I/O BUFFERS. THE SIZE OF EACH I/O BUFFER IS DETERMINED 
BY A NUMBER OF FACTORS, INCLUDING THE NUMBER OF UNITS, THE NUMBER OF 
CONTROLLERS, AND THE SIZE OF FREE MEMORY. 

ONCE THE BUFFER SIZE IS DETERMINED. THE NUMBER OF I/O BUFFERS IS 
CALCULATED. FINALLY, THE BUFFER ADDRESS (BUFF ADDR) TABLE IS LOADED 
WITH FIXED BUFFER DESCRIPTORS THAT ARE USED IN THE ALLOCATION AND 
DEALLOCATION PROCESS. 

IMPLICIT INPUTS: 

CTLR..CNT - THE NUMBER OF CONTROLLERS CONFIGURED 
l.NJNIT - THE NUMBER OF UNITS AVAILABLE FOR TESTING 
FREE_MEM_ADDR - START OF FREE MEMORY 

begin 

BUFF_ADDR [0] » ( .FREE..MEM..ADDR - 2 ♦ 1) and ^o' 17777b' j 

while C.BUFF„ADDR [0] and *o' 37' ) neq do 
BUFF^ADDR [0] - .BUFF..ADDR 10] ♦ 2j 



» START OF READ/WRITE BUFFERS 

! FORCE FIRST I/O BUFFER TO START 
! ON EVEN BOUNDARY 



BYTS„PER„QIO - (C.DRS_START - .BUFF ADDR [0]) / (QIO_PER_CTLR ♦ MAX CTLR)) and *o' 177740'; 

• MAX TRANSFER SIZE 



If .BYTS PER QIO gtru MAX XFER SIZE 
then 

BYTS PER QIO • MAX XFER SIZE* 



if ,BYTS_PER.QIO l3su 32 
then 

begin 

ERRSF C2, EGS.02, 0): 

DOCLN; 

end; 



I ADJUST TRANSFER SIZE LOWER 



ERROR IF NOT ENOUGH MEMORY 



if (QIO_PER_CTLR * MAX CTLR) gtru 1 
then 



»ncr index fro* 1 to (310 PER CTLR * MAX CTLR 1) do 

BUFF_ADDR (.index} - .BUFF^ADDR (.Index - 1) ♦ ,BYTS.PER_aiO: 



end; 



• INIT REMAINING TABLE ENTRIES 
! FIXED BUFFER ADDRESS 

! ROUTINE INIT.I0_BUFF 



000000 004137 
000004 013700 



OOOOOOG 
OOOOOOG 



.SBTFL 
INIT. 10 .BUFF: : 

JSR 
MOV 



INIT. 10. BUFF MULTI -DRIVE TEST ROUTINES 



Rl.iSAVE3 

free.mem.addr.ro 



?ll r ' 
313^ 



ZRQAM3 
VOL 6 

OOOOIO 
000014 
000020 
000026 
000034 
000036 
000044 
000046 
000052 
000056 
000062 
000066 
000072 
000100 
000106 
000110 
000116 
000124 
000126 
000130 
000132 
000134 
000136 
000140 
000144 
000146 
000150 
000152 
000154 
000160 
000164 
000170 
000172 
000176 
000200 
000202 



062700 

010037 

042737 

032737 

001404 

062737 

000770 

013746 

163716 

012746 

004737 

010037 

042737 

023727 

101403 

012737 

023727 

103005 

104454 

000002 

OOOOOOG 

000000 

104 444 

012702 

010200 

006300 

010201 

006301 

016103 

063703 

010360 

005202 

020227 

003762 

022626 

000207 



RD/RX EXERCISER 

MULT I -DRIVE TEST ROUTINES 

000003 
OOOOOOG 

000001 OOOOOOG 
000037 OOOOOOG 

000002 OOOOOOG 

001160' 

OOOOOOG 

000010 

OOOOOOG 

OOOOOOG 

000037 OOOOOOG 

OOOOOOG 001400 

001400 OOOOOOG 
OOOOOOG 000040 



000001 



177776G 
OOOOOOG 
OOOOOOG 

000007 



G8 

ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 





ADD 


03, RO 




MOV 


RO.BUTF.ADDR 




BIC 


tfl.BUFT.ADDR 


1*: 


BIT 


437, BUFF, ADDR 




BEQ 


2* 




ADD 


02.BUFF.ADDR 




BR 


U 


2$s 


MOV 


DRS. START, -(SP) 




sue 


BUFF.ADDR.(SP) 




MOV 


010, -(SP) 




JSR 


PC.BLIDIV 




MOV 


RO, BYTS. PER. QIO 




BIC 


037, BYTS. PER. QIO 




CMP 


BYTS. PER. QIO, 01400 




BLOS 


3$ 




MOV 


01400, BYTS. PER. QIO 


3$: 


CMP 


BYTS.PER.QI0.040 




BHIS 


4$ 




TRAP 


54 




.WORD 


2 




.WORD 


EGS.02 




.WORD 







TRAP 


44 


4$: 


MOV 


01, R2 


5$: 


MOV 


R2,R0 




ASL 


RC 




MOV 


R2,R1 




ASL 


Rl 




MOV 


BUFF.ADDR-2CR1),R3 




ADD 


BYTS. PER. QIO, R3 




MOV 


R3,BUFF.ADDR(R0) 




INC 


R2 




CMP 


R2.07 




BLE 


5$ 




CMP 


CSP)*,(SP)* 




RTS 


PC 



SEQ 0304 
VAX-11 Bliso-16 V4. 0-579 Pooe 75 

DISK $USER2 ; [ POWERS 32RQADO . BL2 ; 6 ( 18 ) 



3138 



3139 

3138 
3141 



♦.INDEX 
INDEX,* 

INDEX,* 



5 INDEX 

i INDEX,* 



3144 

3146 
3148 

3151 



3155 
3159 



3155 



3135 
3115 



Routine Size: 66 words, Routine Base: $CQDE$ ♦ 7736 
Maximum stock depth per invocations 8 words 



ZRQAM3 
V01. 6 



316? 

3163 
3164 
3165 
3166 
3167 
3166 
3169 
3170 
3171 
3175 
3173 
3174 
3175 
3176 
5177 
3178 
31 79 
3180 
3181 
3182 
3163 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
319? 
3193 



RO/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 

GLOBAL routine QIO.0K - 



H8 

U -Apr- 1984 11:08:35 
U-Apr-1984 11:08:22 



VAX-11 Bllss-16 V4. 0-579 

DISK $USER2i[ POWERS ]ZRQAD0.BL2{ 6 



SEQ 0305 
Page 74 
C19) 



THIS ROUTINE IS CALLED BY THE MULTI.DRIVE "EXECUTIVE" IN ORDER TO 
DETERMINE WHETHER OR NOT A QIO REQUEST (OR Q.TO PAIR) SHOULD BE 
GENERATED TO THE CURRENT CONTROLLER. A VALUE OF "TRUE" IS RETURNED IF 
THE CONTROLLER MEETS 3 REQUIREMENTS: 

A. THE CONTROLLER IS ONLINE i 

B. THE NUMBER OF OUTSTANDING QIOs IS AT LEAST 2 LESS THAN THE 

MAXIMUM ALLOWED FOR ANY ONE CONTROLLER} 

C. THERE IS AT LEAST ONE DISK ONLINE TO THE CONTROLLER. 

IF ANY OF THESE TEST FAIL, THEN A VALUE OF "FALSE" IS RETURNED. 

IMPL ."IT INPUTS: 

CCTLR - CURRENT CONTROLLER NUMBER 

CST.ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 



if C,i:r_ADDR [STATE] eql ONLINE) and 
(not ,EOP._FLAG) and 

((.CIO [.CCTLR] ♦ 2) lequ QIO.PER.CTLR ) and 
C.CST..ADDR [U_CNT] neq 0) 



then 



return TRUE 



else 



! IF CONTROLLER IS ONLINE 

! IF OUTSTANDING QIO COUNT IS O.K. 
! IF THERE IS VALID UNIT 



! "TRUE" EXIT POINT 



return FALSE} 



! "FALSE" EXIT POINT 



000000 
000004 
000010 
000012 
000020 
000022 
000026 
000032 
000036 
000042 
000046 
000050 
000054 
000060 
000062 
000066 
000070 
000072 



013700 
005760 
100027 
13273/ 
001023 
013700 
116000 
042700 
062700 
02002 7 
101010 
013700 
105760 
001403 
012700 
000207 
005000 
000207 



OOOOOOG 
000002 

000001 OOOOOOG 

OOOOOOG 

OOOOOOG 

177400 

000002 

000010 

OOOOOOG 
000005 

000001 





.SBTTL 


QIO. OK MULTI-DRlVb 


QIO. OK; 


:M0V 


CST.ADDR.RO 




1ST 


2(R0) 




BPL 


1$ 




BITB 


ai.EOP.FLAG 




BNE 


1$ 




MOV 


CCTLR, RO 




MOVB 


QIO(RO),RO 




BIC 


01 /7400.RO 




ADD 


#2 , RO 




CMP 


Ro.no 




6HI 


u 




MOV 


CST.ADDR.RO 




TSTB 


5(R0) 




BEQ 


1 $ 




MOV 


n,RQ 




RTS 


PC 


1*: 


CI R 


RO 




RTS 


PC 



TfST ROUTINES 



3184 

3185 

3186 



316' 
51t>J 



ZRQAM3 

V0U6 



RO/RX EXERCISER 

MULTI-DRIVE TEST ROUTINES 



18 



11 -Apr- 1984 11:08:35 
11 -Apr- 1964 11:08:22 



VAX 11 Bliss -16 V4, 0-579 
DlSK$USER2:tP0WERS]ZRQAD0.BL2 5 6 



SEQ 0306 
Page 7V> 
(19) 



Routine Sije: 30 words, Routine Base: $C0DE$ 
Maximum stack depth per invocation: words 



10142 



3194 



/RQAM3 
V01. 6 



31^5 

319: 

3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
320b 
320' 
3208 
320<> 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
321 7 
3218 



RD''RX EXERCISER 
MULTI-DRIVE TEST ROUTINtS 

GLOBAL routine QIU.OUT ■ 



11 -Apr -1984 11:08:35 
11 -Apr -1984 11:08:22 



VAX -11 Hlibs-16 V4. 0-579 

DISK (USER2 j[ POWERS 12RQAD0 . BL2 ; 6 



3EQ 030/ 
Page If, 
(20) 



THIS ROUTINE IS CALLED BY THE" MUL T I DRIVE EXECUTIVE FOR DETERMINING THE 
END OF THE MULTI-DRIVE TEST, ITS PURPOSE IS TO EXAMINE THE QIO VECTOR 
FOR ANY OUTSTANDING QIOs ON ANY CONTROLLER. A VALUE OF "TRUE" IS 
RETURNED If THERE IS AT LE^>r ONE QIO OUTSTANDING ON ANY CONTROLLER. 
T HERWISE, "FALSE" IS RETURNtD INDICATING NO OUTSTANDING QIOs. 



begin 

Jncr CTLR from to (MAX„CTLR - 1) do 

begin 

SET^CPAR C .CTLR); 

if .CST.ADDR [STATE] eql ONLINE 
then 

return TRUE; 

end; 

return FALSE; 
end; 



• SET UP CURRENT CONTROLLER PARAMETERS 

• IF CONTROLLER IS ONLINE 



• EXIT - NO CONTROLLERS ONLINE 



OOOOOC 010146 



000002 
000004 
000006 
000012 
000016 
000022 
000024 
000026 
000032 
000034 
000036 
000040 

000042 

000044 
000046 
000050 



005001 
010146 
004737 
013700 
005760 
100004 
005726 
0127QO 
0004 05 
005/26 
005201 
00024 3 

003760 
005000 
012601 
00020 7 



OOOOOOC 
OOOOOOG 
000002 



000001 





.SBTTL 


. QIO. OUT MUL 


QIO 


OUT:: 






MOV 


Rl, -CSP) 




CLR 


Rl 


1$: 


MOV 


Rl. -CSP) 




JSR 


PC, SET. OP AR 




MOV 


CST.ADDR.RO 




T sr 


2(R0) 




ypi. 


2$ 




tsi 


CSP)» 




MOV 


01, RO 




PR 


3$ 


2$: 


TST 


( SP ) ► 




INC 


Rl 




. WORD 


CLV'CLC 




Bl-fc 


i* 




CLR 


RO 


3$: 


MOV 


( 5P)»,R1 




RTS 


PC 



•DRIVE TEST ROUTINES 



CTLR 
CTLR,* 



CTLR 



31 Q 5 
320 7 
3209 

3211 



3213 



3 ^08 

320 7 



3205 

3195 



Rout ' ne 5 i «re : 
Maximum stack 



21 words, Routine Base: (CODES » 10236 
depth per invocation: 3 wordo 



/RQAM3 
V01, 6 



5219 
3220 
3221 

3222 

3223 

3224 
3225 
3226 
3227 

3230 

3251 
3232 
323? 
3234 
3235 
3236 
323? 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
324 7 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
326/ 

3268 2 

3269 <>. 
32 /O 2 
3271 a 



RD/RX EXERCISER 

MULT I -DRIVE TEST ROUTINES 

GLOBAL routine QIO„GEN ; novalue 



l<8 

ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss-16 V4. 0-579 

DISK $ USER2 : [ POWERS ] ZRQADO , BL2 : 6 



SEQ 0308 
Page 7 7 

(21) 



THIS ROUTINE IS CALLED BY THE MULT I DRIVE EXECUTIVE FOR AN ONLINE 
CONTROLLER ELIGIBLE TO RECEIVE I/O TRANSFER REQUESTS, IT IS 
RESPONSIBLE FOR SECURING ONE OR TWO MSCP PACKETS AND LOADING THEM 
WITH VARIOUS PARAMETERS COMPRISING THE I/O REQUEST. THE I/O REQUEST 
GENERATED HERE IS DESTINED TO A PARTICULAR UNIT SELECTED AT RANDOM FROM 
THOSE CONFIGURED UNDER THE CURRENT CONTROLLER. 

EACH FIELD OF THE PACKEUS) IS LOADED WITHIN INDIVIDUAL ROUTINES 
(QIO_FUNC, QIO.J_.BN, QIO.SIZE, ETC.). MOST OF THE VALUES SELECTED FOR 
EACH FIELD ARE BASED ON A SET OF RANDOM NUMBER GENERATED AT THE START. 

UNDER NORMAL CIRCUMSTANCES, ONLY ONE I/O REQUEST IS GENERATED, HOWEVER, 
IF THIS I/O REQUEST IS A "WRITE", AND IF THE OPERATOR SELECTED THE 
OPTION FOR HOST WRITE -COMPARFS , T HEN A SECOND "READ" REQUEST WILL BE 
GENERATED WITH THE SAME LBN AND BYTE COUNT. 

AFTER THE PACKET(S) HAVE BEEN LOADED, THIS ROUTINE REGAINS CONTROL 
AND ATTEMPTS TQ GET ONE OR TWO I/O BUFFERS FOR THE ACTUAL DATA 
TRANSFERS. THE SUCCESS / FAIL STATUS OF THIS ENTIRE OPERATION IS 
PASSED BACK TO THE CALLER THROUGH THE GLOBALS "MX1" AND "MX2"j THEY 
CONTAIN VALID MSCP PACKET INDECES, OR - 1 . 

IMPLICIT INPUTS: 

CCTLR - CURRENT CONTROLLER NUMBER 



begin 
MX2 * -1; 

If (MX1 - GET ..PKT (.CCTLR)) lcs 
then 

returns 

If CMX2 * GFl.PKT (.CCTLR)) lss 
then 

begin 

PUT PKT ( .MX1): 

MX1 - -1| 

return: 

end: 

HAD1 - MSCP PKT ♦ (.MX1 * PKT l.EN * 2)j 
MAD2 » MSCP_PKT * ( ,MX2 * PKT LEN * 2)j 
GET„RAND0M (); 
QIOJJNIT C); 

IF .LOP. FLAG 
then 

return j 



» ASSUME FAILURE IN SECURING 2ND PACKET 
! TR>( TO GET 1ST PACKET. IF FAILURE 
» NO POINT IN CONTINUING 
! TRY TO GET 2ND PACKET. IF FAILURE 



! RETURN 1ST PACKET TO POOL 
! IN0ICA1E FAILURE 
J DONE 



! CALCUl fi _ STARTING ADDRESSES 

! OF 30TH PACKETS 

! GENERATE A SET OF RANDOM NUMBERS 

■ LOAD RANDOM UNIT NUMBER INTO PACKETS 

! RETURN IF NU UNIT ONLINE 



/ROAMS 




RD/RX EXERCISER 


V01.6 




MULT I -DRIVE TEST ROUTINES 


3272 


2 


QIO 


„FUNC ()j 


; 3273 


2 


QIO 


LBN ( ): 


; 3274 


2 


QIO 


SIZE Oj 


; 3275 


c 


GET 


.IO..BUTF (MAD1 [BUF_0])j 


; 3276 


J 






; 3277 


? 


If 


.MX2 geq 


: 3276 


~1 
c. 


ther 


"\ 


i 3279 


3 




begin 


; 3280 


3 




GET„IO_BUFF (MAD2 [RUF_01)| 


3281 


3 






5 3282 


3 




IF ,MAD2 [BUF_0) eqlo 


; 3283 


3 




then 


j 3284 


4 




begin 


; 3285 


4 






: 3286 


4 




if .MADI [BUF„0] neqa 


; 3287 


4 




then 


; 3288 


5 




begin 

PUT 10 BUFF (MAD1 [BUF 0])} 


; 3289 


5 




; 3290 


^ 




MA01 [BUF_.0] ■ Oj 


: 3291 


4 




end; 


; 3292 


4 






; 3293 


4 




PUT PKT ( .MX2){ 


; 3294 


4 




MX2 * -1{ 


j 3295 


3 




end? 


3296 


3 






3297 


? 




cr\di 


i 3298 


3 






; 3299 


- \ 
C. 


if 


.MAD1 [BUF 0] eqla 


; 3300 


2 


then 


J 3301 


3 




begi n 


; 3302 


3 




PUT PKT ( .MX1); 


; 3303 


3 




m; i » -ij 


j 3304 


3 




end 


3305 


2 


else 


j 3306 


2 






; 330 7 


2 




«f .MA01 (OPCODE] eql OP.WRT 


; 3308 


c. 




then 


; 3309 


2 




FILL.BUFF ( ){ 


; 3310 


2 






; 3311 


1 


end 


* 



1.8 

31-Apr-1984 11:08:35 
ll-Apr-1984 11:06:22 



VAX-11 Bli9s-16 V4. 0-579 

DISK *USER2:C POWERS ]ZRQAD0,BL2{ 6 



SEG 0309 
Page 78 
(21) 



} LOAD RANDOM FUNCTION CODE (OPCODE) 
! LOAD LGN (RANDOM OR SEQUENTIAL) 
.' LOAD RANDOM BYTE COUNT 
! TRY TO GET AN I'D BUFFER 

S IF TWO QIOs ARE TO BE ISSUED 



! TRY TO GET 2ND I/O BUFFER 

! IF 2ND BUFFER ALLOCATION FAILED 

! IF 1ST I/O BUFFER WAS ALLOCATED 



• RETURN 1ST I/O BUFFER TO POOL 

• MARK IT AS FAILED 



! RETURN 2ND PACKET TO POOL 

! INDICATE FAILURE 

! IF 2ND I/O BUFFER ALLOCATION FAILED 

! IF TWO QIOs ARE TO BB ISSUED 

! IF 1ST I/O BUFFER ALLOCATION FAILED 



! RETURN 1ST PACKET TO POOL 
! INDICATE FAILURE 



! OTHERWISE, TF 1ST OPCODE IS A WRITE CALL IS O.K.) 
! FILL 1ST I/O BUFFER WITH APPROPRIATE DATA PATTERN 
! ROUTINE QIO GEN 



000000 012737 177777 000110' 



000006 
000012 
000016 
000022 
000024 
000026 
0000 30 
000034 



013746 
004737 
01003/ 
005726 
005700 
002563 
013/46 
004737 



OOOOOOG 
OOOOOOG 
000106' 



oooooou 

OOOOOOG 



.SBTTL 
QIO. GEN: : 

MOV 
MOV 
JSR 
hOV 
TST 
TS1 
BIT 
MOV 
JSR 



QIO. GEN MULTI-DRIVE TEST ROUTINES 

it 1 ,MX2 t 

CCILK. C5P) j 

PC, GET, PKT 

K0.MX1 

( SP ) ♦ 

R0 ; 

6$ ; 

CCTLR, CSP) j 

PC, GET. PKT 



MX1 



:V4* 

3251 



?2 f i* 
3255 



M8 



ZRQAM3 
VOL 6 

000040 
000044 
000046 
000050 
000052 
000056 
000062 
000070 
000072 
000074 
000100 
000104 
000110 
000114 
000120 
000124 
000150 
000134 
000140 
000144 
000150 
000154 
000162 
000164 
000170 
000174 
000200 
000204 
000210 
000214 
000220 
000222 
000226 
000232 
000236 
000242 
000246 
000250 
000254 
000260 
000262 
000264 
000266 
000272 
0002 76 
000302 
000306 
000312 
000320 
000324 
000330 
000332 
000336 



010037 

005726 

005700 

002011 

013746 

004737 

012737 

005726 

000207 

013746 

012746 

004737 

062700 

010037 

013716 

012746 

004737 

062700 

010037 

004737 

004737 

132737 

001103 

004 737 

004737 

004737 

013716 

062716 

004737 

005737 

002437 

013716 

062716 

004 73 7 

013700 

005760 

001024 

013700 

062 700 

005710 

001407 

010016 

004 73 7 

013700 

005060 

013/16 

004 73 7 

012737 

013700 

005760 

001010 

013716 

004737 



RO/RX EXERCISER 

MULT I DRIVE TEST ROUTINES 

000110' 



000106' 

OOOOOOG 

177777 000106' 



000106' 

000106 

OOOOOOG 

OOOOOOG 

000112' 

000110' 

000106 

OOOOOOG 

OOOOOOG 

000114' 

000000V 

oooooov 

000001 



OOOOOOG 



OOOOOOV 

oooooov 
oooooov 

000112' 
000032 
OOOOOOG 
000110' 

000114' 

000032 

OOOOOOG 

000114' 

000032 

000112' 
000032 



OOOOOOG 

000112' 

000032 

000110' 
OOOOOOG 
17777 7 
000112' 
000032 

00010b* 
OOOOOOG 



000110 







11 -Apr- 1984 


11:08:35 


s 




U-Apr-1984 


11:08:22 




MOV 


R0.MX2 






TST 


(SP)» 






TST 


RO 






BGE 


1* 






MOV 


MX1.-CSP) 






JSR 


PC.PUT.PKT 






MOV 


0-1, MX1 






TST 


(SP) + 






RTS 


PC 




1$: 


MOV 


MX1,-(SP) 






MOV 


0106, CSP) 






JSR 


PC.BL$MUL 






ADD 


OMSCP.PKT.RO 






MOV 


R0.MAD1 






MOV 


MX2,CSP) 






MOV 


0106, -CSP) 






JSR 


PC.BLSMUL 






ADD 


OMSCP.PKT,RO 






MOV 


R0.MA02 






JSR 


PC, GET. RANDOM 






JSR 


PC.QlO.UNIT 






BITB 


Ol.EOP.FLAG 






BNE 


51 






JSR 


PC.QIO.FUNC 






JSH 


PC.QIO.LBN 






JSR 


PC, QIO. SIZE 






MOV 


MADl.(SP) 






ADD 


032, CSP) 






JSR 


PC, GET. 10. BUFF 






TST 


MX2 






Bi.T 


3$ 






MOV 


MAD2.CSP) 






ADD 


032, CSP) 






JSR 


PC, GET. 10. BUFF 






MOV 


MAD2.R0 






TST 


32CR0) 






BNE 


3$ 






MOV 


MAD1.R0 






ADD 


032.R0 






TST 


CRO) 






BEQ 


2$ 






MOV 


MO, CSP) 






JSR 


PC. PUT, 10. BUFF 






MOV 


MAD1 ,R0 






Cl.R 


32CR0) 




2$: 


MOV 


MX2.CSP) 






JSR 


PC.PUT.PKT 






MOV 


0-1. MX2 




3$; 


tiOV 


MA01.R0 






TST 


32CR0) 






BNE 


4$ 






MOV 


MXl.(SP) 






JSR 


PC.PUT.pta 





SEQ 0310 
VAX -11 Bliss -16 V4. 0-579 Page 79 

DISK $USER2 : [ POWER S ] ZRQADO . BL 2 ; 6 ( 21 ) 



} MX2 



3258 

3259 

3260 
3257 
3263 



3264 



3265 
3266 
3268 
3219 
32 72 
3273 
32 74 
3275 



327 7 
3280 

3282 

3286 

32 ft 1 * 

3290 

3293 

3294 
3299 

3302 



ZRQAM3 
VOL 6 

000342 

000350 
000352 
000356 
000364 
000366 
000372 
000376 



012737 
000410 
013700 
126027 
001002 
004 737 
062/06 
00020 7 



RO/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 



17 7777 000106 



000112' 
000022 

oooooov 

000006 



000042 



4$ 



5$ 
6$ 



N8 



11 -Apr -1984 11:08 5 35 
ll-Apr-1984 11j08i22 



VAX-ll Bltss-16 V4. 0-579 
D1SK$USER2: [ POWERS ]ZRQAD0.BL2j 6 



MOV 


#-l.MXl 


BR 


5$ 


MOV 


MAD1.R0 


CHPB 


22(R0),<>4? 


BNE 


5* 


JSR 


PC, FILL. BUFF 


ADD 


46, SP 


RTS 


PC 



SEQ 0311 

Pog« 80 
(21) 

3303 
3299 
3307 



3209 
3243 
3219 



Routine Size: 128 words. Routine Base: $CODE? ♦ 10310 
Maximum stack depth per invocation: 4 words 



\Yi 



/RUAMJ 




VOL 6 




j 3312 




; 55 i 5 




; 5514 




; 3315 




j 5516 




i 351/ 




j 3518 




; 351^ 




; 3520 




i 3321 




j 35j2 


> 

IT. 


} 3323 


'1 

1 


; 3324 


1 


; 3525 


"1 


; 3326 


1 
1 


; 332 7 




; 332* 


i 


; 332* 


5 


j 3330 


3 


; 3331 


3 


: 3332 


3 


j 333* 




; 3554 


2 


; 3335 


1 


"01200 




i»01?00 000255 


00120? 000365 



RD/RX EXERCISER 

MUU -DRIVE TEST ROUTINES 

GLOBAL routine GET. RANDOM ; n v«lu« • 



11 -Apr 1984 11(08(35 

U*Apr-19tt4 ll:0A:22 



VAX It Bl i#» 16 V4.0 579 

DISK IUS6R2 if POWERS )ZRQAD0.BL2j 6 



SEQ 0312 
Pog* 81 
(22) 



THIS ROUTINE IS CALLED BY QIO.GEN TO GENERATE A SET Of RANOOM NUMBERS 
ANO TO STOPE THEM INTO THE RANDOM MUMBER TABLE (RANOOM), THE RANDOM 
NUMBERS ARE USED TO SELECT I/O REQUEST PARAMETERS FOR THE CURRENT (JIU 
OR QIO PAIR. IN ADDITION, IF DATA PATTERN *1 IS BEING USED, THESE 
RANOOM NUMBERS WILL BE USED IN THE WRITE OPERATION. 



begin 

own 

SEED j Hord initial (1/3), 

NEXT .RAN0NLJ1 : word initial (245)| 

incr COUNT from to CRDM.LEN 1 ) do 
b*oin 

SEED - (.SEED ♦ .NEXT RANONUM ♦ I) ♦ 4| 
NCXT_RAN0NUM • ( .NEXT ~RANDNUM / 4) ♦ .SEEDj 
RANDOM [.COUNT] - .NEXT_RAN0NtA1( 

end i 



010710 






000000 


004137 


OOOOOOCi 


00OOO4 


015705 


001200' 


000010 


013702 


001202' 


000014 


005001 




000016 


010200 




000020 


060300 




000022 


006 300 




00OC24 


006 300 




000026 


010037 


001200' 


000052 


062737 


0000O4 


000040 


010246 




00OO42 


012/46 


000004 


000046 


004 7 3 7 


OOOOOOG 


000052 


013/05 


001200' 


000056 


060 500 




000060 


010037 


OOLtttt' 



001200 



.PSECT 


$GGG>, RO 


SEED; .WORD 


255 


NEXT .RANONUM j 




.WORD 


365 


.SBTTl 


GET. RANDOM MU.T 


.PSECT 


ICODEi, RO 


GET. RANDOM: : 




JSR 


Ri.lSAVF 5 


MOV 


5EED.R5 


MOV 


NEXT. RANONUM ,R2 


CLR 


Rl 


XX X MOV 


H2.M0 


ADD 


R5,R0 


A SI 


RO 


ASl 


RO 


MOV 


HO, l ,EED 


ADD 


C4.SF.ED 


MOV 


R2 , ( SP ) 


MOV 


04 , i SP ) 


J5H 


PC.Bt I0IV 


MOV 


SE ID , W 5 


AF)D 


R5.R0 


MUV 


HO.NtXT.HANUNUM 



DR1VI TEST ROUT INI S 



» CUUNT 

J 



3 512 

3 5 50 

3 V* 
* 5 50 



5351 



C<) 



/R0AM3 




RO/RX tXIRCISIR 


V01, 6 




MU Tl-DRIVF. TfcST 


OOU064 


01000c 1 




000066 


010261 


ooooooc; 


0000 ?2 


022626 




oooo ;4 


062/01 


000002 


000100 


020127 


000036 


000104 


003744 




000106 


000207 





ROUTlNtS 



U Apr- 1964 
U-Apr-19B4 



MOV R0,R2 

MOV R2,RAND0M(R1) 

CMP (SP)*,<*SP)* 

ADD 02, Rl 

CMP R 1,036 

BLfc II 

RTS PC 



U:0fl ; 15 VAX U BH-is-16 V4.0-57') 

lit 08; 22 DISK IU5ERi?:[ POWERS ]/RQA0O,BL2»6 



Nf.XT.RANDNUM,* 
*,*( COUNT) 



♦, COUNT 
CUUNT,* 



'ifcQ 0315 
Pao* 82 

3332 

332'i 
3328 



3312 



Routine Si/e: 36 Nords» 
Maximum stack depth per 



Rout ine Base: 
•ocatlont 7 words 



fCODES * 10710 



ZRQAMJ 
VOL 6 



3536 

3337 

3338 
3339 

3340 

3341 

3342 

3343 

3344 

3545 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

335 7 

3358 

3559 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3568 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3 382 

3583 

3384 

3385 

3386 

338 7 

3388 



2 

2 
2 

2 

"> 

i— 

2 

2 

c 

2 



2 

2 

IT. 

2 

t.' 

5 

2 

2 

2 

2 

2 

3 

* 

3 

3 

^ 

3 

3 

3 

? 

2 



RO/RX EXERCISER 

MUTI -DRIVE TEST ROUTINES 

GLOBAL routine QI0..UNIT : novolue ■ 



l.)9 

11 -Apr -1984 

11 -Apr- 1984 



ilj08:35 VAX- 11 BUse-16 V4 , 0-579 

11 { 08 ; 22 DISK *USER2 : [ POWERS )ZRQADO .BL2 > 6 



SEQ 0314 
Page 8 3 
CSS) 



THIS ROUTINE IS CALLED BY QIO GEN TO RANOOMLY SELECT ONE UNIT 
CONFIGURED UNDER THE CURRENT CONTROLLER (CCTLR) TO BE USED FOR THE 
CURRENT QIO OR QIO PAIR, THE UNIT SELECTED IS BASED ON THE NUMBER OK 
UNITS ELIGIBLE TO RECEIVE AN I/O REQUEST (FROM 1 TO 4) AND THE FIRST 
RANDOM NUMBER IN THE RANDOM NUMBER TABLE (RANDOM), 



IMPLICIT INPUTS: 
CST_ADDR 



ADDRESS OF CURRENT CONTROLLER'S CST 



IMPLICIT OUTPUTS: 

THE RD/RX DISK NUMBER (DISK ADDRESS) IS LOADED INTO THE 
APPROPRIATE FIELD OF BOTH MSCP PACKETS. 



begin 

local 

MOD COCf^T 
TBLlCOUNT 
SELECT. RD 
RD_COUNT 
RX COUNT 



byte, 
byte. 

by'.e initial (byte (TRUE)), 
word initial (0), 
Hord initial (0)j 



THE UNHS WILL BE SELECTED ON AN ADJUSTABLE RATIO, RD51/52 TO RX50, 
SELECTED VIA THE SOFTWARE PARAMETERS 

THIS MODE IS FOR SELECTING DEVICES ON THE FOLLOWING SCHEME: 
CHOOSE A DEVICE AND KEEP If SELECTED FOR A CONSTANT TIME, THEN 
MOVE TO THE NEXT. THIS IS NON -RANDOM, FIXED SEQUENTIAL OPERATIONAL 
MODE 



if (not 
(not 
then 



BIT.TST 
BIT.TST 



(SUP ..FLAGS, 
(SWP ..FLAGS, 



SWF_RDM)) 
SWF„SEQ)) 



and 



NOT RANDOM MODE 

NOT RANDOM SEQUEUNTI4L MODE 



if ( .BST.CNT neq 0) and 

( ,CST_ADDR [ .BST DEV 
( .CST..ADDR [ .BST'DEV 
(not .CST_ADDR [7BST.. 
then 

beoin 

BST.CNT - ,BST CNT - 

SET_UPAR ( ,BST_DEV)j 



♦ OF^DATA, D„PRES] eql PRESENT) and 

♦ OF„DATA, D.STAT] eql ONLINE) and 
DEV ♦ OF. DATA, D.FATAL]) 



1 



J ALREADY WITHIN DEVICE 



else 



MAD1 (DK NUM) 
MAD2 [OK.NUM] 
return} 
end 



.CDISKj 
.CDISKi 



ZRQAM3 
V01*6 



3389 
3390 
3391 
339? 
3393 
3394 
3395 
3396 
339? 
3398 
3399 
3400 
3401 
340? 
3403 
3404 
3405 
3406 
340? 
3408 
3409 
3410 
3411 
34 1? 
3413 
3414 
3415 
3416 
34 17 
3418 
3419 
3420 
3421 
34?? 
3423 
34?4 
3425 
3426 
342? 
3428 
3429 
34 30 
3431 
34 32 
3433 
34 34 
3435 
34 36 
3437 
3438 
34 39 
3440 
3441 



3 

3 
3 
3 
3 
3 
4 
3 
3 
4 
3 
3 
3 
3 
3 
3 
4 
4 
4 
5 
4 
4 
4 
4 
4 
4 
4 
5 
4 
5 
5 
5 
5 

5 
5 
5 
5 
5 
b 
5 
5 
b 
5 
5 
4 
4 
3 
3 



RO/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 



[": 9 

11 -Apr -1964 11508:35 
ll-Apr-1984 ll!08:22 



VAX -1.1 Blias-16 V4. 0-579 

DISK *USER2t [POWERS ]2RQAD0.BL2*6 



3EQ 0315 
Pa^e 84 
(23) 



begin • GET NEW DFViCE 

incr OFFSET from (0 * OF. .UN) to ( (UNXTS_PER_CNTR - 1) * UNIT, SIZE ♦ OF_UN) by UNIT_SIZE do 

if C.CST_ADDR [.OFFSET • OF DATA, D PRES] eql PRESENT) and 

C.CST^AODR [, OFFSET t OF..DATA, D.STAT] eql ONLINE) and 

(not .CST^ADDR [.OFFSET ♦ OF_DATA, D„FATAL]) 
then 

if (.CST..ADDR [.OFFSET ♦ OF DATA, D TtPE] eql FIXED) 
then 

RD, COUNT • .RD.COUNT ♦ 1 J NUMBER OF RQ51/52s UNDER TEST 



else 



RX_COUNr - .RX_COUNT ♦ lj 



NUMBER OF RX50s UNDER TEST 



Incr OFFSET from (0 * OF,UN) to ((UNITS, PER, CNTR - 1) * UNIT_SIZE * 0F_UN) by UNIT, SIZE do 
begin 

if (.BST,DEV eql 0) or 

(.BST_DEV eql CCUNITS..PER.CNTR - 1) * UNIT SI/E * OF UN)) 
then 

BST„DEV « OF^UN 
else 

BST,DEV - .BST„DEV * UNIT_SI7Ej 

if (.CST_ADDR [.BST.DEV ♦ OF.DATA, D PRES) eql PRESENT) ond 

(.CST.ADDR [.BST^DEV ♦ OF DATA, D STAT] eql ONLINE) and 

(not ,CST_ADDR [ .BST DEV ♦ OF, DATA, D FATAL]) 
then 

beoin 

if .CST,ADDR [.BST. DEV ♦ OF_DATA, D.TYPE] eql REMOVABLE 
then 

BST^CNT • .RX„MAX_SEQ..CNT / .RX.COUNT 
else 

BST..CNT ■ ,RD_MAX,SECLCNT / ,RD„CQUNT; 

if .BST_CNT eql 
then 

BST„CNT - lj 

SET UPAR ( .BST DEV) 5 
hADl [DK„NUM] - .CDISKj 
MAD2 [DK„NUM] ■ .CDISKj 
return} 
endj 



endi 



end; 



» RANDOM SELECTION OF DRIVES 



ZRQAM3 
V01, 6 



5442 
3443 
3444 
3445 
3446 
344 7 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
34 70 
34 71 
3472 
3473 
34 74 
3475 
34 76 
34 7 7 
34 78 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 



c 

2 

2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 

4 

3 
4 
4 
4 

3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
4 
5 
5 
5 
5 
5 

r 

j 

4 

4 
4 
4 
4 



RO/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 



DETERMINE IF RD51/52s ARE TO BE SELECTED 



F9 

ll-Apr-1984 11j08;35 
ll«Apr-1984 Ili08i22 



VAX-ll Bliss-16 V4. 0-579 

DISK $USER2 : [ POWERS ]ZRQADO , BL2 ; 6 



SEQ 0316 
Page 85 
(23) 



If ((.RANDOM [RDM.LEN - 1] and Ho* 0777770 mod 100) gequ .SWP.RAT 
then 

SELECTED - FALSE} 



IF RD5l/52s SELECTED 

COUNT NUMBER OF RD5l/52s AVAILABLE 



if .SELECT.RD 
then 

beg i n 

MOD. COUNT 



Oj 



! COUNT THE NUMBER OF RDs UNDER TEST 



incr OFFSET from (0 ♦ OF_UN) to ((UNITS.PER.CNTR - 1) * UNIT.SIZE * OF. UN) by UNIT.SIZE <io 

if (.CST_ADOR r. OFFSET » OF^DATA, D PRES] eql PRESENT) and 
(.CST.ADDR [.OFFSET ♦ OF ..DATA, D STAT] eql ONLINE) and 
(,CST„ADDR C .OFFSET ♦ OF..DATA, D~TYPE] eql FIXED) and 
(not .CST^ADDR [.OFFSET » OF^DATA, D.FATAL]) 
then 

begin 

STORAGE r.r 4 OD, COUNT! - .OFFSET} 

MOD„COUNT - .MOD. COUNT » 1} 

ends 

SELECT ON OF THE RD51/52S 



if .MOD COUNT neq 
then 

bey In 

TBL.COUNT - Oj 



! IF AT LEAST ONE RD51/52 PRESENT 



do 

begi 

SET„ 
TBL_ 
end 
until (( 

( 

( 

( . 



n 

UPAR (.STORAGE ((.RANDOM [.TRL. COUNT] and *o' 077777') mod .MOD COUNT])} 
COUNT - .TBL_COUNT * lj 

,CST ADDR [.CUOFF ♦ OF DATA, D PRES] eql PRESENT) and 
.CST^ADDR r. CUOFF , OF, DATA, D.STAT] eql ONLINE) and 
not .CST ADDR {.CUOFF ♦ OF DATA, U„FATAL])) or 
TBL. COUNT eql RDM LEN)} 



MAD1 [DK NUM] - .CDISKj 
MAD2 I OK. NUM] ■ .CDISKj 



G9 



2RQAM5 


R 


V01. 6 


M 


; 3495 


4 


; 3496 


3 


5 3497 


3 


; 3498 


2 


; 3499 


2 


; 3500 


2 ! 


; 3501 


?. \ 


; 3502 


2 ! 


; 3503 


2 ! 


; 3504 


c I 


; 3505 


2 


; 3506 


2 


3507 


c. 


; 3506 


c 


3509 


2 


3510 


2 


i 3511. 


2 


; 3512 


2 


; 3513 


3 


i 3514 


c. 


t 3515 


3 


f 3516 


3 


; 3517 


3 


3518 


2 


; 3519 


2 


; 3520 


2 ! 


; 3521 


2 ! 


: 3522 


2 ! 


; 3523 


2 


; 3524 


2 


; 3525 


2 


; 3526 


3 


; 3527 


3 


: 3528 


3 


; 3529 


3 


; 3530 


4 


; 3531 


4 


; 3532 


4 


; 3533 


4 


; 3534 


4 


; 3535 


4 


; 3536 


3 


; 3537 


3 


; 3538 


3 


; 3539 


3 


; 3540 


3 


j 3541 


3 


354 2 


2 


j 354 3 


2 


; 3544 




j 3545 


2 ! 


; 3546 


2 ! 


j 354 7 


2 ! 



RO/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 

return; 
end; 



11 -Apr 1984 11{06;35 
ll-Apr-1984 11506:22 



VAX-U Bllss-16 V4. 0-579 

DISK $USER2 : [ POWERS 1ZRQAD0 . BL2 j 6 



SEQ 0317 

Page 86 

(23) 



IF NO RD51/52 SELECTED. SELECT AN RX50 
COUNT THE NUMBER OF RX50s 

MOD_COUNT - 0; 

incr OFFSET from CO ♦ OF„UN) to ( (UNITS_.PER_.CNTR - 1) * UNIT.SIZU ♦ OFJJN) by UNIT^SIZE do 

if ( CST_ADDR (.OFFSET ♦ OF_OATA. D_PRES] eql PRESENT) and 

C.CST_ADDR [.OFFSET ♦ OF..DATA, D_STAT] eql ONLINE) and 

C.CST_ADDR [.OFFSET ♦ OF..DATA, D.JYPE. eql REMOVABLE) and 
(not .CST_ADDR [.OFFSET ► OF DATA, D FATAL]) 



then 



begin 

STORAGE [.MOD. COUNT] - 

MOD„COUNT * .MOD.COUNT 

end; 



.OFFSET; 



AND CHOOSE ONE J 



if .MOD^COUNT neq 
then 

begin 

TBL .COUNT * 0} 



do 

begi 

SET_ 

TBL„ 

end 

until (C 

( 

C 

c . 



n 

UPAR (.STORAGE [ ( . RANOOM [ . TBL.COUNT ] and Ko' 077777') mod .MOD COUNT]); 
COUNT • . TBL ..COUNT ♦ 1; 

.CST_ADDR [.CUOFF ♦ OF„DATA, D.PRESl eql PRESENT) and 
.CST_ADDR [.CUOFF ♦ OF_DAlA, D..STAT ] eql ONLINE) and 
not .CST ADDR [.CUOFF ♦ OF. DATA, D FATAL))) or* 
TBL.COUNT eql RDM^LEN); 



MA01 [OK..NUM] ■ .COISK; 
MAD2 [DK^NUM] « .CDISK; 
return ; 
er\d\ 



IF NO UNIT SELECTED SO FAR BY ABOVE METHOD, SELECT AN* ONE AT RANDOM 
COUNT ALL UNITS AVAILABLE 



-19 



/RQAM3 
V01. 6 



3548 

3549 
3550 
5551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
35 70 
35 71 
3572 
3573 
3574 
3575 
3576 
35 7 7 
3578 
35 79 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
358 7 
3588 
3589 
3590 
3591 
359,; 
3593 



c 

2 

3 

-> 

c 

3 
3 

3 

•t 

t. 

2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
4 
4 
4 
4 
4 
4 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 



RO/RX EXERCISER 

MULT1 -DRIVE TEST ROUTINES 



11 Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss- 16 V4. 0-579 

DISK $USER2:t POWERS ]ZRQAD0,BL2j 



SEQ 0318 
Page 8/ 
(23) 



MOD_COUNT * 0; 

incr OFFSET from (0 ♦ OF. UN) to ( CUNITS..PER_CNTR 



1) * UNIT..SIZE f OF, UN) by UNIT„SIZE do 



If (.CST..ADDR C. OFFSET ♦ 0F_DATA, D PRES] eal PRESENT) and 
(.CST_ADDR [.OFFSET ♦ 0F..DATA, D_STAT] eql ONLINE) and 
(not .C5T.ADDR [.OFFSET * OF DATA, D FATAL]) 
then 

begin 

STORAGE [.MOD .COUNT] * .OFFSET: 

MOO. COUNT - .MOD.COUNT ♦ lj 



SELECT AN> ONE ONE UNIT AT RANDOM 



If .MOD.COUNT neq 
then 

begin 

TBL_COUNT * 0: 



do 

beg! 

SET_ 

TBL_ 

end 

until (( 

( 

C 

( . 



UPAR (.STORAGE ((.RANDOM f . TBL COUNT] and to'STlUT) mod .MOD COUNT]); 
COUNT - .TBI.. COUNT * lj 

.CST_ADDR [.CUOFF ♦ OF^DATA, D PRES] eql PRESENT) and 
.CST ADDR [.CUOFF ♦ OF DATA, STAT] eql ONLINE) and 
not .CST..AD0R { .CUOFF ♦ OF ..DATA, D FATAL))) or 
TBL . COUNT eql RDM.LEN); 



MAD1 [DK.NUM] - .CDISK} 
MAD2 rDK.NUH] * .CDISKj 
return 
end 



DECLARE END-OF-PASS IF NO UNIT ONLINE 



else 



EOP.FLAG • TRUE; 



end; 



! ROUTINE QIC UNIT 



OOOOOO 004 1 3 7 



000004 
000010 



112^04 
00500c? 



OOOOOOG 
000001 



. 5H T Tl. 
Q1U.UN1T: : 
JSR 

novo 
ct R 



QIO.UNIT MULT I -DRIVE TEST ROUTINES 



R1.SSAVE4 

<U,R4 

Re 5 



l •.SEt.ECr.RD 
1 RO. COUNT 



?3m- 



19 



ZRQAM5 




RO/RX EXERCISER 


V01.6 




MUlTl-DRIVF. TES 


000012 


00500? 




00001.4 


032737 


000002 OOOOOOG 


000022 


001003 




O000 c >4 


032737 


001000 OOOOOOG 


000032 


001402 




000034 


000137 


011504' 


000040 


005737 


001146' 


0OOC44 


001^52 




000046 


013700 


001150' 


000052 


006300 




000054 


063700 


OOOOOOG 


000060 


032710 


040000 


00O0G4 


001442 




00O066 


013700 


001150' 


000072 


006300 




00O074 


063700 


OOOOOOG 


0OO100 


032710 


020000 


000104 


001432 




000106 


013700 


001150' 


000 11C 


006300 




000114 


063700 


OOOOOOG 


0OO120 


032710 


010000 


000124 


001022 




000126 


005337 


001146' 


000132 


013746 


001150' 


000136 


004737 


OOOOOOG 


000142 


013700 


000112* 


000146 


013760 


OOOOOOG 000016 


000154 


013700 


000114' 


000160 


013760 


OOOOOOG 000016 


000166 


005726 




000170 


000207 




00O172 


012701 


000006 


000176 


010100 




000200 


063 700 


OOOOOOG 


000204 


032710 


040000 


000210 


001414 




000212 


032710 


020000 


000216 


001411 




000220 


032710 


010000 


000224 


001006 




000226 


132710 


000020 


000232 


001402 




000234 


005202 




000236 


000401 




000240 


005203 




000242 


062701 


000024 


000246 


02012". 


000102 


000252 


003751 




000254 


012/01 


00000'. 


000260 


013/00 


001150' 


000264 


001403 




000266 


020027 


000041 



11 -Apr -1984 11j08;35 
ll-Apr-1984 11:08:22 



SEQ 0319 
VAX -11 Bliss -16 V4.0 579 Page 88 

DISK*USER2: [POWERS ]ZRQAD0.BL2} 6 (23) 



1$ 
2$ 



3$ 

4$ 



5$ 

6$ 



7$ 



CLR 


R3 


BIT 


02.SWP. FLAGS 


BNE 


1$ 


BIT 


01000, SWP. FLAGS 


BEQ 


2$ 


JMP 


15$ 


TST 


BST.CNT 


BEQ 


3$ 


MOV 


BST.DEV.RO 


ASL 


RO 


ADO 


cst.addr.ro 


BIT 


04O00O,(RO) 


BEQ 


3$ 


MOV 


BST.DEV.RO 


ASL 


RO 


ADD 


CST.ADDR.RO 


BIT 


020000, (RO) 


BEQ 


3$ 


MOV 


BST.DEV.RO 


ASL 


RO 


ADD 


CST.ADDR.RO 


BIT 


010000. (RO) 


BNE 


3i 


DEC 


BST.CNT 


MOV 


BST.DEV. (SP) 


vJSR 


PC.SET.UPAR 


MOV 


MAD1.R0 


MOV 


CDISK,16(R0) 


MOV 


MAD2.R0 


MOV 


CDISK.16CR0) 


rsi 


(SP)» 


RTS 


PC 


MOV 


06, Rl 


MOV 


Rl.RO 


ADD 


CST.ADDR.RO 


BIT 


040000. (RO) 


BEQ 


6$ 


BIT 


020000. CRO 


BEQ 


6$ 


BIT 


010000. (RO) 


BNE 


6$ 


BITB 


020. (RO) 


BEQ 


5$ 


INC 


R2 


BR 


M 


INC 


R3 


ADD 


024, Rl 


CMP 


Rl .0102 


BLF- 


4* 


MOV 


03. Rl 


MOV 


RST .Dt'V.RO 


UEQ 


8$ 


CMP 


R0.041 



; RX. COUNT 



j ♦.OFFliFT 
; OFFSET,* 



RO. COLIN r 

RX. COUNT 
♦ .OFf- SFT 
I OFFSET,* 

! *,0(-FStT 



33 72 
3373 

3376 
3377 

3378 

3379 



3382 
3383 

3384 

3385 

3386 
3331 
3391 
3393 



3394 

33*95 

3398 

•400 
.> V">8 
3402 

3 391 



3404 
3408 



J9 



/RQAM3 




RO/RX EXfcRC: 


[SER 






11 -Aor-1984 11 


•08:35 


VOL 6 




MULTI -DRIVE 


TEST 


ROUTINES 




11 -Apr-1984 U 


: 08 : 22 


ooo. >;>2 


001004 










BNE 


9$ 




0002 74 


012757 


000003 


oor 


.50* 


8$: 


MOV 


05.BST.DEV 




000502 


000405 










BR 


10$ 




000504 


062 757 


000012 


001150' 


9$: 


ADO 


012.BST.0EV 




000312 


015700 


001150' 






10$: 


MOV 


BST.DEV.RO 




000516 


006500 










ASL 


RO 




000520 


065700 


OOCOOOG 








ADD 


cst.addr.ro 




000524 


052710 


040000 








BIT 


040000. CRO) 




000550 


001450 










BEQ 


14$ 




000352 


032710 


020000 








BIT 


O20000,(RO) 




000556 


001445 










BEQ 


14$ 




000540 


032710 


010000 








BIT 


010000, (RO) 




000544 


001042 










BNE 


14$ 




000546 


152710 


000020 








BTTB 


020. (RO) 




000352 


001004 










BNE 


11$ 




000354 


015746 


001176' 








MOV 


RX.MAX.SEQ.CNT, -(SP) 




000560 


010546 










MOV 


R5, -CSP) 




000562 


000405 










BR 


12$ 




000564 


015746 


001174* 






11$: 


MOV 


RD.MAX.SEQ.CNT, -(SP) 




0003 70 


010246 










MOV 


R2.-CSP) 




000572 


004757 


OOOOOOG 






12$: 


JSR 


PC,BL$DIV 




000576 


010057 


001146' 








MOV 


RO.BST.CNT 




000402 


001005 










BNE 


13$ 




000404 


012737 


000001 


001146* 




MOV 


Ol.BST.CNT 




000412 


015716 


001150* 






13$ : 


MOV 


BST.DEV.(SR) 




00O416 


004757 


OOOOOOG 








JSR 


PC. SET. UP AR 




000422 


015 700 


000112' 








MOV 


MAD1.R0 




000426 


015760 


OOOOOOG 


000016 




MOV 


CDISK,16(R0) 




000454 


015700 


000114* 








MOV 


MAD2.R0 




000440 


015760 


OOOOOOG 


000016 




MOV 


C0ISK,16(RO) 




000446 


022626 










CMP 


(SP)».(SP)* 




000450 


00020 7 










RTS 


PC 




000452 


062701 


000012 






14<: 


ADD 


012. Rl 




000456 


020127 


000041 








CMP 


R1.041 




000462 


005676 










BLE 


71 




000464 


015746 


OOO036G 






15$: 


MOV 


RANDOM* 36. (SP) 




0004 70 


042716 


100000 








BIC 


0100000, (SP) 




0004 74 


012746 


000144 








MOV 


0144, (SP) 




000500 


004/5/ 


OOOOOOG 








JSR 


PC.Bl $MOD 




000504 


022626 










CMP 


(SP)* (SP)* 




000506 


02005 7 


OOOOOOG 








CMP 


RO.SWP.RAT 




000512 


105401 










BLO 


16$ 




000514 


105004 










CLRB 


R4 




000516 


006004 








16$: 


ROR 


R4 




000520 


105105 










BCC 


21$ 




000522 


105005 










CLRB 


R3 




000524 


012701 


000005 








MOV 


05, Rl 




000530 


010100 








17$: 


MOV 


Rl ,R0 




000552 


006500 










ASL 


RO 




000554 


063700 


OOOOOOG 








ADD 


CST.ADDR.HO 




000540 


032710 


040000 








BIT 


040000, (RO) 




000544 


00 Ml. 7 










BLU 


18$ 




000546 


032710 


020000 








BIT 


020000 ,(R0) 





VAX-11 Bliss-16 V4.0 579 

D ISK$USER2:[ POWERS ]ZRQAD0.BL2j 6 



i RX, COUNT.* 



: RD. COUNT.* 



} * .OFFSET 
\ OFFSET,* 



; SELECT, RD 

: SELECT. RD 

j MOO .COUNT 

i *, OFF SET 

I OFFSET,* 



SEQ 0320 
Page 89 
(23) 



3410 
340 7 
3412 
3414 



3415 
3416 
3420 
5422 

3424 



5426 
5428 
3430 

3431 

34 32 

3455 

5418 
3404 

344? 



344 9 
545"' 

34(:C 
5462 
3464 



3465 



ZRQ4M3 
VOL 6 

000552 

000554 

000560 

000562 

000566 

000570 

000572 

C00574 

000576 

000602 

000604 

000610 

0006 14 

000616 

000620 

000622 

000624 

000626 

000630 

000632 

000636 

000642 

000644 

000646 

000652 

0GO654 

000660 

000664 

000666 

000670 

000674 

000676 

0OO702 

000 706 

000710 

000714 

000716 

000722 

000 724 

000730 

000732 

000734 

000736 

000742 

000744 

000746 

000/52 

000756 

000/60 

000764 

000 766 

0007 72 

000774 



001414 
132710 
001411 
032710 
001006 
005000 
150300 
006300 
010160 
105203 
062701 
020 12 7 
003745 
105703 
001445 
105002 
005000 
150200 
006300 
016046 
042716 
005046 
110316 
004737 
006300 
016016 
004737 
105202 
022626 
013700 
006300 
063700 
032/10 
001406 
032710 
001403 
032710 
001510 
12022 7 
001335 
000504 
105003 
012701 
010100 
006300 
063700 
032710 
001417 
032710 
001414 
132710 
001011 
032710 



RD/RX EXERCISER 

MULT I -DRIVE TEST ROUTINES 



000020 
010000 



1<9 

11 -Apr -1984 11:08:35 
U-Apr-1984 11:08:22 



000064' 

000012 
00004 1 



000000^ 
100000 



OOOOOOG 

000064 ' 
OOOOOOG 



OOOOOOG 

OOOOOOG 
040000 

020000 

010000 

000020 

000003 

OOOOOOG 
040000 

020000 

000020 

010000 





BEQ 


18$ 




BITB 


fr20, CRO) 




BEQ 


18$ 




BIT 


oioooo,(ro) 




BNE 


18$ 




CLR 


R0 




BISB 


R3.R0 




ASL 


RO 




MOV 


Rl.STORAGE(RQ) 




INCB 


R3 


18$: 


ADO 


012, Rl 




CMP 


R1.041 




BLE 


17$ 




TSTB 


R3 




BEQ 


2U 




Ct.RB 


R2 


19$: 


CLR 


RO 




BISB 


R2.R0 




ASL 


RO 




MOV 


RANDOM(RO),~(SP) 




BIC 


0100000, CSP) 




CLR 


-(SP) 




MOVB 


R3.CSP) 




JSR 


PC,BL$MOD 




ASL 


RO 




MOV 


STORAGECRO).(SP) 




JSR 


PCSET.UPAR 




INCB 


R2 




CMP 


(5P)t,(SP)* 




MOV 


CUOFF.RO 




ASL 


RO 




ADO 


cst.addr.ro 




BIT 


040000, CRO) 




BEQ 


20$ 




BIT 


O20000, (RO) 




BEQ 


20$ 




BIT 


010000, (RO) 




BEQ 


26$ 


20$: 


CMPB 


R2.020 




BNE 


19$ 




BR 


26$ 


21$: 


CLRB 


R3 




MOV 


05,R1 


22$: 


MOV 


Rl.RO 




ASL 


RO 




ADD 


cst.addr.ro 




BIT 


040000 ,(R0) 




BEQ 


23$ 




BIT 


020000, (RO) 




BEQ 


23$ 




BUB 


020 , ( RO ) 




BNE 


23$ 




BIT 


010000, (RO) 



SEQ 0321 
VAX-11 Bliss-16 V4. 0-579 Page 90 

DISK $USER2:[ POWERS ]ZRQAD0,BL2; 6 (23) 



J 3466 

( 3467 

; 3470 

i MOD. COUNT,* 

j OFFSET,* 

: MOD. COUNT 
; *, OFFSET 
i OFFSET,* 

; MOD. COUNT 

s TBL. COUNT 

; TBL. COUNT,* 



} MOD. COUNT,* 



; TBL. COUNT 



j TBL. COUNT,* 



: MOD, COUNT 
I *, OFF SET 
t OFFSET,* 



3471 
3462 



34 78 

3481 
3485 



3466 
3484 
3488 



3489 
3490 

3491 



3493 
3506 
3508 
3510 



3511 
3M2 

3513 



L9 



ZRQAM3 
VOL 6 

OOIOOO 

001002 
001004 
001006 
001010 
001014 
001016 
001022 
001026 
001030 
00103? 
001034 
001036 
001040 
001042 
001044 
001050 
001054 
001056 
001060 
001064 
001066 
00.1072 
001076 
00110C 
001102 
001106 
001110 
001114 
001120 
001122 
001126 
001130 
001134 
001136 
001142 
001144 
001146 
001150 
001154 
001156 
001160 
001 164 
001170 
001172 
001176 
001200 
001204 
001206 
001210 
001212 
001214 
001220 



RD/RX EXERCISER 

MULT I -DRIVE TEST ROUTINES 



001006 
005000 
150300 
006300 
010160 
105203 
062701 
020127 
003745 
105703 
001445 
105002 
005000 
150200 
006300 
016046 
042716 
005046 
110316 
004737 
006300 
016016 
004737 
105202 
022626 
013700 
006300 
063700 
032710 
001406 
032710 
001403 
032710 
001505 
120227 
001335 
000501 
105003 
012701 
010*00 
006300 
063700 
032710 
001414 
032710 
001411 
032710 
001006 
005000 
150300 
006300 
010160 
105203 



000064' 

000012 
000041 



OOOOOOG 
100000 



OOOOOOG 

000064' 
OOOOOOG 



OOOOOOG 

OOOOOOG 
040000 

020000 

010000 

000020 



000003 

OOOOOOG 
040000 

020000 

010000 



000064 







ll-Apr-1984 11:08:35 


s 




ll-Apr-1984 11:08:22 




BNE 


23$ 




ClR 


RO 




BISB 


R3,R0 




ASL 


RO 




MOV 


Rl.STORAGECRO) 




INCB 


R3 


23$: 


ADD 


#12. Rl 




CMP 


Rl,#41 




BLE 


22$ 




TSTB 


R3 




BEQ 


27$ 




CLRD 


R2 


24$: 


CLR 


RO 




BISB 


R2 t R0 




ASL 


RO 




MOV 


RANDOM(RO), - ( SP ) 




BIC 


#100000, (SP) 




CLR 


-(SP) 




MOVB 


R3.CSP) 




JSR 


PC.BL$M0D 




ASL 


RO 




MOV 


STORAGECRO).(SP) 




JSR 


PC.SET.UPAR 




INCB 


R2 




CMP 


(SP)».(SP)» 




MOV 


CUOFF,RO 




ASL 


RO 




ADD 


CST.ADDR.RO 




BIT 


#40000 ,(R0) 




BEQ 


25$ 




BIT 


#20000, CRO) 




BEQ 


25$ 




BIT 


#10000, (RO) 




BEQ 


32$ 


25$: 


CMPB 


R2,#20 




BNE 


24$ 


26$: 


BR 


32$ 


27$: 


CURB 


R3 




MOV 


#3 ( R1 


28$: 


MOV 


Rl.RO 




ASL 


RO 




ADD 


CST.ADDR.RO 




BIT 


#40000 ,(R0) 




BEQ 


29$ 




BIT 


#20000 , ( RO ) 




BEQ 


29$ 




BIT 


#10000, (RO) 




BNE 


29$ 




CLR 


RO 




BISB 


R3.R0 




ASt. 


RO 




MOV 


Rl.STORAGECRO) 




INCB 


R3 



SEQ 0322 
VAX-11 Bliss 16 V4. 0-579 Page 91 

DISK$USER2j [P0WERS]2RQAD0.BL2|6 (23) 



: MOD, COUNT,* 

j OFFSET,* 

j MOD. COUNT 
I + .OFFSET 
j OFFSET,' 

s MOD. COUNT 

j TBI.. COUNT 

I TBL, COUNT.* 



i MOD. COUNT,* 



TBL. COUNT 



: TBL. COUNT,* 

i MOD. COUNT 
I *, OFFSET 
l OFFSET,* 



3516 



3517 
3508 



3524 

3527 
3531 



i MOD. COUNT,* 

j OFFSET,* 
\ MOD, COUNT 



3532 
3530 

S534 



3535 

3536 

3537 

3539 
3550 
3552 
3554 



3555 
3556 
3559 

3560 



ZRQAM3 

V01. 6 

001222 

001226 
001232 
001234 
001236 
001240 
00124:? 
001244 
001246 
001250 
001254 
001260 
001262 
0\ 264 
001270 
001272 
001276 
001302 
001304 
001306 
001312 
001314 
001320 
001324 
001326 
001332 
001334 
001340 
00X342 
001346 
00135C 
001354 
001362 
001366 
001374 
001376 
001404 



062701 
020127 
003750 
105703 
001457 
105002 
005000 
150200 
006300 
016046 
042716 
005046 
110316 
004737 
006300 
016016 
004737 
105202 
022626 
013700 
006300 
063700 
032710 
001406 
032710 
001403 
032710 
001403 
120227 
001335 
013/00 
013760 
013700 
013760 
000207 
112737 
000207 



RD/RX EXERCISER 

MULT I -DRIVE TEST ROUTINES 



000012 
000041 



OOOOCOG 
100000 



OOOOOOG 

000064* 
OOOOOOG 



OOOOOOG 

OOOOOOG 
040000 

020000 

010000 

000020 

000112' 

OOOOOOG 000016 
000114' 
OOOOOOG 000016 

000001 OOOOOOG 



29$ j 



30$ 



31$ 
32$ 

33$ 



Routine Size: 387 words, Routine Qose; 
Maximum stack depth per invocation: 8 words 



M9 

ll-Apr-1984 
ll-Apr-1984 

ADD 41?, Rl 

CMP Rl,#41 

BLE 28$ 

TSTB R3 

BEQ 33$ 

CLRB R2 

CLR RO 

BISB R2.R0 

ASL RO 

MOV RAND0M(R0),-(SP) 

BIC OIOOOOO.CSP) 

CLR CSP) 

MOVB R3.CSP) 

JSR PC,BL$M00 

ASL RO 

MOV ST0RAGECRO"),(SP) 

JSR PC.SET.UPAR 

INCB R2 

CMP (SP)*,CSP)> 

MOV CUOEF.RO 

ASL RO 

ADD CST.ADDR.RO 

BIT 040000, (RO) 

BEQ 31$ 

BIT *200OO,(RO) 

BEQ 31$ 

HIT $10000, (RO) 

BEQ 32$ 

CMPB R2.02O 

BNE 30$ 

MOV MAD1.R0 

MOV CDISK.16CR0) 

MOV MAD2.R0 

MUV CDISK.16CR0) 

RTS PC 

MOVB 01.EOP.FLAU 

RTS PC 

$C0DE$ * 11020 



11:08:35 VAX-11 Bliss-16 V4. 0-579 
11:08:22 0ISKIUSER2: [P0WERS]ZRQAD0.BL2j6 

; *, OFFSET 
I OFFSET.* 

t MOD. COUNT 

} TBL. COUNT 

: 

} TBL. COUNT,* 



; MOD. COUNT,* 



TBL. COUNT 



; TBL. COUNT,* 



SEQ 0323 
Page 92 
C23) 

3552 



3566 

3569 
3573 



3574 
3572 
3576 



3577 
3578 
3579 
3581 
3582 

3568 

3591 
3336 



N9 



ZPUAhi 
VOL 6 



3594 

3595 
3596 
3^97 
3598 
3599 
3600 
3601 
360? 
3603 
3604 
3605 
3606 
360/ 
3608 
3609 
3610 
3611 
361? 
3613 
3614 
3615 
3616 
361/ 
3618 
3619 
3620 
3621 

3622 

3623 
3624 
3625 

3626 
362 7 
3626 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
364 3 
3644 
364S 
3646 



PO/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 

GLOBAL routine QIO EUNC t novalue - 



11 Apr-1984 11:08:35 
U-Apr-1984 11-08:22 



VAX -11 Bliss-lfi V4. 0-579 

DISK $USER2:[ POWERS ]ZRQAD0.BL2;6 



SEQ 0324 

Page 93 
(24) 



THIS ROUTINE IS CALLED BY QIO GEN TO SELECT THE I/O FUNCTION (OPCODE) 
TO BE USED FOR THE CURRENT QIO OR QIO PAIR. THE FUNCTION IS DETERMINED 
BY THE FOLLWING ALGORITHM; 

IF THE CHOSFN UNIT IS PROTECTED 
THEN 

FUNCTION - READ 
ELSE (UNPROTECTED) 

FUNCTION (WRITE OR RE^D) IS BASED ON A RANDOM 

NUMBER 

IN ADDITION, IF THE OPERATOR SELECTED THE OPTION OF PERFORMING WRITE - 
COMPARES AT THE HOST, AND IF A "WRITE" FUNCTION WAS CHOSEN ABOVE FOR 
THE FIRST QIO, THEN A "READ" OPCODE IS LOADED INTO THE SECOND MSCP 
PACKET. OTHERWISE, THE SECOND MSCP PACKET IS RETURNED TO THE POOL, 



PERIODIACLLY. THIS ROUTINE WILL CALL THE DUP ROUTINE BEFORE IT 
BEGINS ITS OWN TASK. IF THE OPERATOR HAS SELECTED, "ALSO PUN 
DUP EXERCISER." THEN DUP TESTING OF DBNS WILL BE INTERLEAVED 
WITH THE REGULAR MSCP TESTING OF THE LBNS. 

TO AVOID LONG, CUMULATIVE INIT TIMES. THE DUP CODE IS ONLY 
EXECUTED AFTER (25 TIMES 'DUPROUND') MSCP I/O's HAVE BEEN DONE 
THE DUMBER OF DUP I/O's IS 'DUPROUND'. THIS GIVES US A 25 TO 1 
INTERLEAVE. 

THE DUP TESTING IS DONE BY EXECUTING CONTROLLER LOCAL PROGRAMS 
TO READ OR WRITE/READ DBNS. AFTER THE P' P TESTING, THE CON 
TROLLER IS REINITIALIZED, AND QIO.FUNC ROUTINE CONTINUES FROM 
WHERE IT LEFT OFF. 

IMPLICIT INPUTS: 

CST^ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 
CUOFF - CURRENT UNIT CST OFFSET 

IMPLICIT OUTPUTS: 

THE OPCODE FIELD OF ONE OR BOTH MSCP PACKFTS IS LOADED 



111 

111 
III 

122 

III 
III 
III 

122 

III 

III 

III 
III 



begin 

local 

FUNC r 

DUOFF « .CUOFF 



IF 



(( 

( 



CST ADDR 
CST ADDR 



words 



f .DUOFF 
[.DUOFF 



! OPCODE (READ OR WRITE) 



• OF. COUNT, D COUNT] I EQ 
D_TYPE) NEQ RX_50) AND 



•SAVE IN CASE OTHER 
•LEf'T IN QUEUE 
0) AND JMSCP CNT-0 
! FIXED DISK 



CMOS 111 
111 
111 
111 



\) I 



■7RUAN5 
VOL 6 



; 



3*4 7 

3h48 
3649 

3650 

565 L 

3*5 4 ' 
36 r i3 
5654 

56 V. 
5656 
565 / 
5658 
3t>59 
3o60 
36b 1 
366* 1 
SbfcS 
3664 
3665 
3666 
366 7 
3668 
3669 
36/0 
36 71 
36 <V 
36/3 
5*74 
36 75 
36/6 
36 7/ 
3b /ft 
3* /9 
3680 
368 1 
3b8<> 
368 5 
3684 
568 1 j 
3686 
368/ 
3688 
3684 
36^0 
369 1 
M> f i? 
3693 
3694 
56 95 
36 9*> 
569/ 
5698 
5690 



3 

? 

? 

3 
3 

3 

3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
4 
3 
3 
4 
4 
4 
4 
4 
3 
3 
3 
* 
3 
3 



RD'R> EXERCISER 

MU TI L9IVE TEST ROUTINES 



11 Apr 1984 It {08: 35 
ll-Apr-19B4 ll{08:?? 



(.CST, ADDR (»OUOFF » OF .DUPFLAGS, NODUPMEDIA] NEQ I)) {MEDIA IN 



THEN 



BEGIN 

PUT .PKT ( ,MX2): 
MXc> • 1» 
DUP ( )j 

CST..ADDR I.DUOFF ♦ 0F_COUNT. D COUNT] • 
C^5 * .DUPROUND)} 



(RETURN 2ND ENVLOPE 
} INDICATE FAILURE 
•DO DL*> TEST 
•REINIT MSCP FUN- 
CTION COUNTER 



THE FOLLOWING REINITS ? ENVELOPES, SO THAT THE MSCP EXERCISER 
CAN PROCEED AS BEFORE THE DUP EXERCISER WAS CALLED. 



DUP FLAGS • .DUP FLAGS OR SWP DINT, 

INITJEST ( )i 

DUP .FLAGS ■ .DUP_FLAGS ANO (NOT SWP.DINT)| 

MX? • I j 

IF (MX1 - GET PK* ; .CCTLR)) LSS 

OR ( .EOP FLAG) 
THEN RE TURN j 

IF (MX2 • GET.PKT (.CCTLR)) LSS 

OR ( .EOP_FLAG> 
THEN BEGIN 

PUT PKT ( ,MXl)i 

MX1 - -1| 

RETURN* 

ENDj 



•SET DUP INIT FLAG 
•REINIT CONTROLLER 
•CLR DUP INIT DLAG 

•ASSUME NO 2ND ENVELOPE 
»TRT FOR 1ST ENVELOPE 
!IF FAILURE 
•NO POINT TO GO ON 
•TRY FOR ^N0 ENVELOPE 
!IF FAILURE 

•PUT 1ST BACK IN POOL 
•INDICATE FAILURE 
•DONE 



MA01 ■ MSCP PKT 
MADi> • MSCP PKT 
GET RANDOM C )i 
QIO UNIT ()| 
ENOi 

MSCP COOE STARTS HERE 



(.MXi • PKT IEN * ?)i !CALC START ADDR 
l.HXa * PKT.LEN ♦ 2)\ *0f BOTH INVFlOPfcS III 

•GET SET OF RANDOM NOS III 
»PUT RANG L*NI T NO IN III 

•ENVELOPES III 

Mil 
III. 
Ill 



VAX U Ri;<M 16 V4.0-5/'# 

DISK IUSER2 j [ POWERS 1/RQADO . BL^»6 

/// 
Mil 
Mil 
Mil 
Mil 

III 

III 

III 

III 
Mil 

III 

III 

III 

III 

III 

III 
Mil 

III 

III 

III 

III 

III 

III 
Mil 

III 

III 

III 
Mil 
Mil 

III 



SLQ 0525 
Po^e 94 
(24j 



CST„ADOR (.CUOfF » OF COUNT. COUNT] « 

.CST. ADDR [ .CUOFF ♦ OF_COUNT, ..COUNT) 

MAD2 [ OPCODE) • Oj 



• /// 

ll JDECR MSCP FUNCTION CNTR III 



If (.CST ADOR (.CUOFF . O DATA, D PRO T ) m Q \ UNPRDTEC TM) ) anci 
(.CST. ADDR (.CUOFF ♦ OF DATA, D T*PE) eqi HXtDl and 
( ,FORCED_ERROR) 

th«n 

FUNC » OP..WRT 

if .CST ADDR [ .CUUFI » OF DATA* PROT ] «ql PROTECTED 
th«n 

FUNC • UP RO 



! ASSUME c>ND PACKET NOT NHOED 

J IF "FORCED tMROR St T TN LAST REAO, 



REWRITE SAME Bl HCK 



! P UNIT I'i PHOTt CUO 
I SET FUNCTION TO Rb A\) 



CIO 



V01.fr 



7m 00 
3?0l 
? 702 
3 '05 

3/04 
3, 'OS 
3/06 

3.*o; 

3708 
3709 

3/10 
3? 11 
3"i? 
3/13 

3/14 
3715. 
3716 
3717 
3 716 
3719 

3720 
3 .VI 
3/2? 
3/23 

3 7 24 
37?S 
3726 
372/ 
3 728 
3729 
3730 
3731 
373.? 
3733 
3734 
3735 
37 36 
3737 
3736 
3/39 
3740 
3741 
"374? 
3 74 3 
3744 



? 

3 
3 

4 
3 
3 
3 
3 
4 
3 
4 
4 
4 
A 
4 
3 



RO'RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 

else 

if ( .RANDOM (1) and 1) 
■ien 

FLNC " OP .RD 
se 

F'UNC - OP.URTj 

if IMfcDl [OPCODE 1 • .FUNC) eql OP WRT 
then 

MADl (CMD.TYPE] - NON.SEQ CMO i 

If BIT..TST (SWP FLAGS. SWF .CMC) 

then 

MADl [MODIFY] • MO. CMP 

else 

if BIT_TST (SWP ..FLAGS, SWF.HWC) 
then 

beoin 

MADl (MODIFY) - MO EXPj 
MAD2 [OPCOOE] - OP RD i 
MA02 [MODIFY ] - MD EXP { 
MAD? E CMO. TYPHI ■ NON„SEU„CMD} 
end; 
end 
else 

begin 

MADl [CMO TYPE] - N0N.5E0.CM0j 

if BIT TST CSWP FLAGS. SWF CMC) 
then 

MADl (MODIFY) • MD.CMPj 

endi 

if .MAD2 [OPCODE) eql 
then 

beain 

PUT PKT C .MX2) { 

MX2 • -lj 

end$ 

end} 



11 Apr 1984 HiOHMf) 
U-Apr-19fl4 lls08i?2 



VAX -11 Rli M -U> V4.0 S/9 3tU p2ae^ f *l 

DISK IUSER? ; [ POWF.R'J URQAOO . BL d ; 6 ( 24 ) 



! USE 2ND RANDOM NUMBER TO SfeuECT 
! READ 

• WRITE 

J LOAD CHOSEN OPCODE, IF WRITE 

! NON- SEQUENTIAL COMMAND 

• IF CONTROLLER DOFS WRITE -COMPARES 

• ADD COMPARE MODIFIER 



J IF HOST DOES WRITE -COMPARES 



J SET WRITE AS AN EXPRESS REQUEST 

! SET READ OPCODE INTO 2ND MSCP PACKET 

! SFT READ AS AN EXPRESS REQUEST TOO 

J NON- SEQUENTIAL COMMAND 



» NON-SEQUENTIAL COMMAND 

! IF READ COMPARES FUNCTION IS READ 

! ADD COMPARE MODIFIER 

! IF NO OPCODE IN 2ND PACKET 



! RETURN 2ND PACKET TO POOL 
J MARK If UNUSFD 



! ROUTINE QIOJUNC 



OOOCOO 004 1 3 7 000000G 



000004 
O0OO12 
000016 



OH/37 
013/02 
013701 



0000006 
OOOOOOG 
001156' 



0OU56 4 



.SBTTL 

QIO.FUNCs i 
JSR 

MOV 
MOV 
MUV 



QIO.K'NC MULTl-ORXVE TEST ROUUNF 



fll, ISAVE4 
CUO» F , duof y 
CST.ADDR.R2 
UUOFF.Rl 



3 1 >M 



1)10 



/RQAM3 




RO/RX EXERCISER 


V0i,6 




MULT I -DRIVE TEST ROUTINE 


000022 


010100 






000024 


006300 






000026 


060200 






000030 


005 760 


000022 




000034 


003146 






000036 


010100 






000040 


006300 






00004,? 


060200 






000044 


132710 


000020 




000050 


001540 






000053 


010100 






000054 


OO63O0 






000056 


060200 






000060 


005760 


000020 




000064 


100532 






000066 


013746 


000110' 




000072 


004737 


OOOOOOG 




000076 


012737 


177777 


000110' 


000104 


004737 


000000V 




000110 


013701 


001156' 




000114 


006301 






000116 


063701 


OOOOOOG 




000122 


013716 


OOOOOOG 




000126 


012746 


000031 




000132 


0O4737 


OOOOOOG 




000136 


010061 


000022 




000142 


052737 


0O0002 


OOOOOOG 


000 15C 


004 737 


001140' 




000154 


042737 


0O0O02 


OOOOOOG 


000162 


012737 


177777 


000110' 


000170 


013716 


OOOOOOG 




000174 


004737 


OOOOOOG 




000200 


010037 


000106' 




000204 


002426 






000206 


132737 


000001 


OOOOOOG 


000214 


001022 






000216 


013716 


OOOOOOG 




000222 


004737 


OOOOOOG 




000226 


01003/ 


000110' 




000232 


002404 






000234 


132737 


000001 


OOOOOOG 


000242 


001411 






000244 


013716 


000106' 




000250 


004737 


OOOOOOG 




000254 


012737 


177777 


000106' 


000262 


022626 






000264 


OO0207 






000266 


013716 


000106' 




0002 72 


012746 


000106 




0002 76 


004737 


OOOOOOG 




000302 


062700 


OOOOOOG 




000 506 


010037 


000112' 




000312 


013716 


000110* 





11 Apr 1984 U;08;35 
UApr-19H4 1Li08i22 



VAX -11 Bliss 16 V4.0 579 
DISI<IUSER2KP0WERS1ZRQAD0.BL2|6 



SEQ 032 7 . 
Pbq* 96 

(24) 





MOV 


Rl.RO 




ASL 


RO 




ADO 


R2.R0 




TST 


22CR0) 




BGV 


At 




MOV 


Rl.RO 




ASL 


RO 




ADD 


R2,R0 




BITB 


•20, (RO) 




BEQ 


4» 




MOV 


Rl.RO 




ASL 


RO 




ADO 


R2.R0 




TST 


20CR0) 




DMI 


4$ 




MOV 


MX2.-CSP) 




JSR 


PC.PUT.PKT 




MOV 


•-1.MX2 




JSR 


PC.OUP 




MOV 


ouorr.Ri 




ASL 


Rl 




ADO 


CST.AD0R.R1 




MOV 


DUPROUNO.(SP) 




MOV 


•31, (SP) 




JSR 


PC.BLIMUL 




MOV 


R0.22CR1) 




BIS 


•2, DIP. FLAGS 




JSR 


PC.INIT.TEST 




BIC 


•2.DUP. FLAGS 




MOV 


• 1.MX2 




MOV 


CCTLR.(SP) 




JSR 


PC. GET. PKT 




MOV 


R0.MX1 




BLT 


2* 




BITB 


• t.EOP.Fl.Ati 




BNE 


2$ 




MOV 


CCTLR.(SP) 




JSR 


PC. GET, PKT 




MOV 


R0.MX2 




BLT 


IS 




BITB 


• UEOP.Fi.AG 




BEQ 


31 


li: 


MOV 


MX1,(SP) 




JSR 


PC.PUT.PKT 




MOV 


l.HXt 


m i 


CMP 


^SP)».(SP)* 




RTS 


PC 


3$: 


MOV 


MXl.(SP) 




MOV 


0106, (SP) 




JSR 


PC.BLIMU 




ADD 


omscp.pkt.ro 




MUV 


R0.MAD1 




MOV 


MX2,CSP) 



3646 



364 7 



3651 

3652 

3653 
3654 



3655 



3660 
36b 1 
3662 
3664 
3665 



3666 
3594 
3668 



3*6^ 

36 " 1 

3b 72 
3b '3 
3*70 
3b 7b 



3o* 



E10 



ZRQAM3 
VOL 6 

000316 
000322 
000326 
000332 
000336 
000542 
000346 
000352 
000356 
000360 
000364 
000370 
000374 
000400 
000402 
000404 
000410 
000412 
000416 
000420 
000422 
000426 
000430 
0004 36 
000440 
000444 
000446 
000454 
0004 SS 
000462 
000464 
0004 70 

0004 74 
000500 
000504 
000510 
000512 
000520 
000524 
000526 
000532 
000534 
000542 
000546 
000554 
000562 
000*364 

0005 72 
0005 76 
000600 
000606 
000610 
000612 



012 746 
004 737 
062700 
010037 
004 73 7 
004737 
062706 
013700 
006300 
063700 
005360 
013701 
012704 
060104 
105014 
013700 
006300 
063 700 
005710 
100007 
132710 
001404 
132737 
001012 
032710 
001404 
032737 
001403 
012702 
000402 
012702 
013700 
013703 
1 10260 
020227 
001025 
112760 
032703 
001025 
032703 
001425 
012760 
112714 
012761 
112761 
0004 1 1 
112/60 
032703 
001403 
012760 
105714 
001010 
013746 



RD/RX EXERCISER 

MULT I -DRIVE TEST ROUTINES 

000106 

OOOOOOG 

OOOOOOG 

000114' 

010710' 

011020' 

000010 

OOOOOOG 

OOOOOOG 
000022 
0001 14' 
000022 



OOOOOOG 
OOOOOOG 

000020 

000001 OOOOOOG 

1OOO00 

000001 000002G 
000041 

00OO42 

000112' 

OOOOOOG 

000022 

000042 

000002 000004 
000020 

000040 

100000 000024 
000041 

10OOO0 000024 

000002 000004 

000002 000004 
000004 

040000 000024 
000110' 



ll-Apr-1984 11*08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss-16 V4. 0-579 

DISK $USER2 : [ POWERS ]ZRQADO . 3L2 ; 6 



SEQ 0328 
PaQC 9 7 
(24) 





MOV 


0106, CSP) 




JSR 


PC,BL$MUL 




ADD 


omscp.pkt.ro 




MOV 


R0.MAD2 




JSR 


PC .GET. RANDOM 




JSR 


PC.QIO.UNIT 




ADD 


oio.sp 


4*: 


MOV 


CU0FF.R0 




ASL 


RO 




ADD 


CST. ADDR.RO 




DEC 


22CR0) 




MOV 


MAD2.R1 




MOV 


022, R4 




ADD 


R1.R4 




CURB 


CR4) 




MOV 


CUOFF.RO 




ASL 


RO 




ADD 


cst.ador.ro 




TST 


CRO) 




BPL 


5$ 




BITB 


020, CRO) 




BEQ 


5$ 




BITB 


01. FORCED. ERROR 




BNE 


71 


5*; 


BIT 


0100000, CRO) 




BEQ 


6$ 




BIT 


01, RANDOM* 2 




BEQ 


7$ 


6$: 


MOV 


041.P2 




BR 


8$ 


7$: 


MOV 


042. R2 


8$: 


MOV 


MAD1.R0 




MOV 


SWP, FLAGS. R3 




MOVB 


R2.22CR0) 




CMP 


R2.042 




BNE 


9$ 




MOVB 


02. 4CR0) 




BIT 


020. R3 




BNE 


10$ 




BIT 


040, R3 




BEQ 


11$ 




MOV 


-100000, 24 CRO^ 




MOVB 


041.CR4) 




MOV 


O-1000O0.24CR1) 




MOVB 


02.4CR1) 




BR 


11$ 


9$: 


MOVB 


02,4(R0) 




BIT 


04, R3 




BEQ 


11$ 


10$: 


MOV 


04000G.24CRO) 


11*; 


TSTB 


CR4) 




BNE 


12$ 




MOV 


MX2,-CSP) 



•♦FUNC 
♦.FUNC 



; 



j FUNC,* 
; FUNC,* 



36 73 
3679 
3650 
3685 



3686 
3688 



3690 



3691 

3692 

3694 
3697 
3699 
3702 

3704 
3702 

3706 
3708 
3713 
3708 



3711 
3713 
3715 
3713 

3 721 
37^ 
3 7.? 5 
3724 
3 708 
372*9 

3^31 

37 33 

3 " 3 7 

3 MO 



ZRQAM3 
VOL 6 

000616 

00062c? 
000630 
000632 



004737 
012737 
005726 
000207 



RD/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 



OOOOOOG 

177777 



000110 



12* 



F1.0 



11 -Apr -1984 11:08:35 
11 -Apr- 1904 11:08:22 



VAX -11 BlIss-16 V4, 0-579 

DISK *US£R2: [POWERS 1ZRQAD0.BL2} 6 



JSR 


PC, PUT, PKT 


MOV 


0-I.MX2 


tst 


(SP)» 


RTS 


PC 



SEQ 0329 
Page 98 
C24) 



3741 
3739 
3594 



Routine Size: 206 words, Routine Base: $CODE$ * 12426 
Maximum stack depth per Invocation; 10 words 



G10 



ZRQAM3 


VOl, 6 


l 3745 l 


5 3746 1 


; 3747 1 


3748 1 


3749 1 


; 3750 1 


; 3751 1 


i 3752 1 


; 3753 1 


; 3754 1 


i 3755 1 


; 3756 1 


; 3717 1 


; 3750 1 


i 3759 1 


; 3760 1 


j 3761 1 


; 376.? 1 


3763 1 


; 3764 1 


: 3765 1 


; 3766 1 


{ 3767 1 


; 3768 1 


; 3769 1 


; 3770 1 


; 3771 1 


; 3772 1 


j 3773 1 


; 3774 l 


; 3775 1 


i 3776 1 


; 3777 1 


; 3778 1 


; 3779 1 


; 3780 1 


! 3783 1 


i 3782 1 



RD/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 



GLOBAL ROUTINE DUP : NOVALUE 



ll-Apr-1984 11:08:35 
11 -Apr- 1984 11:08:22 



VAX-11 BlJss-16 V4. 0-579 
DlSKtUSER2:[P0WERS]ZRQAD0.BL2}6 



SEQ 0330 
Page 99 
(25) 



THIS ROUTINE IS CALLED BY QIO FUNC AFTER 25 * 'DUPROUND' RD/WTS, 
THIS EXERCISER WAS PLACED IN THE MIDDLE OF THE MSCP EXF.RCISER, 
SO COMMON INIT AND OTHER ROUTINES COULD BE USED. 

THE DUP EXERCISER WILL PERFORM EITHER READ-ONLY. OR WRITE-READ- 
COMPARE OPERATIONS ON THE DIAGNOSTIC BLOCKS CDBNS). IT WILL 
RECORD THE STATISTICS IN THE TALLY TABLES. 

THE PROGRAM USES CONTROLLER LOCAL PROGRAMS TO WRITE AND READ 
DBNS, WHEN WRITING TO THE DBNS, A ONE WORD PATTERN WILL BE 
SELECTED, AND REPLICATED THROUGH A 256 WORD BLOCK FOR DATA. 
THE ROUTINE WILL WRITE 'DUPROUND' NUMBER OF SEQUENTIAL DBN 
BLOCKS. IF THE CONTROLLER LOCAL PROGRAMS EXIST, AND THE OPERATOR 
SELECTS 'WRITE TO DIAGNOSTIC AREA', WRITE -READ -COMPARES WILL BE 
PERFORMED ON THE DBNS. OTHERWISE, READS WITH NO COMPARES WILL BE 
DONE. BAD BLOCKS FOLND IN THE COMPARISON TESTS WILL NOT BE LIST- 
ED IN THE RCT TABLES. 

AFTER 'DUPROUND' NUMBER OF DBNS HAVE BEEN TESTED, THE ENVELOPES 
WILL BE REINITIATED. SO THAT THE MSCP EXERCISER CAN CONTINUE 
AS BEFORE. 

IMPLICIT INPUTS: 

CCTLR - CURRENT CONTROLLER NUMBER 
CST_ADDRS - CONTAINS THE CURRENT CONTROLLER 

STATUS TABLE 
CUOFF - CURRENT OFFSET IN CST TABLE FOR 
PARTICULAR DRIVE 

IMPLICIT OUTPUTS: 

SLATTERN - PATTERN BEING WRITTEN TO DBNS 



Mil 
III 
111 
III 
111 
111 
11.1 
111 
111 
111 
III 
111 
HI 
111 
III 
III 
111 
III 
III 
111 
III 
III 
111 
III 
111 
III 
III 
111 
Til 
III 
111 
III 
111 
Mil 
Mil 



Mil 



/RQAM3 
V01 .6 



3783 

3 784 
3785 
3786 
3787 
3768 
3789 
3 790 
3791 
3792 
3/93 
3 794 
3 795 
3 796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
331? 



und 



N 



TP 



3815 
3814 
WRITE 
3815 
3816 
3817 

3818 
3819 
3820 

3821 
3822 
3823 
3824 
3825 
3826 



2 
3 
3 
? 
3 
3 
3 
2 
2 
2 
2 

2 
2 
2 
2 
2 

"3 



3 
3 

DBN'S 

3 
4 
4 

4 
3 
3 
3 
3 
3 
3 
3 
3 



382 / 3 

3828 2 

3829 1 



RO/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 



H10 

U-Apr-1984 11 ! 08 ; 35 
U-Apr-1984 11:08:22 



VAX- 11 Bllss-16 V4. 0-579 
0ISK$USER2: [POWERS ]ZRQAD0,BL2; 6 



SEQ 0331 

Page 100 
C26) 



BEGIN 

OWN 



TEMP : WORD; 



•PRINTX (DBM110); 
.♦PRINTX CDER10); 



! TO ENSURE THAT ALL RETURN MESSAGES HAVE BEEN PROCESSED 
! Make sure all MSCP commands ore completed 



until C.CRN_LOU eqlu .RP ADDR [CRFJ.O]) or 
C.EOP-FLAG eql true) do 
begin 

BREAK; • BREAK FOR ACT 

PROC.RETPKTC); ! PROCESS RETURN PACKET TO SEE IF OK FOR DUP 

RP_INDX - .RP_INDX ♦ lj • INCREMENT RP_INDX 

If .RP.INOX geq RP.CNT then (RP INDX « 0;); ! MAKE SURE THE COUNTER DOES NOT GET TO BIG 
RP_ADDR - RETPKT * (,RP„INDX + RP_LEN * 2){ ! CALCULATE RETPKT ADDRESS 
end; 



S.PATTERN - , RANDOM [l]j 



.'OTHER UNIT VARIABLES 



IF (.CST^ADDR [.DUOFF + OF.DBN, D.DBN] ♦ .dupround) GEQ 144 ! TEST TO SEE IP NEXT OBN' S TO LARGE 
THEN (CST.ADDR [.DUOFF ♦ OF_DBN, D„DBN] - 0); ! CIRCLE ARROUND IF DBN TO LARGE 

DUPIDLE C); ! 00 A GET DUST STATUS TO FIND IF LOCAL DUP MEDIA 

IF .CST_ADDR [.DUOFF ♦ OF^DBN, NODUPMEDIA] EQL 1 THEN RETURN; » IF DUP LOCAL MEDIA NOT THERE THEN RETURN 



TFMP = .CST^ADDR [.DUOFF * OF_DBN, D OBN); 

1NCR DBNCNT FROM (.TEMP * 1) TO (.TEMP ♦ ,dupround) DO 

BEGIN 

IF .CST.ADDR [.DUOFF ♦ OF_DBN, DUPWRITE] 



THEN 



BEGIN 
DUPIDLE ( ); 

DUPWRTDBN (); 
ENO; 



DUPIDLE ( ); 
DUPREDDBN ( )j 



! INCREMENT FROM RELATIVE DBN TO DBN ♦ dupro 
• IF WRITE FLAG SET IN CST TABLE THE 

! MAKE SURE THE CONTROLLER IS IN AN IDLE STA 
• CALL ROUTINE TO HANDLE WRITTING ROUTINES 



! MAKE SURE CONTROLLER IN IDLE STATE 
! CALL ROUTINE TO HANDLE READING DBN'S 



C?T„ADDR [.DUOFF ♦ OF_DBN, D_DBN1 • .CST.ADDR [.DUOFF * OF_DBN, D.DBN] ♦ 1; ! INCREMENT RELATIVE OBN COUNTER 



END; 



IF .CST.ADDR [.DUOFF ♦ OF^DBN, DUPERRORl EQL 1 

THEN RETURN} 

END; 



■ ERROR IN DUP REINITIALIZE 
I AND RETURN 



001 1. ■ f : 4 
001204 



TEMP; 



.f'Sf XT 
.BLKW 



iUUU$t RO 
1 



ZRQAM3 
V01.6 



RO/RX EXERCISER 

MUl.TI -DRIVE TEST ROUTINES 



1 1 

ll-Apr-1984 11:08:35 
ll-Apr-1984 lli08:22 



VAX-11 BlIss-16 V4. 0-579 

DISK SUSER2 : [ POWERS 1ZRQAD0 , BL2 j 6 



SEQ 0332 
Po©« 101 
(26) 



013262 



000000 


004137 


OOOOOOG 


000004 


013700 


OOOOOOG 


000010 


023760 


OOOOOOG 000004 


000016 


001433 




000020 


123727 


OOOOOOG 000001 


000026 


001427 




000030 


10' ■" ''2 




000032 


oo«. ■■•• 


oooooov 


000036 


00523 7 


OOOOOOG 


000042 


023727 


OOOOOOG 000010 


000050 


002402 




000052 


005037 


OOOOOOG 


000056 


013746 


OOOOOOG 


000062 


012746 


C00054 


000066 


004737 


OOOOOOG 


000072 


062700 


OOOOOOG 


000076 


010037 


OOOOOOG 


000102 


022626 




000104 


000737 




000106 


013737 


000002G OOOOOOG 


000114 


013700 


001156' 


000120 


006300 




000122 


063700 


OOOOOOG 


000126 


005001 




000130 


156001 


000020 


000134 


063701 


OOOOOOG 


000140 


020127 


000220 


000144 


002402 




000146 


105060 


000020 


000152 


004737 


OOOOOOV 


000156 


013700 


001156" 


000162 


006300 




000164 


063 700 


OOOOOOG 


000170 


005 760 


OC0020 


000174 


10045b 




000176 


116037 


000020 001204' 


000204 


105037 


001205' 


000210 


013703 


001204' 


000214 


063703 


OOOOOOG 


000220 


013700 


001156' 


000224 


006300 




000226 


06 3700 


OOOOOOG 


000232 


010001 




000234 


062701 


000020 


000240 


013702 


001204* 


000244 


000427 




000246 


032711 


010000 


000252 


001404 




000254 


004737 


oooooov 





.SBTTL 


DUP MULT I DRIVE TEST 


ROUTINES 




.PSECT 


*C0DE$, RO 




DUP : : 


JSR 


R1,*SAVE3 




1$: 


MOV 


rp.addr.ro 






CMP 


CRN.L0W.4CR0;) 






BEQ 


3* 






CMPB 


EOP.FLAG.fll 






BEQ 


3$ 






TRAP 


22 






JSR 


PC.PROC.RETPKT 






INC 


RP.INDX 






CMP 


RP.INDX.010 






BLT 


2$ 






CLR 


RP.INDX 




2$: 


MOV 


RP.INDX, (SP) 






MOV 


054. -CSP) 






JSR 


PC.BLIMUL 






ADD 


oretpkt.ro 






MOV 


RO.RP.ADDR 






CMP 


(SP)*,CSP)* 






BR 


1$ 




3$j 


MOV 


RANDOMS, 5. PATTERN 






MOV 


DUOFF , RO 






ASL 


RO 






ADD 


CST.ADOR.RO 






CLR 


Rl 






BISB 


20(R0).R1 






ADD 


DUPR0UND.R1 






CMP 


R 1,0220 






BLT 


4$ 






CLRB 


20CR0) 




4$: 


JSR 


PC. DUP IDLE 






MOV 


DUOFF, RO 






ASL 


RO 






ADD 


cst.addr.ro 






TST 


20CR0) 






BMI 


8$ 






MOVB 


20(R0),TEMP 






CLRB 


TEMP* I 






MOV 


TEMP, R 3 






ADD 


DUPR0UND.R3 






MOV 


DUOFF.RO 






ASl 


RO 






ADD 


CSI.ADDR.RO 






MOV 


R0.R1 






ADD 


020 , R 1 






MOV 


TEMP.R2 






BR 


7* 




5$: 


BIT 


010000, (Rl ) 






BEQ 


6$ 






JSR 


PC.DUPIDLE 





3 746 
3792 



3793 

3794 
3 796 
379 7 
3798 



3799 



3794 
3^92 
3803 
3805 



j ♦.DBNCNT 



3806 
3808 
3509 



3811 
3812 
3814 

3812 
5*14 
331'' 



ZRQAM3 

VOl.b 

000260 

000264 
000270 
000? 74 
000300 
000302 
000306 
000310 
000314 
000316 
000322 
000324 
000326 
000330 
000332 



004737 
004 73 7 

004 75? 
013700 
006300 
063700 
010001 
062701 
105211 
032711 
001003 
005202 
020203 
003746 
000207 



RD/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 



OOOOOOV 
000000V 
OOOOOOV 
001156' 

OOOOOOG 

000020 

040000 



6$ 



7$ 
8$ 



J 10 

11 -Apr- 1984 11:08:35 
ll-Apr-1984 11:08:22 



VAx-11 Bliss-16 V4.0 579 

DISK *USER2;[ POWERS )ZRQAD0.BL2j 6 



JSR 


PC.DUPWRTDBN 


JSR 


PC.DUPIDLE 


JSR 


PC.DUPREDDBN 


MOV 


DUOFF,RO 


ASL 


RO 


ADD 


CST.ADDR,RO 


MOV 


R0.R1 


ADD 


020, Rl 


INCB 


CR1) 


BIT 


040000. (Rl) 


BNf: 


8$ 


INC 


R2 


CMP 


R2.R3 


BLE 


5$ 


RTS 


PC 



SEU 0333 
Page 102 
(26) 

3818 

3821 
3822 
3824 



OBNCNT 

DBNCNT,* 



3826 
382 7 
3812 



3746 



Routine Size; 110 words, Routine Base: $C0DE$ ♦ 13262 
Maximum stack depth per invocation; 7 words 

3830 1 



\s I (\ 



ZRQAM3 




VOL 6 




; 3831 


1 


; 3832 


1 


; 3833 


1 


; 3834 


1 


j 3835 


1 


; 3836 


1 


; 3837 


1 


j 3838 


1 


j 3839 


1 


j 3840 


1 


j 3841 


1 


; 3842 


1 


; 384 3 


1 


; 3844 


1 


; 3845 


2 


j 3846 


2 


; 384 7 


2 


; 3848 


2 


; 3849 


2 


N 




; 3850 


2 


; 3851 


2 


3852 


2 


j 3853 


2 


; 3854 


2 


; 3855 


2 


; 3856 


2 


; 3857 


c 


; 3858 


2 


; 3859 


2 


; 3860 


2 


; 3861 


2 


; 3862 


2 


; 3863 


2 


j 3864 


3 


; 3865 


2 


3866 


2 


; 3867 


2 


; 3868 


2 


; 3869 


2 


pec 




j 3870 


2 


; 3871 


2 


5 3872 


2 


; 367 3 


2 


; 3874 


2 


; 38 75 


t. 


j 38 76 


2 


; 387/ 


3 


; 3878 




; 38/9 


3 


; 3880 


3 


i 3881 


■ . 


; 3882 




; 3883 


3 



RD/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 

GLOBAL ROUTINE DUPWRTDBN : NOVALUE 



K10 

ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss-16 V4. 0-579 

DISK $USER2 : C POWERS ] ZRQADO . BL2 j 6 



SEQ 0334 
Page 103 
(27) 



THIS ROUTINE IS CALLED BY DUP ROUTINE TO USE THE CONTROLLER LOCAL PROGRAM 
"WRTDBN". TO USE THE PROGRAM THE OPTIONAL UUP SUB-PROTOCAL IS USED TO 
COMMUNICATE WITH THE CONTROLLER. THE PROGRAM WRITES TO A DIAGONOSTIC BLOCK CDBN) 
THE WORD IN "S_PATTERN" IS WRITTEN TO THE 256 WORDS IN THE DBN. IF AN ERROR OCCURS 
WHILE RUNNING THE CONTROLLER LOCAL PROGRAM THE ERROR IS USSUALLY REPORTED IN THE 
DUP BUFFER. (EX. ILLEGAL UNIT NUMBER, ILLEGAL BLK #, DEVICE ERROR, ZERO LENGHT MSG) 



IMPLICIT INPUTS; 
CST„ADDRS 
DUOFF 
S_PATTERN 
BEGIN 

PRINTX CDERlDj 
T_ADDR [T_DBN_WT] - .T„ADDR [T DBN WT ] ♦ lj 



CONTAINS THE CURRENT CONTROLLER STATUS TABLE 
CURRENT OFFSET IN CST TABLE FOR PARTICULAR DRIVE 
CONTAINS PATTERN WORD ! - 



MSCP.PKT [.MX1, MSGLEN] - SZ_ELP 5 



! INCREMENT 4> OF WRITES GIVEN 
I PACKET SIZE 



EXECUTE LOCAL PROGRAM WRT DB 



MSCP PKT [ .MX1, 
MSCP PKT [ ,MX1, 
MSCP PKT CMX1, 
MSCP PKT [ .MX1, 
MSCP PKT f.MXl, 
MSCP PKT [ .MX1, 
MSCP>KT [ .MX1, 
MSCP PKT [ ,MX1, 
MSCP PKT f .MX1. 
DUPCOMMAND C 1 ; 



OPCODE] - OP 



LI] 
L.^l 

L3J 
L4] 
L5] 
L6] 

MODIFY] 
MSGTYP] 



ffasc i 
*asc i 
*asc i 
tfasc 1 
rfasc i 

1 

IMM.CMD; 



ELP 
W' : 
R' 5 

T' j 

D' ! 

B' j 
N' : 



! OPCODE * EXECUTE LOCAL PROGRAM 

! FILL IN PROGRAM NAME WITH ASCII LETTERS 



IF .CST ADDR 
THEN RETURN; 



[.DUOFF ♦ OF^DBN, DUPERROR] EQL 1 



! STANDALONE MODIFIER 

♦ CALL IT IMMEDIATE 

» SENDS AND RECEIVES THE COMMAND 

! status error 

♦ AND RETURN 



DO CMX1 - GET.PKT C.CCTLR)) 
UNTIL C.MX1 GEQ 0)j 



! TRY TO GET AN ENVELOPE. IF FAILURE LOOP P3G ERROR 



MSCP_PKT f.MXl. MSGLEN] - SZ REC: 

MSCP PKT r.MXl, OPCODE] « OP RCD { 

MSCP_PKT f.MXl, BC_LO] - 80:" 

MSCP.PKT C.MX1, BUF 0] - DUPPKTj 

MSCP_PKT f.MXl, MODIFY] - Oi 

MSCP_PKT f.MXl, MSGTYP] » SEQ CMD : 
DUPCOMMAND ()j 



RECIEVE DATA 



! PACKET SIZE 

! OPCODE - RECEIVE DATA 

! B V TE COUNT TO BE TRANSFERED EQUALS 2 *+*see pg 2b of DUP s 

! LOAD DE5CRIBT0R BUFFER 
I 

! CALL IT sequential 

! SENDS AND RECEIVES THE COMMAND 



IF C.CST_ADDR [.DUOFF ♦ OF_DBN, DUPERROR] EQL 1) OR istatus error 
C.DUPPKT [DUPTYPE] NEQU 1) OR !dup type error 

C.DUPPKT [DUPMESG] NEQU 6) 
THEN 

C HARD ERROR ( ) * 
CST .ADDR [.DUOFF » OF_DBN, DUPERROR] - lj ! Sb T FLAG 
RETURN: )j J NO POINT IN CONTINUING 

DO (MX1 - GET.PKT (.CCTLR)) 



110 



ZRQAM3 
VOL 6 



3884 
3885 
3886 
3887 
3888 
3889 
3890 
3891 
3892 
3893 
3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 

391 ; 

3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 



RD/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 

UNTIL C ,MX1 GEQ 0); 



11 -Apr- 1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss-16 V4. 0-579 

DISK $USER2 :[ POWERS 1ZRQAD0 . BL2 ; 6 



SEQ 0335 
Page 104 
(27) 



TRY TO GET AN ENVELOPE, IF FAILURL LOOP PRG ERROR 



MSCP.PKT C.MX1, MSGLEN1 
MSCP_PKT C.MX1, OPCODE] 
r.MXl, BC.LO] 



MSCP.PKT 



SZ„SEN; 
OP SDD; 
6j 
MSCP PKT [.MX1, BUF 0] - DUPPKT; ! 

DUPPKT [DUPBFO] - .CST_ADDR r. DUOFF, D DISK_NUM]j 

■ »CST_ADDR f .DUOFF 
- .S PATTERN; 
MODIFY] - Oj 



DUPPKT [DUPBF1J 
DUPPKT CDUPBF2] 
MSCP.PKT C.MX1, 
MSCP PKT [,MX1, 
DUPCOMMAND C ) ; 



! PACKET SIZE 
! OPCODE - SEND DATA 

! BYTE COUNT TO BE T RANSFERED EQUALS 6 
! LOAD DESCRIBTOR BUFFER 
•LOAD UNIT NUMBER (RDRX) 
t OF, DBN, D„DBN]} ! LOAD DBN NUMBER 
! LOAD PATTERN 



SEND DATA 



MSGTYP] - SEQ_CMD{ 



IF .CST.ADDR [.DUOFF ♦ OF DBN, DUPERR0R3 EQL 1 
THEN RETURN; 



! CALL IT sequential 

! SENDS AND RECEIVES THE COMMAND 

! status error 



DO (MX1 • GET PKT C.CCTLR)) 
UNTIL ( .MX1 GEQ 0); 

MSCP..PKT t.MXl, MSGLEN] * 52 HEC; 

MSCP PKT t.MXl, OPCODE] - OP UCD; 

MSCP^PKT [,MX1, BC LO] - 4; 

MSCP. PKT r.MXl, BUF_0l - DUPPKT; 

MSCP„PKT [.MX1, MODIFY] - 0; 

MSCP. PKT [,MX1. MSGTYP) « SEQ CMD j 
DUPCOMMAND C ) ; 



! TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRG ERROR 

PACKET SIZE RECEIVE DATA 

OPCODE - RECEIVE DATA 

BYTF. COUNT TO BE TRANSFERED EQUALS 4 

LOAD DESCRIBTOR BUFFER 



CALL IT sequential 

SENDS AND RECEIVES THE COMMAND 



IF (.CST_ADDR [.DUOFF ♦ OF.DBN, DUPERROR] EQL 1) or 
(.DUPPKT [DUPTYPE] NEQU 3) or 
(.DUPPKT [DUPMESG] NEQU 3) or 
(.DUPPKT [DUPBF1] NEQU 0) 
THEN 

(HARD ERROR ( )* 
CST.ADDR [.DUOFF ♦ OF.DBN, DUPERROR] 
RETURN;); 



! status error 
!dup type error 

!non successful write code 



1; • SET FLAG 

{ NO POINT IN CONTINUING 



DO (MX1 - GET PKT C.CCTLR)) 
UNTIL ( ,MX1 GEQ 0); 

T..ADDR [T„BLK„WT] = .T_ADDR [T.BLKJJT] * 1; 

END; 



J TRY TO GET AN ENVELOPE. 
•INCREMENT COUNTER IF A SUCCESS 



000000 010146 



000002 
000006 
000012 
000016 
000022 
000026 



015/00 
005260 
013746 
012746 
C04 737 
012760 



OOOOOOG 

000060 

000106' 

000106 

OOOOOOG 

000022 00Q0Q6G 



.SBTTL 


DUPWRTDBN MULTI -DRIVE 


DUPWRTOBN: : 




MOV 


HI. (SP) 


MOV 


T.ADDR,RO 


INC 


bO(RO) 


MOV 


MX1, (5P) 


MOV 


#106, -(SP) 


JSR 


PC.BL*MU 


MOV 


#22»MSCP»PKT»6CR0) 



TEST ROUTINES 



3831 
384"' 

3649 



M10 



ZRUAM3 
VOL 6 

000034 
00004c? 
000050 
000056 
000064 
000072 
000100 
000106 
000114 
000122 
000126 
00O132 
000134 
000140 
000146 
000150 
000152 
000154 
000160 
000164 
000170 
000172 
000174 
000200 
000204 
000212 
000220 
000226 
000234 
000240 
000246 
000254 
000260 
000264 
000266 
000272 
000300 
000302 
000306 
000312 
000316 
000320 
000324 
000330 
000334 
000336 
000342 
000346 
000350 
000354 
000362 
000366 
000370 



RO/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 



112760 
112760 
112760 
112760 
112760 
112760 
112760 
012760 
142760 
004737 
013700 
006300 
063700 
032760 
001402 
022626 
000505 
013716 
004737 
010037 
002771 
010016 
012746 
004 737 
012760 
112760 
012 760 
012760 
005060 
142760 
152760 
004 737 
013700 
006300 
063700 
032/60 
001016 
013700 
042/00 
020027 
001007 
013700 
042700 
020027 
001415 
004 737 
013700 
006300 
063700 
052 760 
062706 
000504 
013716 



000003 

000127 

000122 

000124 

000104 

000102 

000116 

000001 

000360 

000000V 

001156' 



000022G 
000026G 
000027G 
000030G 
000031G 
000032G 
0C0033G 
000024G 
0000 10G 



OOOOOOG 
040000 000020 



OOOOOOG 
OOOOOOG 
000106* 



000106 

OOOOOOG 

000034 

000005 

000120 

OOOOOOG 

000024G 

000360 

000020 

oooooov 

001156' 



OOOOOOG 
040000 

OOOOOOG 
007 777 
010000 

OOOOOOG 

170000 

000006 

OOOOOOV 
001156 1 

OOOOOOG 

040000 

000006 

OOOOOOG 



000006G 
000022G 
000026G 
00OO32C; 

000010G 
000010G 



000020 



1$ 



2$ 



000020 



3$ 
4$ 



ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 

MOVB #3.MSCP.PI<T*22(R0) 

MOVB #127 , MSCP . PKT +26( RO ) 

MOVB #122 ♦ MSCP . PKT ♦ 27( RO ) 

MOVB #124 , MSCP . PKT »30(R0 ) 

MOVB #104 , MSCP. PKT ♦31CR0) 

MOVB #102 , MSCP . PKT ♦ 32C RO ) 

MOVB #116, MSCP . PK T f 33C RO ) 

MOV #1,MSCP.PKT*24(R0) 

BICB #360 , MSCP. PKT f IOC RO) 

JSR PC.OUPCOMMAND 

MOV DUOFF.RO 

ASL RO 

ADD CST.ADDR.RO 

BIT #40000, 20CR0) 

BEQ 1$ 

CMP CSP)*,CSP)* 

BR 3$ 

MOV CCTLR.CSP) 

JSR PC. GET. PKT 

MOV R0.MX1 

BUT 1* 

MOV RO.CSP) 

MOV #106, -CSP) 

JSR PC.BLJMUL 

MOV #34 , MSCP . PKT *6( RO ) 

MOVB #5 ♦ MSCP . Pl< T ♦ 22 C RO ) 

MOV #120, MSCP, PKWto(RO) 

MOV #DUPPK T , MSCP . P1< T ♦ 32 ( RO ) 

CLR MSCP.PKT*24CR0) 

BICB #360, MSCP. PKT *10(R0) 

BISB #20,MSCP.PKT*10(RO) 

JSR PC.OUPCOMMAND 

MOV DUOFF.RO 

MSI. RO 

ADO CST.ADDR.RO 

HIT #40000, 20(R0) 

BNE 2$ 

MOV DUPPKT.RO 

BIC #7777. RO 

CMP RO. #10000 

BNE 2* 

MOV DUPPKT.RO 

BIC #170000, RO 

CMP RO , #f, 

BEQ 4$ 

JSR PC, HARD. ERROR 

MOV DUOFF.RO 

ASL RO 

AOD CST.ADDR.RO 

BIS #40000, 20CR0) 

ADD #6,SP 

BR 5i 

MOV CCTLR,(SP) 



VAX-11 Bliss-16 V4. 0-579 

DISK $USER2 : [ POWERS ]ZRQADO , BL2 { 6 



SEQ 0336 
Page 105 
(27) 

3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3861 



3831 
3862 
3864 



3865 
3867 



3868 
3869 
3870 
3871 
3872 

3873 
3875 



3876 



38 77 



38 .'9 
3880 



3881 

38 » 
388? 



N10 



2RQAM5 
VOl .6 

000374 
000400 
000404 
0004C6 
000410 
000414 
000420 
000426 
0004 34 
000442 
000450 
000454 
000436 
000462 
000466 
0004 74 
000500 
000502 
000506 
000514 
000520 
000526 
000532 
000540 
000546 
000552 
000556 
000560 
000564 
000572 
000574 
000600 
000602 
000606 
000612 
000616 
000620 
000622 
000626 
00063? 
000640 
000646 
000654 
000662 
000666 
000674 
000/02 
000706 
000712 
C0O714 
000720 
000 726 
000730 



004/37 
010037 
002771 
010016 
012746 
004737 
012760 
112760 
C12760 
012760 
013701 
006301 
063701 
111137 
042737 
013701 
006301 
063701 
116137 
105037 
013737 
005060 
142 760 
152760 
004 73 7 
013700 
006300 
063700 
032 760 
001403 
062 706 
00052< 
013716 
004 737 
010037 
002771 
010016 
012746 
004 73 7 
012760 
112760 
012760 
012760 
005060 
142760 
152760 
004737 
013700 
006300 
063700 
032760 

ooio;n 

013700 



RD/RX EXERCISER 

MULT I -DRIVE TEST RUUTINES 

OOOOOOG 
000106* 



000106 

OOOOOOG 

000034 

000004 

000006 

OOOOOOG 

001156' 

OOOOOOG 
OOOOOOG 
177760 
001156' 

OOOOOOG 

000020 

00000 3G 

OOOOOOG 

000024 G 

000360 

000020 

000000V 

001156' 

COOOOOG 
040000 

000010 

OOOOOOG 
OOOOOOG 
000106' 



000106 

OOOOOOG 

000034 

000005 

000004 

OOOOOOG 

000024G 

000360 

000020 

000000V 

001156' 



000006G 
000022G 
000026G 
000032G 



OOOOOOG 

000002G 

000004G 

000010G 
000010G 

000020 



000006G 
00OO22G 
000026G 
00OO32G 

00OO10G 
000010G 



5$: 
6$: 



OOOOOOG 
040000 000020 

OOOOOOG 



11 -Apr- 1984 11 {08:35 
U-Apr-1984 11:08:22 

JSR PC.GET.PKT 

MOV R0,MX1 

BLT 4$ 

MOV ro.csp; 

MOV 0106, (SP) 

JSR PC.BUMUL 

MOV 034, MSCP. PKT^GCRO) 

MOVB 04 , MSCP . PK T ♦ 22 C RO ) 

MOV O6.MSC?.PKT»26(R0) 

MOV OOUPPK T , MSCP . PK T f 32 ( RO ) 

MOV DU0FF.R1 

ASL Rl 

ADO CST.ADDR.R1 

MOVB (RD.DUPPKT 

BIC 0177760, DUPPKT 

MOV DU0FF.R1 

ASL. Rl 

ADD CST.ADDR.R1 

MOVB 20(Rl),DUPPKT*2 

CLRB DUPPKT*3 

MOV S. PATTERN, DUPPKT>4 

CLR MSCP.PKT*24(R0) 

BICB 0360. MSCP. PKT*10(R0) 

B1SB 020, MSCP. PKTaOCRO) 

JSR PC.DUPCOMMANO 

MOV DUOFF.RO 

ASL RO 

ADD CST.ADOR.RO 

BIT 040000, 20CR0) 

BEQ 6$ 

ADD 010, SP 

BR 10$ 

MOV CCTLR,CSP) 

JSR PC.GET.PKT 

MOV R0.MX1 

BLT 6$ 

MOV RO.(SP) 

MOV 0106, -CSP) 

JSR PC,BL*MUL 

MOV 034 .MSCP . PK T ♦ 6C RO ) 

MOVB 05 , MSCP . PK T »22( RO ) 

MOV 04 , MSCP . PK T ♦ 26 C RO ) 

MOV 0DUPPKT,MSCP.PKT*3i?(R0) 

CLR MSCP.PKT*24(R0) 

BICB 0360.MSCP.PKT* IOC RO) 

B ISB 020 , MSCP . PK T ♦ 10( RO ) 

JSR PC.DUPCOMMANO 

MOV DUOFF.RO 

ASL RO 

ADD CST.ADOR.RO 

BIT 040000, 20CR0) 

BNE 7% 

MOV DUPPKT.RO 



VAX-U Bliss -16 Vfl. 0-579 
DISK$USER2t[PQWERS)ZRQAD0.BL2i6 



SEQ 033/ 
Page 106 
C27) 



3884 
3886 



388 7 
3888 
3889 
3890 



3891 



3892 
3893 
3894 

3895 
3897 



3831 
3898 
3900 



3901 
3903 



3904 
3905 
390*1 
590 * 
3908 

3909 
3911 



391, 



n 1 1 



/RUAM3 
VOL 6 

OOO? 34 

000740 
000 744 
000 ?46 
000752 
000? 56 
000762 
000 764 
000 7 70 
000 ? 72 
000 7 ?6 
001002 
001004 
001010 
00101b 
001020 
001024 
001050 
001054 
001036 
001042 
C01046 
001052 
001054 



O42 700 
020027 
001012 
013700 
042700 
02002 7 
001003 
005737 
001413 
004737 
013700 
006300 
063 700 
052 760 
000413 
013716 
004737 
010037 
002 771 
013700 
005260 
062706 
012601 
00020 7 



RD/RX EXERCISER 

MU T I -DRIVE TEST ROUTINE 

00 77 7? 
030000 



OOOOOOG 

170OO0 

000005 

000002G 

000000V 
001156' 

OOOOOOG 
040000 

OOOOOOG 
OOOOOOG 
000106' 

OOOOOOG 

000056 

000012 



S 



?*! 



000020 



»*; 



91: 

10$ 



U Apr- 1984 11 :08j 35 
11 Apr*l9tt4 Us08i22 



VAX 11 Bli»al6 V4.0 5f9 

DISK IUSER2t[ POWERS ]/RQAD0*8L2j6 



BIC 07777, RO 

CHP R0.P5OO00 

BNE 71 

MOV DUPPKT.RO 

BIC 01 70000, RO 

CMP R0.03 

BNf n 

TST DUPPKT.2 

BEO Si 

JSR PC, MARC, ERROR 

MOV DUOET.RO 

ASL RO 

ADO CST.ADOR,RO 

BIS #40000, 20CR0) 

BR 9» 

MOV CCTLR.(SP) 

JSR PC.GET.PKT 

MOV R0.MX1 

BLT 8$ 

MOV T.ADOR.RO 

INC 561 RO) 

ADO «12,SP 

MOV (SP)»,Ri 

RTS PC 



StQ 3 58 
Po»« 107 

(2/) 



wn 



3914 

3916 
391/ 



V*1H 
WO 



5921 
39 t »3 

3845 
3631 



l Rout !r># S *» /•: 
; Maximum stock 



^m wor<H, Moutirt* Butt: ICODEI ♦ 13616 

c*cpth per irwocat »Ort: '? worchi 



II 



/HUAM3 



ec 



34 t >6 

34/8 
39/9 
54J0 
5451 
595.? 
5955 

3955 

3936 
395: 
3438 
3934 
3940 
3441 
394 ?_ 
394 3 
3944 
3945 
3946 
3447 
3448 
3449 
3950 
3951 
3952 

3953 P 

3954 2 

3955 2 

3956 c? 

3957 «? 

3958 / 

3959 ? 
5960 3 
^461 ? 
3962 c) 

3% 3 ;-? 

3964 ? 
3465 2 



3466 
346 7 
3968 
3969 
39/0 
39 71 <> 
397? ? 
59/3 ^ 

39 74 r 

3975 3 

39/6 5 

397 7 ;> 

397a 2 



R0 MX EXERCISER 

MU II -DRIVE TEST ROUTINES 

GLOBAL ROUTINE DUPREDDBN { NOVAl UE 



11 Apr 1984 11 j08j35 
11 Apr -1984 Ui06i<>2 



VAX -11 Bliss- 16 V4.0 5/9 

DISK IUSERHjI POWERS ]ZRQAD0.BL2 f 6 



SEQ 3 39 

Pag* 108 
(28) 



THIS ROUTINE IS CALLED By DUP ROUTINE TO USE THE CONTROLLER LOCAL PROGRAM 

"REDDBN". TO USE THE PROGRAM THE OPTIONAL OUP SU6-PR0T0CAL IS USED TO 

COMMUNICATE WITH THE CONTROLLER, THE PROGRAM REAPS A DIAGONOSTIC BLOCK CORN) 

ANO PLACES IT IN THE OUP BUFrER CALLED "DUPPKT". IF AN ERROR OCCURS WHILE 

RUNNING THE. CONTROLLER LOCAL PROGRAM THE ERROR IS USSUALLY REPORTED IN THE 

OUP BUFFER, CFX, IllFGAL UNIT NUMBER, ILLEGAL BLK 0, DFVICE ERROR, ZERO LENGHT MSG) 



IMPLICIT INPUTS: 
CST ..ADDR 
OUOFF 



CONTAINS THF. CURRENT CONTROLLER STATUS TABLE 
CURRENT OFFSET IN CST TABLE FOR PARTICULAR DRIVE 



BEGIN 

•PRINTX (DER12)j 

T .ADDR [T„DBN_RD] 



T ADDR [T DBN.RD) ♦ li 



MSCP PKT 
MSCP PKT 
MSCP P.<T 
MSCP PKT 
MSCP_PKT 
MSCP PKT 
MSCP PKT 
MSCP PKT 
MSCP PKT 
MSCP PKT 



[ 



[ 
[ 
DUPCOMMANO 



MXl 
MX1 
MX1 
MXl 
MX1 
MX1 
MX1 
MXl 
MXl 
MXl 
Ol 



MSGLEN] 
OPCODE ) 



SZ 
OP 



LI) 
L21 
L.3) 
L4) 
L51 
L6] 



fate ! 

*asc i 
if asc i 
tfasc I 
*a*c I 
*a»c i 



ELPi 
ELPj 

R 1 
E' 
0' 
0' 
B' 
N* 



MODIFY] 
MSGTYP) 



I INCREMENT OF READS GIVEN 

• PACKET SIZE 

! OPCODE • EXECUTE LOCAL PROGRAM 
J FILL IN PROGRAM NAME WITH ASCII 



FXKCUTF PEDDBN PROGRAM 



I ETTKRS 



1» 

IMM 



CMOi 



! SfANOALONE MODI* IER 

! CALL IT IMMEDIATL 

• SENDS ANO RFCEIVES THE 



COMMAND 



IF .CST. ADDR 
THEN RETURNi 



l.DUOFF ♦ Of\.DBN, DUPERROR ) EQL 1 {status error 



DO (MX1 - GET PKT C.CCTLR)) 
UNTIL ( ,MX1 GEQ 0)j 



! TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRG ERROR 



MSCP PKT [ .MX1 

MSCP PKT [ .MX1 

MSCP. PKT f.MXl 

MSCP PKT C .MXl 

MSCP PKT [ ,MX1 

MSCP PKT [ % MX1 
DUPCOMMANO ( ) j 



MSGLEN] - SZ RECi 
OPCODE ] - OP RCDj 
BC..LO] - 80j 

BU* _0) - DUPPKT j 
MODIFY ] * Oj 
MSGTyPJ - SEQ CMOi 



RECIEVE DATA 



PACKET SIZE 

OPCODE • RECEIVE DATA 

BYTE COUNT TO HE TRANSFfcRED EQUALS J ♦♦***se« Pg £t> OUP Sp 

LOAD DESCRIBTOR BUFFER 

CALL IT sequential 

SENDS ANO RECEIVE 4 ; THE COMMAND 



IF (.CST_ADDR t.DUOFF . OF DBN. DUPERROR] EQL 1) OR 'status error 

(.D^PKT [DUPTtPE) NEQU 1) OR Jdup type error 

(.DUPPKT [DUPMESG] NEQU 5) 
THEN 

(HARD ERROR ( )i 
CST. ADDR L.DUOF'F * OF .DBN. DUPERRUR ] • l\ ! ht T MAG 

RETURN»)i J NO POINT IN CONTINUING 



/RQAM5 
VOl. 6 



3979 

?9ao 

3981 
3982 
3985 
3984 

3985 
3986 
398 ? 
3988 
3989 
3990 
39^1 
3992 
3993 
3994 
3995 
3996 
399? 
3998 
3999 
4000 
4001 

4002 

4003 
4004 
4005 
4006 

4007 
4008 
4009 
4010 
4011 
401? 
4013 
4014 
4015 
4016 
4017 
4018 
4019 



2 
3 
2 

c 

2 
2 

2 
2 
2 
2 



1)11 



RO/RX EXERCISER 

mu n -drive tes 



routines 



11 Apr-1984 11:08:35 
il-Apr-1984 11:08:22 



VAX -11 Bliss 16 V4.0-579 
DISKIUSER2: [ POWERS ]ZRQAD0.BL2;6 



3EQ 0340 

POQ* 109 

C28) 



DO (MXl - GET.PKT ( .CCTLR)) 
UNTIL. (.MXl GEQ 0)i 



! TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRG ERROR 



MSCP PKT [ .MXl. 
MSCP PKT [ .MXl , 
MSCP>KT [.MXl, 
MSCP PKT [ .MXl. 
DUPPKT [DUPBFO] 
DUPPKT fDUPBFU 
MSCP PKT [ .MXl, 
MSCP PKT [ .MXl, 
DUPCOMMAND ( ) i 



MSGLEN] - SZ.SENi 
OPCODE] - OP SOD i 
BCJ-O] - 4j 
BUF^O] - DUPPKT j 
- ,CST ADDR [ .DUOFr 
• ,CST ADDR [ .DUOFF 
MODIFY] - 0; 
MSGTYP] - SEQ.CMOt 



D..DISK..NUM] ; 
OF_DBN, 



D^DBNl; 
i 



PACKET SIZE 
OPCODE • SEND DATA 
DYTE COUNT TO BE TRANSFERED EQUAL 
LOAD DESCRIBTOx 3UFFER 
! LOAD UNIT NUMBER CRDRX) 
! LOAD DUN NUMBER 



SEND DATA 



CALL IT sequential 
SENDS AND RECEIVES 



THE COMMAND 



IF ,CST ADDR 
THEN RETURN: 



[.DUOFF * OF..DBN, DUPERROR] EQL 1 .'status error 



DO CMX1 • GET.PKT ( .CCTLR)) 
UNTIL C .MXl GEO 0)i 



! TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRG ERROR 



MSCP PKT 
MSCP'PKT 
MSCP PKT 
MSCP PKT 
MSCP PKT 
MSC^ PKT 



[.MXl, 
[.MXl, 

[ .MXl. 
[.MXl, 
[.MXl, 
t .MXl, 



MSGLEN] 

OPCODE] 

BC_LC) 

BUF 0] 

MODIFY] 

MSGTYP] 



DUPCOMMAND ( ) j 



1 SZ.REC; 
1 OP..RCD; 
514. 
DUPPKT: 
' 0, 
■ SEQ CMOj 



PACKET SIZE 

OPCODE • GET OUST STATUS 

BYTE COUNT TO BE TRANSFERED EQUALS 512 

LOAD DESCRIBTOR BUFFER 



RECEIVE DATA 



! CALL IT sequential 
! SENDS AND RECEIVES 



THE COMMAND 



IF (.CST.ADOR [.DUOFF ♦ Of DBN, DUPERROR] EQL 1) OR .'status error 
C. DUPPKT [DUPTYPE] NEQU 6) OR ,'oup type error 

(.DUPPKT [DUPMESG] NEQU 2) 
THEN 

(HARD ERROR ( ): 
CST_ADDR [.DUOFF ♦ OF DBN, DUPERROR] - 1} * SET FLAG 
RETURN;); * NO POINT IN CONTINUING 



DO (MXl - GET PKT (.CCTLR)) 
UNTIL ( .MXl GEO 0); 



! TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRG ERROR 



T..ADDR [T_BLK_RD] « ,T„ADDR (T_BLK_RD) ► l\ 
END; 



•IF DUP NO ERROR THEN INCREMENT COUNTER 



000000 010146 

00000? 013700 OOOOOOG 



.SHTTL DUPREDDBN MULTI -DRIVE TEST ROUTINES 



000006 
000012 

000016 
000022 

0000?>j 



005260 

013746 
012746 
004/5 7 
012760 



000064 

000106' 
000106 
OOOOOOG 
000022 



000006G 



000034 U2 760 0O0Q03 000022G 



DUPREDDBN t: 




MOV 


Rl, (SP) 


MOV 


T.ADDR.RO 


INC 


64(R0) 


MOV 


MXl, (SP) 


MOV 


0106, (SP) 


JSR 


PC.BL1MUL 


MOV 


022, MSCP. PKT 't.CMO) 


MOVB 


03 t MSCP,PK7*22(RO) 



392i- 
394? 

3945 



394o 



F 1 1 



7RQAM3 
V01. 6 

00004 2 
000050 
000056 
000064 
00007;? 
000100 
000106 
000114 
000122 
000126 
000132 
000134 
000140 
000146 
000150 
000152 
000154 
000160 
000164 
000170 
000172 
000174 
000200 
000204 
000212 
000220 
000226 
000234 
000240 
000246 
000254 
000260 
000264 
000266 
000272 
000300 
000302 
000306 
000319 
000316 
000320 
000324 
000330 
000334 
000336 
000342 
000346 
000350 
000354 
000362 
000366 
0003 70 
000374 



RD/Rx EXERCISER 
MULTI-DRIVE TEST 



ROUTINES 



112760 
112760 
112760 
112760 
112760 
112760 
012760 
142760 
004737 
013700 
006300 
063700 
032760 
001402 
022626 
000505 
013716 
004737 
010037 
002771 
010016 
012746 
004737 
012760 
112760 
012760 
012760 
005060 
142760 
152760 
004737 
013700 
006300 
063700 
032760 
001016 
013700 
042700 
02002 / 
001007 
013700 
042700 
020027 
001415 
004737 
013700 
C06300 
063700 
052760 
062 706 
000501 
013716 
004 737 



000122 

000105 

000104 

000104 

000102 

000116 

000001 

000360 

000000V 

001156' 



000026G 
00002 7G 
000030G 
00003 1G 
000032b 
00003UG 
000024G 
0000 10G 



OOOOOOG 
040000 000020 



OOOOOOG 
OOOOOOG 
000106' 



000106 

OOOOOOG 

000034 

000005 

000120 

OOOOOOG 

0O0024G 

000360 

000020 

000000 V 

001156' 



OOOOOOG 
040000 

OOOOOOG 

007777 
010000 

OOOOOOG 

170000 

000005 

oooooov 

001156' 

OOOOOOG 

040000 

000006 

OOOOOOG 
OOOOOOG 



000006G 
000022G 
000026G 
O00O32G 

0000 10G 
0000 J.OG 



000020 



000020 







ll-Apr-1984 11:08 


35 


s 




ll-Apr-1964 U:08 


22 




MOVB 


0122,MSCP.PKT*26(R0) 






MOVG 


0105,MSCP.PKT*27(R0) 






MOVB 


OlO4,MSCP.PKT*30CR0) 






MOVB 


0104.MSCP.PKT*31(R0) 






MOVB 


0102,MSCP.PKT*32(RO) 






MOVB 


0116,MSCP.PKT*33(R0) 






MOV 


«1,MSCP.PKT*24(R0) 






BICB 


0360,MSCP.PKT*10(RO) 






JSR 


PC.DUPCOMMAND 






MOV 


DUOFF.RO 






ASL 


RO 






ADD 


CST.ADDR.RO 






BIT 


040000, 20CR0) 






BEQ 


1$ 






CMP 


CSP)t.(SP)* 






BR 


3$ 




15: 


MOV 


CCTLR.CSP) 






JSR 


PC.GET.PKT 






MOV 


R0.MX1 






BUT 


1$ 






MOV 


RO.CSP) 






MOV 


0106, -CSP) 






JSR 


PC.BLiMUL 






MOV 


034,MSCP.PKT*6(R0) 






MOVB 


05,MSCP.PKT*22(R0) 






MOV 


$12O,MSCP.PKT»26(R0) 






MOV 


OOUPPKT , MSCP . PKT ♦ 32C RO ) 






CLR 


MSCP.PKT*24CR0) 






BICB 


0360,MSCP.PKT*10(R0) 






BISB 


O2O,MSCP.PKr*lO(R0) 






JSR 


PC,DUPCOMMAND 






MOV 


DUOFF.RO 






ASL 


RO 






ADD 


CST.ADDR.RO 






BIT 


040000, 20CRO) 






BNE 


2$ 






MOV 


DUPPKT.RO 






BIC 


07777.RO 






CMP 


RO, 010000 






BNE 


2$ 






MOV 


DUPPKT.RO 






BIC 


OWOOOO.RO 






CMP 


R0.05 






BEQ 


4$ 




2*i 


JSR 


PC, HARD. ERROR 






MOV 


DUOFF.RO 






ASL 


RO 






ADD 


CST.ADDR.RO 






BIS 


040000, 20CR0) 






ADD 


06, SP 




3$: 


BR 


5$ 




4$s 


MOV 


CCTt R.CSP) 






JSR 


PC.GET.PKT 





VAX-11 Bllss-16 V4. 0-579 
DISIOUSER2; C POWERS ]ZRQAD0,BL2j 6 



SEQ 0341 

Page 110 
(28) 

3947 
3948 
3949 

3950 
3951 
3952 
3953 
3954 
3955 
3957 



3926 
3958 
5960 



3961 
3963 



3964 
3965 
3966 
396 7 
3968 

3969 
3971 



3972 



3973 



39 


*S 


39 


'6 


3^ 


. . 


?^ 


"S 


?979 



11 



ZRQAM3 




RD/RX EXERCISER 




11 -Apr-1984 11:08:35 


VAX-11 Bliss-16 V4, 0-579 




VOL 6 




MULTI-DRIVE TEST ROUTINES 




U-Apr-1984 11:08:22 


DIS!<*USER2j[POWERS]ZRQAD0, 


,BL2;6 


000400 


010037 


000106' 




MOV 


R0.MX1 






000404 


002771 






BLT 


4$ 


i 




000406 


010016 






MOV 


RO.(SP) 


; 




000410 


012746 


000106 




MOV 


0106, -CSP) 






000414 


004737 


OOOOOOG 




JSR 


PC.BL*MU_ 






000420 


012760 


000034 


000006G 


MOV 


034, MSCP. PKT*6(R0) 






000426 


112760 


000004 


000022G 


MOVB 


O4,MSCP.PKT*22CR0) 


, 




000434 


012760 


000004 


000026G 


MOV 


O4,MSCP.PKT*26CR0) 


: 




000442 


012760 


OOOOOOG 


000032G 


MOV 


*DUPPKT,MSCP.PKT*32(R0) 


t 




000450 


013701 


001156' 




MOV 


DU0FF.R1 


t 




000454 


006301 






ASL 


Rl 






000456 


063701 


OOOOOOG 




ADD 


CST.ADDR.R1 






000462 


111137 


OOOOOOG 




MOVB 


(Rl).DUPPKT 






000466 


042737 


177760 


OOOOOOG 


B1C 


♦177760, DUPPKT 






0004 74 


013701 


001156' 




MOV 


DU0FF.R1 


t 




000500 


006301 






ASL 


Rl 






000502 


063701 


OOOOOOG 




ADD 


CST.ADDR.Rl 






000506 


116137 


000020 


000002G 


MOVB 


20CRi),DUPPKT*2 






000514 


105037 


000003G 




CLRB 


DUPPKT*3 






000520 


005060 


000024G 




CLR 


MSCP.PKT»24(R0) 


9 




000524 


142760 


000360 


0000 10G 


BICB 


0360, MSCP. PKT+10CR0) 


| 




000552 


152760 


000020 


000010G 


BISB 


♦20,MSCP.P«T*t0(R0) 






000540 


004737 


000000V 




JSR 


PC.DUPCOMMAND 


f 




000544 


013700 


001156' 




MOV 


DUOFF.MO 


| 




000550 


006300 






ASL 


RO 






000552 


063700 


OOOOOOG 




ADD 


CST.ADDR.RO 






000556 


032760 


040000 


000020 


BIT 


040000 .20CR0) 






000564 


001403 






BEQ 


b» 






000566 


062706 


000010 




ADD 


010, SP 


J 




000572 


000521 




5$: 


BR 


10$ 






000574 


013716 


OOOOOOG 


bit 


MOV 


CCTLR.(SP) 


I 




000600 


004 73 7 


OOOOOOG 




JSR 


Pf.GET.PKT 






000604 


010037 


000106* 




MOV 


R0.MX1 






000610 


002771 






BLT 


6$ 


. 




000612 


010016 






MOV 


RO,CSP) 


| 




000614 


012746 


000106 




MOV 


0106, -(SP) 






000620 


004 737 


OOOOOOG 




JSR 


PC.BLIMUL 






000624 


012760 


000034 


000006G 


MOV 


034, MSCP. PKT>6(R0) 






000632 


112760 


000005 


000022G 


MOVB 


05,MSCP.PKT>22(R0) 


f 




000640 


012760 


001002 


000026G 


MOV 


01002, MSCP. PKT*26(R0) 


I 




000646 


012760 


OOOOOOG 


000032G 


MOV 


ODUPPK T , MSCP , Pl< T ♦ 32C RO ) 






000654 


005060 


000024G 




CLR 


MSCP.PKT»24(R0) 


i 




000660 


142760 


000360 


000010G 


BICB 


0360, MSCP. PKT*iOCRO) 


i 




000666 


152760 


000020 


000010G 


BISB 


020, MSCP. PKNIO(RO) 






000674 


004737 


oooooov 




JSR 


PC.DUPCOMMAND 


} 




000700 


013700 


001156' 




MOV 


DUOFF.RO 






000704 


0O6300 






ASL 


RO 






000706 


063700 


OOOOOOG 




ADD 


CST.ADDR.RO 






000712 


032760 


040000 


000020 


BIT 


040000, 20CR0) 






000720 


001016 






BNt 


ft 






000722 


013700 


OOOOOOG 




MOV 


DUPPKT.RO 


} 




000726 


042 700 


007777 




BIC 


07777. RO 






000732 


020027 


060000 




CMP 


RO , 060000 







SEQ 0342 



Pog« 111 
C28) 



3980 
3982 



3983 
3984 
3985 
3986 



3987 



3988 
3989 

3990 
3992 



3926 
399? 
3995 



3996 
3998 



3999 

4000 
4001 
4002 
40C3 

4004 
4006 



400 7 



G 1. 1 



ZRQAM3 




RD/RX EXERCISER 


VOL 6 




MULT I -DRIVE TEST 


000 736 


001007 




000740 


013700 


OOOOOOG 


000744 


042700 


170000 


000750 


020027 


000002 


000 754 


001413 




000 756 


004 737 


oooooov 


000762 


013700 


001156' 


000766 


006300 




000770 


063700 


OOOOOOG 


000774 


052760 


040000 000020 


001003 


000413 




001004 


013716 


OOOOOOG 


001010 


004737 


OOOOOOG 


001014 


010037 


000106' 


001020 


002771 




001022 


013^00 


OOOOOOG 


001026 


005260 


000062 


001032 


062706 


000012 


001036 


012601 




001040 


000207 





ROUTINES 



ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX -11 Bliss-16 V4, 0-579 

DISK $US£R2 : [ POWERS ] 2RQAD0 . BL2 j 6 





BNE 


7$ 




MOV 


DUPPKT.RO 




BIC 


0170000, RO 




CMP 


R0.02 




BEQ 


8$ 


7$: 


JSR 


PC, HARD. ERROR 




MOV 


DUOFf.RO 




ASL 


RO 




ADD 


cst.aodr.ro 




BIS 


040000, 20CR0) 




HR 


9$ 


8$: 


r.DM 


CCTLR,(SP) 




JSR 


PC.GET.PKT 




MOV 


RO t MXl 




BLT 


8$ 




MOV 


T.ADDR.RO 




INC 


62CR0) 


9$: 


ADD 


012, SP 


10$: 


MOV 


CSP)*,R1 




RTS 


PC 



SEQ 0343 
Page 112 
(28) 



4008 



4010 
4011 



4012 

4014 



4015 
4017 

3941 
3926 



; Routine S i 7e : 273 words. Routine Base: $CODE$ 
j Maximum stack depth per invocation: 7 words 



14674 



4020 1 



H 1 1 



ZRQAM3 
VOL 6 



4021 
4022 
4023 
4024 
4025 
4026 
402? 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 



1 
1 

1 
1 
1 
1 
1 
1 
1 

c 

2 
2 

2 
2 

2 

-» 
<.. 

2 

2 

3 

3 

3 

3 

3 

3 

3 

2 

2 

3 

3 

3 

3 

2 

2 

1 



RD/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 



GLOBAL ROUTINE DUPCOMMAND ; NOVALUE » 



ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 BlIss-16 V4. 0-579 

DISK SUSER2 5 f POWERS ] ZRQADO . BL2 ; 6 



SEQ 0344 

Page 113 
C29) 



THIS ROUTINE IS CALLED BY DUP TO PROCESS COMMANDS, 

THE COMMAND ENVOLOPES ARE FILLED IN DUP ROUTINES IN THE "MX1" INDEX, 
WITH THE INDEX THIS ROUTINE SENDS THE COMMAND , WAITS FOR A 
RESPONSES AND THEN PROCESSES THE RETURN PACKET. 

BEGIN 

■PRINTX (DER13)j 



MSCP PKT C.MX1, CREDITS] - 0: 
MSCF.PKT [,MXl, CONNIO] - CID DUP; 
MSCP.PKT r.MXl, OK_NUM] * Oj 

IF SEND C.MX1) EQLU FAILURE 
THEN 

BEGIN 

PUT^PKT C.MX1); 

MX1 • -lj 

CST„ADDR [.DUOFF * OF DBN, DUPERROR] 

PRINTF (DBM112); 

END 



! DUP DOES NOT USE THE CREDIT SYSTEM 
! MAKE PACKAGE EQUAL A DUP COMMAND 
! DISK NUMBER (NOT APPLICABLE) 

! ATTEMPT SENDj IF CTLR IS OFFLINE 



RETURN ENVELOPE TO POOL 
"DUP: PKT NOT AVAILABLE" 



ELSE 



END; 



do 

BREAK; 

PROC^RETPKT ( ); 

end 
until ( .CRN. .LOW eqlu .RP.ADDR [ CRF LO]) or 
C.EOP.FLAG cql true); 



{ BREAK FOR ACT 

! PROCESS RETURN PACKET TO SEE IF Q\< FOR DUP 

! TO ENSURE THAT ALL RETURN MESSAGES HAVE 8EEN PROCESSED 
! or end of pass caused by error 



000000 013746 000106 



SBTTL DUPCOMMAND MULTI -DRIVE TEST ROUTINES 



000004 
000010 
000014 
000022 
000030 
000034 
000040 
000044 
000046 
000050 
000054 
000060 
000066 
000072 



012746 
004 737 
142760 
112760 
005060 
013716 
004 73 7 
005700 
00102 7 
013716 
004737 
012737 
013700 
006300 



000106 

OOOOOOG 

000017 0000 10G 

000002 00OO11G 

0000 16G 

000106' 

OOOOOOG 



000106' 

OOOOOOG 

177777 000106' 

001156' 



DUPCOMMAND : : 
MOV 
MOV 
JSR 
BICB 
MOVB 
CLR 
MOV 
JSR 
TST 
BNE 
MOV 
JSR 
MOV 
MOV 
ASL 



MX1. -(SP) 

0106, -C3P) 

PC.6L.IMUl. 

017, MSCP. PKT»10(R0) 

02 ( MSCP.PKT*iUR0) 

MSCP.PKT *16CR0) 

MX 1 , ( SP ) 

PC , SEND 

RO 

II 

MX1,(SP) 

PC, PUT. PKT 

0-1, MX1 

DUOFF.RO 

RO 



4033 



4034 
4055 

403 : 



4040 

404 1 
4042 



1 1 1 



7RQAM3 
VOL 6 

000074 

000100 
000106 
000112 
000116 
000120 
000122 
000124 
000126 
000130 
000134 
000140 
000146 
000150 
000156 
000160 
000162 



063700 
052760 

012716 
012746 
010600 
104417 
005726 
000415 
104422 
004737 
013700 
023760 
001404 
123727 
001363 
022626 
000207 



RD/RX EXERCISER 

MULT I -DRIVE TEST ROUTINES 

OOOOOOG 

040000 000020 
OOOOOOG 

ooooo i 



1$ 



oooooov 

OOOOOOG 
OOOOOOG 000004 

OOOOOOG 000001 



2$ 



Routine Size: 58 words* Routine Base: 
Maximum stack depth per invocation; 5 words 





11 -Apr -1904 11:08:35 




11 -Apr -1984 11:08:22 


ADD 


CST.ADDR,RO 


BIS 


040000 »20CR0) 


MOV 


0DBM112.CSP) 


MOV 


01. -CSP) 


MOV 


SP.RO 


TRAP 


17 


TST 


CSP)* 


BR 


2$ 


TRAP 


22 


JSR 


PC.PROC.RETPKT 


MOV 


RP.ADDR.RO 


CMP 


CRN.L0W.4CR0) 


BEQ 


2$ 


CMPB 


EOP.FLAG./M 


BNE 


1$ 


CMP 


(SP)*,(SP)* 


RTS 


PC 



VAX-11 BlIss-16 V4. 0-579 
DISK$USER2:[P0WERS]ZRQAD0.BL2j6 



; SP,* 



SEQ 0345 

Pace 114 
(29) 



4043 



4039 
4037 
4048 
4050 
405C: 



4053 

4030 
4022 



$CODE* ♦ 15736 



ZRUAM3 

V01, 6 



4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 



2 
2 
2 
2 
2 
2 
2 
2 
3 
2 
2 
2 

a 

3 
3 

3 
3 
3 
3 
3 
4 
3 
2 
1 



RD/RX EXERCISER 

MUTI -DRIVE TEST ROUTINES 



GLOBAL ROUTINE OUPIDLE t NOVALUE 



J 1 1 

ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-U Bliss- 16 V4. 0-579 
DISKJUSER2 : [ POWERS ]ZRQADO , BL2 ; 6 



SEQ 0346 
Page 115 
(30) 



THIS ROUTINE IS CALLED BY DUP ROUTINE TO INSURE THAT THE CONTROLLER 
IS NOT IN A ACTIVE STATE. IE CALLED AND THE CONTROLLER IS IN AN ACTIVE 
STATE THE CONTROLLER WILL GIVE AN ABORT COMMAND WHICH SHOULD KILL THE 
CURRENT JOB OR LOCAL PROGRAM, 



BEGIN 

CST..ADDR CDUOFF . OF_DBN, DUPERROR] 

M5CP.PKT [.MX1, MSGLEN] - SZ GDS ; 

MSCP PKT f.MXl, OPCODE] ■ OP GDS: 

MSCP_PKT [,MX1, MODIFY] - 0; 

MSCP.PKT [.MX1, MSGTYP] - IMM CMD; 
DUPCOMMAND ( ) ; 



DO (MX1 • GET_PKT C.CCTLR)) 
UNTIL ( ,MX1 GEQ 0)j 



0; 



! CLEAR DUP ERROR FLAG: 

! PACKET SIZE 

! OPCODE « GET DUST STATUS 



GET DUST STATUS 



! CALL IT IMMEDIATE 

t SENDS AND RECEIVES THE COMMAND 

! GDS ONLY RETURNS SUCCESS or it don't return 



if .CST_ADDR l.DUOFF f OF DBN, D ACTIVE] neq IDLE 
then 



! TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRGRAM ERROR 
! if not in idle state then abort the program 



begin 

MSCP.PKT [,MX1 
MSCP PKT [ ,MX1 
MSCP PKT [ .MX1 
MSCP PKT C.MX1 
DUPCOMMAND (); 



MSGLEN] - SZ.ABTi 

OPCODE] * OP ABT j 

MODIFY] - 0; 

MSGTYP] * IMM CMD: 



end; 



DO CMX1 - GET PKT ( .CCTLR)) 

UNTIL C.MX1 GEQ 0)} 

end; 



PACKET SIZE 

OPCODE - ABORT PROGRAM 

CALL IT IMMEDIATE 
SENDS AND RECEIVES THE COMMAND 
ONLY ERROR IS already in idle state 

,» TRY TO GET AN ENVELOPE. IF FAILURE LOOP PRGRAM ERROR 



ABORT CMD 



000000 010146 



.SBTTL DUPIDLE MULT I -DRIVE TEST ROUTINE 1 



000002 


013700 


001156' 


000006 


006300 




000010 


063700 


OOOOOOG 


000014 


042760 


040000 000020 


000022 


01.3746 


000106' 


000026 


012746 


000106 


000032 


004737 


OOOOOOG 


000036 


012760 


000014 OOOOOOG 


000044 


112760 


000001 000022G 


000052 


005060 


000024G 


000056 


142760 


000360 000010G 


000064 


004 73 7 


015736' 


000070 


013716 


OOOOOOG 


000074 


004737 


OOOOOOG 



DUPIDLE 


; • 






MOV 


Rl. -(SP) 




MOV 


DUOFF.RO 




ASL 


RO 




MOD 


CST.ADDR.RO 




BIC 


040000. 201 RO) 




MOV 


MXl.-(SP) 




MOV 


0106, --(SP) 




JSR 


PC,BL$MUL. 




MOV 


414, MSCP. PKT*6(R0) 




MOVB 


ffl,MSCP.PKT*22(R0) 




CLR 


MSCP.PKT+24CR0) 




BICB 


4360, MSCP. PKT*10(RO) 




JSR 


PC, DUPCOMMAND 


1$: 


MOV 


CCTLR.(SP) 




JSR 


PC, GET, PKT 



4 056 
4064 



406t> 



40*? * 

4o*?a 

40(W 

40 :o 

4073 



1/ -I '1 



K 1 1 



ZRQAM3 
V01. 6 

OOOIOO 
00C104 
000106 
O00110 
000114 
000116 
000122 
000130 
000132 
000134 
000140 
000144 
000152 
000160 
000164 
000172 
000176 
000202 
000206 
000212 
000214 
000216 
000 2 20 
000222 



010037 
010001 
002770 
013700 
006300 
063700 
032760 
001432 
010116 
012746 
004737 
012760 
112760 
005060 
142760 
004 737 
013716 
C04737 
010037 
002771 
005726 
022626 
012601 
000207 



RD/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 

000106' 



001156* 

OOOOOOG 
020000 000020 



000106 

OOCOOOG 

000014 000006G 

000006 000022G 

000024G 

000360 000010G 

015736' 

OOOOOOG 

OOOOOOG 

000106 ' 



2$ 



3$ 



ll-App-1984 11:06:35 
ll-Apr-1984 11:08:22 



SEQ 034 7 
VAX-11 Bliss-16 V4. 0-579 Page 116 

DISK*USER2:[P0WERS]ZRQAD0.BL2;6 (30) 



MOV 


R0 # MX1 


MOV 


R0.R1 


BLT 


1$ 


MOV 


DUOFF.RO 


ASL 


RO 


ADD 


CST.AOOR.RO 


BIT 


420000, 20CR0) 


BEQ 


3$ 


MOV 


Rl.CSP) 


MOV 


0106, -(SP) 


JSR 


PC.BUMUL 


MOV 


*14.MSCP.PKT*6(R0) 


MOVB 


06,MSCP.PKT*22(RO) 


CLR 


MSCP.PKT*24(R0) 


BICB 


«360,MSCP»PKT*10CRO) 


JSR 


PC.DUPCOMMAND 


MOV 


CCTLR,(SP) 


JSR 


PC.GET.PKT 


MOV 


R0.MX1 


BLT 


2$ 


TST 


CSP)* 


CMP 


(SP)»,(SP)» 


MOV 


CSP)*,R1 


RTS 


PC 



; MX1,* 



4074 
4076 

4079 



4080 
4081 
4082 
4083 
4085 



4086 
4078 
4063 
4056 



; Routine Sire: 74 words, Routine Base: $CQDE$ ♦ 16122 
; Maximum stock depth per Invocation: 5 words 



ZRQAM3 
V01. 6 



4089 1 

4090 1 

4091 1 

4092 1 

4093 1 

4094 1 

4095 1 

4096 1 

4097 1 

4098 1 

4099 1 

4100 1 

4101 1 
410c 1 

4103 1 

4104 1 

4105 1 

4106 1 

4107 2 

4108 2 

4109 2 

4110 2 

4111 2 

4112 2 

4113 2 

4114 2 

4115 2 

4116 2 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
4 125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 

n Winchesters 

4134 3 

4135 4 
THE SAME 

4136 4 

4137 4 
g trk same 

j 4138 4 
number WINDOW 

; 4139 4 

j 4140 4 

j 4141 4 
rk different 



2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
2 
2 
3 
2 
3 
4 
4 



RD/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 

GLOBAL ROUTINE QI0_LBN : NOVALUE = 



11 



ll~Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss-16 V4. 0-579 

DISK SUSER2 : [ POWERS ) ZRQADO . BL2 ; 



SEQ 0348 
Page 117 
6 (31) 



THIS ROUTINE IS CALLED BY QIO„GEN TO SFLECT THE LOGICAL BLOCK NUMBER TO 
BE USED FOR The CURRENT QIO OR QIO PAIR. 

IF" THE OPERATOR CHOSE THE RANDOM BLOCK MODE OPTION, THEN THE LBN IS 
RANDOMLY CHUSEN WITHIN THE SPECIFIED LIMITS FOR THE LBN. 
OTHERWISE, THE NEXT SEQUENTIAL LBN IS DERIVED PROM THE BLOCK SEQUENCE 
TABLE CBST). 

IMPLICIT INPUTS: 

LSLUN - CURRENT (DIAGNOSTIC SUPCRVIOR) UNIT NUMBER 

IMPLICIT OUTPUTS: 

THE LBN IS LOADED INTO ONE OR BOTH MSCP PACKETS. 



b^gin 

local 

RD_DISK : byte; 



! FLAG TO INDICATE WINCHESTER DISK SELECTED 



if .CST.ADDR [.CUOFF, D_TYPE] eql RX.50 
then 

RD..DISK « FALSE 

RO._D.ISK - TRUE: 

MAD1 [LBN L. " .BST C.L-M.UN, LO..WRD]} 
MAD1 [LDN'H] - .8ST l,L$LUN, HI.WRDh 

if .MX2 geq 
then 

begin 



( IF 2 QIOS 



MA§2 ILBN L] -•= .BST [ .L*LUN, L.O.WRD]: 
MAD2 [LBNlH] - .BST [ .LJLUN, HI_WRDh 

end; 



! I OAD t.BN INTO 1ST PACKEI 
! LOAD LBN INTO 1ST PACKET 



! LOAD LBN INTO 2ND PACKET 
! LOAD LBN INTO 2ND PACKET 



if BIT_TST CSWP„FLAGS, SWF_BLK) ! IF RANDOM BLOCK MODE 
then 

begin 

if NOT (( .RO DISK) and 

(((.RANDOM [O'J and rfo'077777') mod (99)) lequ 33)) 



then 



begin 

if .CST.ADDR T.CUOFF ♦ 2, D_HEG1) eqlu .CST_ADDR [ , CUOKF ♦ 4, D„END1] 
then 



\ REDUCES SEEKS TO 66* OF TRANFERb o 
J NOTE IF NOT CALLED THE LBN REMAINS 



! if upper word of beg trU and end>n 
BST f.LSLUN, 10 WRD] ■- .CST.ADDR [.CUOFF » 1, D BFGO] . < select low Ibn from random 

MODULAS (.CST..ADDR [.CUOFF * 1, D..BEGO], .CST.ADDR I, CUOFF ♦ 3, D.ENDO)) 
else J if upper word of beg trk and e«^d t 



Mil 



7RQAM3 
V01»6 



4142 5 

4143 5 

4144 5 

4145 S 

4146 5 
URE LOWER 

4)47 5 

414S 5 

4149 5 
sure lower 

4150 5 

4151 5 
415c? 5 
415? 5 

4154 5 
umber is qood 

4155 5 

4156 4 

4157 3 

4158 3 

4159 ? 

4160 3 

4161 4 
4 16? 3 

4163 4 

4164 4 

4165 5 

4166 5 

4167 5 

4168 5 

4169 4 

4170 4 

4171 3 
417i? 3 

4173 3 

4174 4 

4175 4 

4176 4 

4177 4 
4170 3 

4179 3 

4180 3 
4161 3 
418? 3 
4103 4 

4184 3 

4185 3 

4186 3 
418? 4 

4188 3 

4189 <> 

4190 1 



RD/Rx EXERCISER 

MULTI -DRIVE TEST ROUTINES 



SEQ 0349 
11 -Apr- 1984 11:08:35 VAX-11 Bltss-16 V4.0--579 Page 118 

ll-Apr-1984 11:08:22 DISIOUSER2: [P0WERS]ZRQAD0.BL2:6 C31) 



else 



end 



end; 



begin 

BST [,L$LUN, HI.WRU] - .CST„ADDR [.CUOFF ♦ 2, D_BEG1) ♦ ! select upper lbn from window 

MODUl.AS C.CST^ADDR [.CUOFF ♦ 2, 0J3FG1], .CST.ADDR [, CUOFF * 4, D^ENDll): 

if .BST [,L$LUN. HI.WRD] eql .CST.ADDR [.CUOFF ♦ 4, D„END1] J I F UPPER WORD EQUALS HI LIMIT BE S 

then .BST [,L*LUN. LO..WRD] - MODULAS CO, .CST_ADDR [.CUOFF * 3, D_ENDO]); ! WORD DOES NOT PASS HI LIMIT 

if .BST [.LSLUN, HI..URD] eql .C5T„ADDR [.CUOFF * 2. D..BEG1] ! ; f upper word equal lo limit make 

then BST [ ,L$LUN, LO.WRD] - *0'177777* - MODULAS C.CST_ADDR [.CUOFF ♦ 1, D..BEG01. *0'l777/7*)s 

! word is above lo limit 

if ,BST [.LM.UN, HI_WRD] gtr .CST.ADDR [.CUOFF ♦ 2, D.BEG1) and 

.BST [.L$LUN» HI_WRD] lss .CST.ADDR [.CUOFF ♦ 4, D_END1] ! IF neither of the above then any n 

then BST [,L$LUN, LO_WRD] » .RANDOM [5]; 

er\6\ 



I ELSE - SEQUENTIAL LBN MODE 



begin 

if C.TRK.SGN [.LU.UN] geq 1) 

then | if positive track direction add one to multiword 

Cif .BST [.LtLUN, LO„WRD] eqlu Ko' 177777' 
then 

begin 

BST [ .LSLUN, LO. WRD] * Oj 

BST [,L$LUN, HIJ4RD] * ,BST l.L$LUN, HI_WRD] * li 
*>r\d 
else 

BST [,L$LUN. LO_WRD] * .BST C.IUUN, LO WRD] > 1) 
else ! if negative track direction subtract one from multiword 

if .BST C.LiLUN, LO WRD] eqlu *o»0* 
then 

begi n 

BST [.LiLUN, LO„WRD] » Ko* 177777' ; 

BST [.LSLUN, HI. .WRD] * .BST [.L$LUN, HI WRD ] - 1; 

end 



else 



BST [.LSLUN, LO..WRD) - .BST [ .L5LUN, LO_WRD] - lj 



if .BST [.L$LUN, LO_WRDJ gequ C.CST.ADOH l.CUOFr ♦ 3, D ENOO]) and ! if hi limit then change direction 

.BST [.LtLUN, HI_WRD] gequ C .CST .ADDR [.CUOFF ♦ 4, D END1]) 
then TRK3GN [. LU.UN] - -1; 

if .BST [.LJLUN, LO_URO] lequ C. CST. ADDR [ . CUOU ♦ 1. D..BEGO] ♦ I) and J if low limit then change direction 

,BST r.LU.UN, HI WRD 1 lequ ( ,CST„ADDR I, CUOFF ♦ ?, D_BEGin 
then TRK.SGN [ *L*IUN1 ■ 1} 

end; ! ROUTINE QIC LBN 



000000 004137 000000G 



.^bTTL UIU.LBN MULT I -DRIVE TEST ROUTINES 



QIO.LBNjj 



Nil 



ZRQAM3 
VOL 6 



000004 

000010 

000014 

000016 

000020 

000024 

000026 

000030 

000032 

000036 

000042 

000046 

000050 

000052 

000054 

000060 

000062 

000066 

000072 

000076 

000102 

000104 

000110 

000114 

000120 

000126 

000130 

000134 

000136 

000140 

000144 

000150 

000154 

000160 

0CO162 

000166 

000170 

0001/2 

000176 

000200 

000202 

000206 

000212 

000214 

000216 

000222 

000224 

000230 

000232 

000234 

000240 

000244 



013705 
013700 
006300 
060500 
132710 
001002 
105004 
000402 
112704 
013700 
013701 
010103 
006303 
006303 
012702 
060302 
011260 
062 703 
011360 
00573 7 
002406 
013700 
011260 
011360 
032737 
001002 
000137 
006004 
103015 
013/46 
042716 
012746 
004737 
022626 
02002 7 
101001 
000207 
013 700 
006300 
060500 
016004 
013700 
006300 
060500 
020460 
001022 
013701 
006301 
060501 
016146 
013/00 
006300 



RD/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 



OOOOOOG 
OOOOOOG 



000020 



000001 

000112' 

OOOOOOG 



OOOOOOG 

000046 
0C0002G 
000050 
OOOUO' 

000114' 

000046 

000050 

040000 

017122' 



OOOOOOG 
100000 
00014 3 
OOOOOOG 

000041. 



OOOOOOG 



000004 
OOOOOOG 



0O001O 
OOOOOOG 



000002 
OOOOOOG 



1$: 
2$: 



OOOOOOG 



3$ 

4$ 



5$ 



ll-Apr-1984 
ll-Apr-1984 

JSR R1.9SAVE5 

MOV CST,ADDR,R5 

MOV CUOFF.RO 

ASL RO 

ADD R5.R0 

8ITB 020, (RO) 

ONE 1$ 

CLRB R4 

BR 2$ 

MOVB 01. R4 

MOV MAD1.R0 

MOV L$LUN,R1 

MOV R1.R3 

ASL R3 

ASL R3 

MOV 0BST.R2 

ADD R3.R2 

MOV (R2),46(R0) 

ADD 0eS7*2,R3 

MOV (R3) t 50(R0) 

TST MX2 

BLT 3$ 

MOV MAD2.R0 

MOV (R2),46(R0) 

MOV (R3),50(RO) 

BIT 040000, SWP. FLAGS 

BNE 4$ 

JMP 10$ 

ROR R4 

RCC S t 

MOV RANOOM.-(SP) 

BIC 0100000, (SP) 

MOV 0143, (SP) 

JSR PC.BLIMOD 

CMP CSP)*,(SP)f 

CMP R0.041 

BHl 5$ 

RTS PC 

MOV CUOFF.RO 

ASL RO 

ADD R5.R0 

MOV 4(R0),P4 

MOV CUOFK.RO 

ASt RO 

ADD R5.R0 

CMP R4.10CR0) 

BNE 6$ 

MOV CU0FF.R1 

ASL Rl 

ADD R5.R1 

MOV 2(R1).-(SP) 

MOV CUOFF.RO 

ASL RO 



SEQ 0350 
11:08:35 VAX - 11 Bliss- 16 V4 . 0-579 Page 119 

1 1 : 08 : 22 DISK SUSER2 : [ POWERS ] 2RQAD0 . BL2 ? 6 (31) 



4089 



RD.OISK 
*,RD.DISK 



j RD.OISK 



4115 

4 J H 
4117 
4119 



4 120 

4 122 

4125 

4126 
4129 

4132 
4133 



4136 



4138 

4 139 



/RQaM5 




RD/RX LXIRC1SLR 


VOL 6 




MU .Tt -DRIVE TEii 


000^4 f> 


060500 




000^50 


016046 


00OOO6 


000»?S4 


004/3 7 


OOOOOOG 


OCXV60 


066100 


00000.? 


000^64 


0100W 




000P66 


000530 




000^ .'0 


010446 




000^ 7P 


016046 


0000 10 


0CKW6 


004 73 7 


OOOOOOG 


00030*' 


060400 




000504 


010013 




00030* 


015701 


OOOOOOG 


00031,^ 


006501 




000514 


006 501 




000316 


015700 


oooooog 


0003i?c? 


006300 




0003*?4 


063700 


OOOOOOG 


000350 


0^6160 


000005G 000010 


0O0336 


001015 




000340 


005016 




00054^ 


013700 


oooooog 


000346 


006300 




000350 


065700 


OOOOOOG 


0003S4 


016046 


C00006 


OOO5b0 


00475/ 


OOOOOOG 


000564 


010071 


OOOOOOG 


000370 


005726 




0005 7? 


0J5701 


OOOOOOG 


0003 76 


006501 




0OO400 


0O6501 




0004 0.? 


015 700 


OOOOOOG 


000406 


OO6 50O 




0004 1 


O65/00 


OOOOOOG 


000414 


O t >6160 


OOOOOPG 000004 


OOOAP? 


0010«?1 




00O4?4 


015700 


OOOOOOG 


0004 50 


006500 




O0O4 5? 


063/00 


OOOOOOG 


0004 36 


016016 


0OOOO2 


00O44«> 


01^/46 


17/777 


0OO446 


0O4737 


OOOOOOG 


0004 S? 


012/61 


1/7777 OOOOOOG 


U 004 60 


160061 


OOOOOOG 


000464 


0O r >7?6 




00O466 


015/00 


OOOOOOG 


0<X>4 IP 


006 500 




0O04/4 


0O6 50O 




0004 76 


01 5/01 


OOOOOOG 


OOO r >0.~> 


006 301 




000SO4 


C*>5 >'{j\ 


OOOOOOG 


OOO'ilO 


O,'606l 


OOOOO/G 000004 


000M#. 


OQ <4 1 4 




OOOS<>0 


013701 


OOOOOOG 



6f s 



7»1 



till 



VI . ' 



11 -Apr -1^4 UiOHj.35 
11 Apr 1064 11i08uV 



VAX 11 HI \*n 16 V4.0 5 /<* 

DISK lUlit'Ri? J ( POWERS URQADO . Rl ? 1 6 



ADD 


R^.RO 


MOV 


6(R0), (SP) 


JSR 


PC ♦MOD** AS 


ADO 


c?(Rl ).R0 


MOV 


R0,(R,7) 


BR 


9* 


MOV 


R4, (SP) 


MOV 


lO(RO), (SP) 


JSR 


PC.MODU AS 


ADD 


R4.R0 


MOV 


R0.LR3) 


MOV 


L ILUN.RI 


ASL 


Rl 


ASL 


Rl 


MOV 


CLJ0fF.R0 


A'il 


RO 


ADD 


CST.ADDR.RO 


CMP 


BST»r>(Rl ),10(R0) 


PNC 


71 


CLR 


(SP) 


MOV 


CUOFT.RO 


ASL 


RO 


ADD 


CST.ADDR.RO 


MOV 


6(R0), (SP) 


JSR 


PC.MOOU.As 


MOV 


MO.seSTfRl) 


TsT 


( SP ) * 


MOV 


Lll.UN.Rl 


ASL 


Rl 


ASl 


Rl 


MOV 


CUO* t- ,R0 


ASL 


RO 


AOL) 


cst.addr.ro 


CMP 


BS i T».'(Rl ),4lH0> 


D'# 


8» 


MOV 


eu> y ,ro 


A I 


HO 


ADi 


CST . ADDH.MO 


rlOV 


,'< Ru ),(' SP > 


MUV 


V 1 , t SP ) 


JSR 


r'C.MOOU AS 


MOV 


? i,B UWi ) 


sue 


HO.HSftHl ) 


TST 


( SP). 


mo; 


1 ii lIN.RO 


ASl 


HO 


AM 


WO 


MUV 


CU» > ,W1 


ASL 


HI 


ADO 


CST , A0DH.H1 


CMP 


HM .»'iWi)) t 4lHl) 


HI \ 


*M 


MOV 


CUUf * iRl 



SF.Q 551 

P«0« lr'O 

(31) 



4 1 5A 



4 1 *>*, 

4144 



4145 
4 146 



4 14/ 



4149 



4 ISO 



4 1 S3 



4iS4 



/RUAMJ 




RO 'RX I \[ KClSt.H 






11 Apr 1984 UiOfl: 45 


V01 .6 




MU Tl DR1VF. 


TKST ROUTINES 




11 Apr-19tt4 11:08:22 


OOO V 4 


006501 










A'.il 


Rl 


000526 


065/01 


OOOOOOG 








ADO 


CST.ADOR t Rl 


000552 


026061 


000002G 


oOOOlO 




CMP 


BST»2(R0),10(R1 ) 


000540 


002003 










BW 


<M 


00054 J 


015/60 


ooooi2ci 


OOOOOOG 




MOV 


RANDOM* 1 2, BST(RO) 


000550 


022626 








*>$: 


CMP 


( SP )• , c «;p ) * 


000552 


00020 '7 










RTS 


PC 


000554 


062 701 


OOOOOCXi 






10$: 


ADD 


OTRK.SGN.Rl 


OOO560 


105/11 










TSTfi 


(Rl) 


00056c"' 


005410 










Die 


12$ 


000564 


02122/ 


177777 








CMP 


( R2 ) , * - 1 


0005 /O 


00100* 










BNt 


11$ 


0005/2 


005012 










CI R 


(R2) 


0005 -'4 


00:21 5 










INC 


(R5) 


00057b 


0004 1 1 










BH 


141 


OOO600 


005212 








11): 


INC 


(R2) 


000602 


00040/ 










BH 


14$ 


000604 


005? 12 








12$: 


TST 


(R2) 


000606 


001004 










BNE 


15$ 


000610 


012712 


177/77 








MOV 


« 1.CR2) 


00O614 


005515 










DtC 


(R5) 


000616 


O0O4 01 










BR 


141 


0006 c ?0 


005512 








13$: 


DK 


( R2 ) 


000622 


015700 


000000b 






14$: 


MOV 


CUOfT.RO 


000626 


006500 










ASL 


RO 


000650 


060500 










ADO 


R5.R0 


00065? 


0? 1 260 


00000 ■•• 








CMP 


(R2),6(R0) 


0006 to 


1054 11 










BLO 


15$ 


000640 


015700 


000000(1 








MOV 


CUOff ,R0 


00O644 


006 500 










ASL 


RO 


00O646 


060500 










ADD 


R5.R0 


0OO650 


021560 


000010 








CMP 


(R5),10(R0) 


000654 


105402 










BLO 


15$ 


000656 


112711 


00037/ 








MOVB 


«3//,(Rl ) 


00066."' 


015 700 


OOOOOOG 






15$: 


MOV 


CUO$>".«0 


000666 


006 500 










ASL. 


RO 


0006/0 


060500 










ADD 


R5.R0 


0006 72 


016000 


000002 








MOV 


2(R0),R0 


000676 


<X)5200 










INC 


RO 


000 700 


t J 12OO 










CMP 


(R2),R0 


000 702 


101011 










BH1 


16$ 


000/04 


0!3 7 00 


OOOOOOG 








MOV 


CUOFF ,R0 


000/10 


006500 










A'JL 


RO 


000/12 


060500 










ADO 


R5.R0 


000/14 


021560 


0OOCO4 








CMP 


( Rn,4(R0) 


000 720 


101002 










BMI 


16$ 


000 rW 


112/11 


000001 








novn 


01, (Rl ) 


000/26 


00020 7 








16$: 


RTS 


PC 


; Rout: 


*"** '>'> *'« : 


2*6 mo' 


"dS, 


Hoot i 


r»« Has*: 


$COOE$ 


* 16346 


; Ha* I mum stacW 


depth p«r ♦ 


rivocot ion; 


l 10 words 







VAX 11 Bl ;«» 16 V4 
DI5K$USBR2i[P0WF.R5 



5/'> 
l/RQAD0,BL2:6 



'ifcU 552 
Pao<? 121 
(51) 



4155 
4 1 55 
4K."> 

4161 



416 5 

4166 
416/ 

A 1 6 3 
41 /C 
4161 
•U/2 

41 /5 
41/6 
4 1 72 
4 1 "4 
4 182 



4183 



4 1M4 
4 186 



4 18' 



41^ 
40o^ 



[) 1 < 



/RUAM5 
V01.6 



4191 

4192 
4193 

4194 
4195 
4196 
4197 
4 193 
4199 
4200 
4201 
4202 
4203 
4 204 
4205 
4206 
420 ; 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4 222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4250 
4231 



MQ/MX tXERCISER 
MU.TI-ORIVF. TEST ROUTINES 

IIZZZ rout in* QIO SIZE { novnlue 
GLOBAL ROUTINE QlO.SIZE ; NOVALUE 



11 Apr- 1984 lli08:Sf> 
ll-Apr-19tt4 Ui08}22 



VAX -11 Bl inn 16 V4 ,0-5/9 
DISKIUSER2: [POWERS ]ZRQAD0.BL£{6 



SEQ 0353 
Page 122 

(32) 



THIS ROUTINE IS CALLED BY QIO^GEN TO SELECT THE I/O TRANSFER BYU COUNT 
TO BE USED FOR THE CURRENT QIO OR QIO PAIR, THE BYTE COUNT IS 
DETERMINED BY A RANDOM NUMBER, AND WILL ALWAYS FALL BETWEEN 1 AND THE 
I/O BUFFER SIZE CBYTS_PER_QIO ) , It is assumed that BY TS..PER„QIO will 
never be larger than one binary word or 65000 bytes, 

IMPLICIT OUTPUTS: 

THE BYTE COUNT IS LOADED INTO ONE OR BOTH MSCP PACKETS. 



begin 

local 

SIZE : word, 
BLOCKS LEFT 



! BYTE COUNT 

» REMAINING BLOCKS LEFT 



word j 

SIZE - ((.RANDOM [4] and *o«077777') mod ( .BYTS.PER.QIO ♦ 1)) and Ho' 177760' j !GET BYTE COUNT FROM RANDOM NUMBER 

if .SIZE eql 
then 

SIZE * 16i 



if .CST_ADDR f.CUOFF ♦ 4, D ENDll gtru .MAD1 [LBN H] 

then BLOCKS LEFT • #e' 177777' 

else BLOCKS^LEFT - .CST.ADDR (.CUOFF ♦ 3, D.ENOOl .MAD1 (LBN L] ♦ lj 

if ((.SIZE * BYTES.PER SECT - 1) / BYTES PER .SECT ) gtru .BLOCKS ..LEFT 
then 

SIZE - .BLOCKS. .LEFT ♦ BYTES_PER_SECT j 

MAD1 [BC.LO] - .SIZEj 

if .MX2 geq 
then 

MAD* IBCLU) * .SIZE j 

end; 



! find 

» REMAINING BLOCK COUNT 

IF BLOCK COUNT NOT ENOUGH 

ADJUST BUf. COUNT DOWN 

LOAD SIZE INTO 1ST MSCP PACKET 

IF 2 QIOS 

LOAD SIZE INTO 2ND MSCP PACKET 

ROUTINE QIO SIZE 



QOOOOO 004137 OOOOOOG 



SBTTL QIO. SIZE MULT I DRIVE TEST ROUTINt 



000004 
000010 
000014 
000020 
000022 
00002*' 
000030 



013746 
042716 

013746 
005216 
0047 57 
010003 
042703 



0000 10G 
100000 

OOOOOOG 

OOOOOOG 
000017 



QIO. SIZE: : 
JSR 

MOV 
BIC 

MOV 
INC 
JSR 
MUV 
BIC 



R1,$SAVE3 

RANDOM* 10. (SP1 

0100000. (SP) 

BYfS.PE-R.QIO, (SP) 

^SP) 

PCBLIMOO 

R0.R3 

017, R3 



4211 



♦.51/1 
♦.SIZE 



El 2 



ZRQAM3 
V01, 6 

000054 
000056 
000042 
000046 
000050 
000054 

000060 
000066 
000070 
0000 74 
000076 
000102 
000104 
000110 
000114 
000120 
000122 
000124 
000126 
000132 
000136 
000142 
000144 
000146 
000150 
000152 
000154 
000156 
000160 
000162 
000166 
000172 
000174 
000200 
000204 
000206 



001002 
012703 
013700 
006300 
063700 
013701 
026061 
101403 
012702 
000413 
013700 
006300 
063700 
016000 
166100 
010002 
005202 
010316 
062716 
012746 
004 73 7 
005726 
020002 
101405 
010200 
000300 
105000 
006300 
010003 
010361 
005737 
002404 
013700 
010360 
022626 
O002O 7 



RO/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 



000020 
OOOOOOG 

OOOOOOG 
000112' 
000010 

177777 

OOOOOOG 

OOOOOOG 

000006 

000046 



000777 
001000 
OOOOOOG 



000026 
000110' 

000114 1 
000026 



1*1 



000050 



2$: 



3*5 



4$ 



5$ 



11 Apr- 1984 
ll-Apr-1984 



BNE 1$ 

MOV 020, R3 

MOV CUOFT.RO 

ASL RO 

ADD CST.ADDR,R0 

MOV MAD1.R1 

CMP 1<KR0),50(R1) 

BLOS 2t 

MOV #-l,R2 

BR 3 J 

MOV CUOf-T.RO 

ASL RO 

ADO CST.ADDR.RO 

MOV 6(R0),R0 

SUB 46CR1),R0 

MOV R0.R2 

INC R2 

MOV R3,(SP) 

ADD *777, CSP) 

MOV 0100C, (SP) 

JSR PC.BLSDIV 

TST (SP)* 

CMP R0,R2 

BLOS 4$ 

MOV R2,R0 

SWAB RO 

CLRB RO 

ASL RO 

MOV R0.R3 

MOV R3,26CR1) 

TST MX2 

BIT 5$ 

MOV MAD2.R0 

MOV R3,26(R01 

CMP (SP)»,(SP)» 

RTS PC 



11:08:35 VAX-U Bliss -16 V4 . 0-5/9 

1 1 { 08 j 22 DISK IUSER2 : [ POWERS JZRQADO , BL2 ; 6 

! ♦.SIZE 



SEQ 



l ♦.BLOCKS. LEFT 



j *, BLOCKS. LEFT 

; BLOCKS. LEFT 
i SIZE.* 



t *, BLOCKS. I EFT 
; BLOCKS.LEFT,* 



i *,size 

; SIZE,* 



i SIZE,* 



Page 123 
( 32) 

4213 
4215 
4217 



4218 
4217 
4219 



4221 



4223 



4225 
4227 

4229 

4205 

4192 



; Routine Sire: 68 words, Routine Base: * CODE J * 17276 

; Maximum stack depth per invocation; 8 words 



F1.2 



ZRQAM3 




V01, 6 




{ 4232 


1 


; 4233 


1 


; 4234 


1 


5 4235 


1 


; 4236 


1 


; 4237 


1 


; 4238 


1 


4239 


1 


; 4240 


1 


; 4241 


1 


r 4242 


1 


j 4243 


1 


5 4244 


1 


{ 4245 


1 


; 4246 


1 


i 424 7 


1 


; 4248 


1 


; 4249 


1 


; 4250 


1 


; 4251 


1 


; 4252 


1 


; 4253 


1 


; 4254 


1 


; 4255 


1 


; 4256 


1 


; 4257 


o 


; 4258 


2 


4259 


2 


: 4260 


2 


J 4261 


2 


; 4262 


2 


; 426? 


2 


; 4264 


2 


; 4265 


2 


i 4266 


3 


; 4267 


2 


; 4268 


2 


; 4269 


2 


} 4270 


3 


: 4271 


3 


j 4272 


3 


; 4273 


3 


; 4274 


3 


; 4275 


3 


; 4276 


4 


! 42 7 7 


4 


: 4278 


4 


; 4279 


4 


; 4280 


4 


j 4281 


4 


; 4282 


A 


; 4 28 3 


4 


; 4284 


3 



RD/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 

GLOBAL routine FILL.BUFF j novalue = 



ll-Apr-1984 11:08:35 
U-Apr-1984 11:06:22 



VAX-11 Bliss-16 V4. 0-579 
DISK$USER2: CP0WERSlZRQADO.BL2j 



SEQ 0355 
Page 124 
(33) 



THIS ROUTINE IS CALLED BY QIO_GEN TO LOAD THE I/O BUFFER DESCRIBED IN 
THE FIRST MSCP PACKET WITH THE APPROPRIATE DATA PATTERN, 

THE DATA PATTERN TO BE SELECTED IS BASED ON THE FOLLOWING ALGORITHM: 

IF THE OPERATOR DEFINED A DATA PATTERN 
THEN 

SELECT IT 
ELSE 

GET DATA PATTERN NUMBER FROM SW P-TABLf 

IF DATA PATTERN NUMBER - 

THEN 

GET DATA PATTERN NUMBER FROM THE UNIT'S ENTRt 
IN THE DATA PATTERN SEQUENCE TABLE CDPST 1 

NOTE THAT PATTERN * 1 CONSISTS OF RANDOM NUMBERS. ANO PATTERNS t> % 7 ■ 
21 USE THE ACTUAL LBN OF THE WRITE REQUEST. 

IMPLICIT INPUTS: 

L*LUN - CURRENT (DRS) UNIT NUMBER 



begin 

local 

DP NUM : word, 
DP ADDR. 
IOB ADDR, 
SRC_ADDR, 
COUNT : word: 

if BIT TST CSWP FLAGS. SWF UDP) 
then 

DP..ADDP » SWP.UCNT 
else 

begin 

if .SWP DPAT neq 
then 

DP_NUM - .SWP .DPAT 
else 

begin 

DP NUM - ,DPST [ ,L»LUN)| 

DPST [.LSLUN] - .DPST [.I. SI. UN] . lj 

if .DPST f,L*l.UN] gtru DP CNT 
then 

DPST f.LSLUN] - 1; 

end j 



! DATA PATTERN NUMBER SELECTED 
! ADDR OF DATA PATTERN (LENGTH) 
! I/O BUFFER ADDRESS (DESTINATION) 
! WORKING SOURCE ADDRESS 
» NO. OF UOftDS IN DATA PATTERN 

! IF USER DEFINED A DATA PATTERN 

! SELECT IT 



! IF USER SELECTED A PRE-DEFINED DATA PATTERN 
! SELECT IT 



! GET PATTERN NUMBER FROM SEQUENCE TABLE 
! ADVANCE TO NEXT PATTERN NUMBER 

! CHECK FOR HIGH LIMIT 



G 1 2 



JRQAMS 




VOL 6 




; 4285 


3 


; 4286 


3 


i 4287 


3 


j 4288 


3 


i 4289 


3 


; 4290 


3 


4291 


3 


; 4292 


3 


; 4293 


3 


; 4294 


3 


: 4295 


3 


; 4296 


3 


; 429? 


^ 


{ 4298 


2 


; 4299 


2 


; 4300 


2 


; 4301 


2 


; 4 302 


2 


; 4303 


2 


i 4304 


3 


; 4305 


3 


; 4306 


3 


; 4307 


3 


j 4308 


3 


; 4 309 


3 


; 4310 


3 


; 4311 


3 


; 4312 


4 


; 4313 


4 


! 4314 


4 


; 4315 


3 


: 4316 


3 


: 4317 


2 


; 4318 


2 


; 4319 


1 



RO/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 



11 -Apr- 1984 11i08j35 
ll-Apr-1984 11:08:22 



VAX-11 Bllss-16 V4, 0-579 

DISK $USER2:[ POWERS ]ZRQAD0,BL2; 6 



SEQ 0356 
Page 125 
(33) 



DP.ADDR - .DPA.JBL [ ,DP_NUM • 11; 

if .DP.NUM gequ 17 
then 

if .DP NUM 
then 

(.DP_ADDR * 2) - ,MAD1 [LBN_U 
else 

C.DP.ADDR f 4) - ,MAD1 [l.BN.L]; 

end} 

IOB. ADDR - .MAD1 [BUT 01; 

COUNT - . .DP ADDR; 

SRC. ADDR * .DP.ADOR ♦ 2; 

incr N from 1 to (C.MAD1 [BC.LO] ♦ 1) / 2) do 
bealn 

.108 ADDR - . ,SRC ADDR; 
IOB_ADDR - ,IOB_ADDR ♦ 2; 
SRC. ADDR - . SRC.ADDR * 2; 
COUNT « .COUNT - 1; 

IF .COUNT eql 
then 

begin 

COUNT * , .DP ADDR; 

SRC_ADDR « .DP^ADDR ♦ 2; 

end; 



end: 



end; 



! ADDRESS OF DATA PATTERN (COUNT) 

• CHECK MACRO (IF PATTERN 17, 19, OR 21) 
! LOAD LBN INTO FIRST WORD OF PATTERN 
» LOAD LBN INTO SECOND WORD OF PATTERN 



! I/O BUFFER ADDRESS 

J NO. OF UORDS IN DATA PATTERN 

I START OF THE ACTUAL DATA PATTERN 

! FOR EACH WORD IN THIS WRITE REQUEST 

• MOVE 1 WORD 

» ADVANCE DESTINAUON ADDRESS 
! ADVANCE SOURCE ADDRESS 
! DECREMENT COUNT 

! IF END OF DATA PATTERN 



! REPEAT DATA PATTERN 

! WORD TRANSFER LOOP 
J ROUT INF FILL BUFF 



000000 00413/ OOOOOOG 



.SBTTL Fin. .BUFF MULTI -DRIVE TEST ROUTINES 



000004 


005746 




000006 


032737 


OOOIOO OOOOOOG 


000014 


001403 




000016 


012701 


OOOOOOG 


000022 


00044 3 




000024 


013/00 


OOOOOOG 


000030 


001402 




000032 


010002 




000034 


000414 




000036 


013700 


OOOOOOG 


000042 


062 700 


000050' 


000046 


005002 




000050 


151002 





FILL 


.BUFF:: 






JSR 


Rl, iSAVES 




TST 


-CSP) 




BIT 


# 100, SUP. n. AGS 




BEQ 


1$ 




MOV 


•3SWP.UCNT.R1 




BR 


M 


1*; 


MOV 


SWP.DPAT.RO 




BEQ 


2$ 




MOV 


R0.R2 




BR 


3$ 


25: 


MOV 


LU.UN.RO 




ADD 


ODPST.RO 




Cl.R 


R2 




BISB 


(R0),R2 



} ♦.DP. ADDR 



; *.DP.NUM 

» 

t 

I DP. NUM 
; *,OP.NUM 



4232 

42^b 

4 2t. A 
42ob 
42 '2 

42 *4 

42-* 2 
42"7 



Hlcr 



;> 



VOL 6 

00005.? 
000054 
OOOObO 
000062 
000066 
0000 70 
000072 
000076 
000102 
000104 
000110 
000112 
000114 
000122 
000124 
000132 
00015b 
000142 
000144 
000150 
000152 
000154 
000160 
000162 
000166 
000172 
000176 
000200 
000202 
000204 
000206 
000210 
000212 
000214 
000216 
000222 
000224 
000230 



105210 
121027 
101402 
1.12710 
010200 
006500 
016001 
02022 7 
103413 
013700 
006002 
103004 
016061 
000403 
016061 
013700 
016004 
011103 
012705 
060105 
010502 
016046 
005216 
012746 
0O4 73 7 
010066 
005000 
000405 
012224 
005303 
001002 
011103 
010502 
005200 
020066 
003767 
062706 
00020 7 



RD/KX EXERCISER 

MULT I -DRIVE TEST ROUTINES 



000025 
000001 



001072* 
000021 

000112* 



000046 000002 



000046 

000112' 

000032 

000002 



000026 

000002 

OOOOOOG 

000004 



000004 



000004 
000006 



11 -Apr-1984 U;08:35 
ll-Apr-1984 11:08;22 



VAX -11 Bliss-16 V4. 0-579 

DISK SUSER2 j [ POWERS ] ZRQADO . BL2 j 6 





INCB 


CRO) 




CMPB 


(R0\O25 




BLOS 


3$ 




MOVB 


01, (RO) 


3$: 


MOV 


R2,R0 




ASL 


RO 




MOV 


DPA.TBL-2(R0),R1 




CMP 


R2.021 




BLO 


5$ 




MOV 


MAD1.R0 




ROR 


R2 




BCC 


4$ 




MOV 


46CR0),2(R1) 




BR 


5$ 


4$: 


MOV 


46(R0),4(R1) 


5$j 


MOV 


MAD1.R0 




MOV 


32(R0),R4 




MOV 


CRU.R3 




MOV 


02, R5 




ADD 


R1.R5 




MOV 


R5.R2 




MOV 


26CR0), -CSP) 




INC 


CSP) 




MOV 


02, -(SP) 




JSR 


PC,BL*DIV 




MOV 


R0,4(SP) 




CLR 


RO 




BR 


7$ 


6$: 


MOV 


(R2)f ,(R4)f 




DEC 


R3 




BNE 


7$ 




MOV 


(RD.R3 




MOV 


R5.R2 


7*: 


INC 


RO 




CMP 


R0.4CSP) 




BLE 


6$ 




ADD 


06, SP 




RTS 


PC 



; DP. NUM. + 

j *.DP.ADDR 
; DP.NUM,* 



} DP.NUM 

j *,*CDP.ADDR) 

! *.*CDP.AD0R) 

j *,10B.AD0R 

j DP. ADDR, COUNT 

; DP.ADDR.* 

; ♦.SRC.ADDR 



N 



SRC.ADDR.rOB.ADDR 
COUNT 

DP. AODR, COUNT 

♦.SRC.ADDR 

N 



3EQ 035 7 
Poo* 126 
(33) 

4276 

4280 

4282 
4286 



4288 

4293 
429i 

429-; 

4291 
4295 
4299 

4300 

4301 



4303 



4305 
4308 
4310 
4313 
4 314 
4 303 



4232 



; Routine Sire: 77 wo^s, Routine Base: $CODE$ 
; Maximum stack depth per invocation: 10 words 



17506 



4 320 
4321 



112 



ZRQAM5 




VOL 6 




; 4322 


1 


j 4325 


1 


4 324 


1 


; 4325 


1 


; 4326 


1 


j 4327 


1 


j 4328 


1 


; 4 329 


1 


j 4330 


1 


j 4331 


1 


; 4332 


1 


; 4333 


1 


4 334 


1 


4 335 


1 


; 4336 


1 


; 433? 


1 


; 4338 


1 


j 4339 


1 


4340 


1 


; 4341 


2 


; 4342 


2 


; 4343 


p 


; 4 344 


3 


j 4345 


2 


; 4346 


2 


j 4347 


2 


; 4348 


2 


; 4349 


2 


j 4350 


2 


; 4351 


2 


; 4352 


2 


; 4353 


2 


; 4354 


2 


t 4355 


2 


; 4356 


2 


; 4357 


1 



RO/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 

GLOBAL ROUTINE PROCRETPKT : NOVALUE * 



ll-Apr-1984 11j08:35 
ll-App-1984 11:08:22 



VAX-11 Bliss-16 V4. 0-579 
DISK$USER2j[P0WERS]ZRQAD0.BL2}6 



SEQ 0358 
Page 12 7 
(34) 



THIS ROUTINE IS CALLED FROM THE MULTI_DRIVE "EXECUTIVE" AND DUP COMMAND TO CHECK FOR 
AND PROCESS ANY RETURN PACKETS THAT HAVE BEEN "SENT" BY THE "DRIVER" 
PORTION OF THE PROGRAM. THE I/O DONE QUEUE (IODQ) ACTS AS THE LINK 
BETWEEN THE TWO PROGRAM PARTS s IT HOLDS INDECES OF RETURN PACKETS WHICH 
REQUIRE PROCESSING. 

UNDER THE MULTI -DRIVE TEST, RETURN PACKETS ORIGINATE FROM TWO SOURCES: 

1. MSCP - THE MORE COMMON, DESCRIBING A COMPLETED I/O 

OPERATION. 

2. DUP - THE LESS COMMON, DESCRIBING A PORTION OF I/O 

COMMUNICATIONS WITH THE CONTROLLER PROGRAM, 

3. THE PROGRAM "DRIVER" - DESCRIBING A CONTROLLER ERROR OR 

COMMAND TIMEOUT, 



while ,IODQ_IN neq . IODQ„OUT do 
begin 

RP_INDX - OUT_IODQ O; 

RP^ADDR - RETPKT ♦ ( .RP.INDX ♦ RP LEN * 2); 
If NOT (,RP_ADDR tCONID] eol CID..DUP) 
then (SET..CPAR C .RP^ADDR [CTLRJ)j)j 

selectoneu .RP ADDR [CONID] of 
set 



[CID_MSCP] : 
[CID_DUP] ; 

[CID_DRIVER] : 

[otherwise] : 
tes{ 



10 RETPKT ( )j 
DIO.RETPKT ( ); 
OR RETPKT ( )j 



! DO UNTIL I/O DONE QUEUE IS EMPTY 

! GET INDEX OF NEXT RETPKT AND ADVANCE OUT POINTER 

! CALCULATE RETPKT ADDRESS 

! If not DUP than 

! SET UP CURRENT CONTROLLER PARAMETERS 

! CONNECTION ID INDICATES PACKET SOURCE 



! DISK MSCP (I/O TRANSFER DONE) 
! DUP (I/O TRANSFER DONE) 
! MESSAGE FROM "DRIVER" 



end; 



PRINTF (DBM12, .RP„ADDR [CONID] );! "CONN ID - XXXXX RECEIVED" 

! UNITL I/O DONE QUEUE IS EMPTY 



000000 010146 



000002 


023737 


OOOOOOG 000000 


000010 


001467 




000012 


004 737 


OOOOOOG 


000016 


010037 


OOOOOOG 


000022 


010046 




000024 


012746 


000054 


000030 


004737 


OOOOOOG 


000034 


062700 


OOOOOOG 


000040 


010037 


OOOOOOG 


000044 


126027 


000003 000002 


000052 


001406 




000054 


116016 


000002 



.SBTTL 


PROCRETPKT MULT 


PROCRETPKT: : 




MOV 


Rl, (SP> 


1$: CMP 


IODQ. IN, IODQ. OUT 


BEQ 


71 


JSR 


PC, OUT. IODQ 


MOV 


RO.HP. INOX 


MOV 


RO , ■ ( Sf ' ) 


MOV 


454. -(5P) 


JSR 


PC,Bl.*MUL 


ADD 


0RETPK1 ,R0 


MOV 


RO.RP.ADDR 


CMPB 


3(R0),tf2 


BKQ 


2$ 


MOVB 


2(R0),CSP) 



RP.INDX,* 



4322 

4 540 

4 342 
4343 



4 544 

4 54 5 



J 12 



ZRQAM3 
V01. 6 

000060 
000064 
000070 
000074 
000076 
000102 
000104 
000106 
000112 
000114 
000120 
000122 
000126 
000130 
000134 
000136 
000142 
000144 
000146 
000152 
000156 
000160 
000162 
000164 
000166 
000170 
00C172 



042716 
004737 
013700 
005001 
156001 
005701 
001003 
004737 
000424 
020127 
001005 
004737 
000416 
020127 
001003 
004737 

000410 

010116 
012746 
012746 
010600 
104417 
022626 
022626 
000705 
012601 
000207 



RD/RX EXERCISER 

MULT I -DRIVE TEST ROUTINES 



177760 

OOOOOOG 

OOOOOOG 

000003 



000000V 
000002 

oooooov 

000003 
OOOOOOV 



OOOOOOG 
000002 



2$i 



3$ 



4$ 



5* 



6$ 
7$ 



ll-Apr~1984 11:08:35 
ll-Apr-1984 11:06:22 



VAX-J1 Bliss-16 V4. 0-579 
DISK*USER2: [ POWERS ]ZRQADG\BL2; 6 



BIC 


0177760, (SP) 


JSR 


PC.SET.CPAR 


MOV 


RP.ADDR.RO 


CLR 


Rl 


BISB 


3CR0),R1 


TST 


Rl 


BNE 


3$ 


JSR 


PC.IO.RETPKT 


BR 


6$ 


CMP 


Rl,#2 


BNE 


4$ 


JSR 


PC.DIO.RETPKT 


BR 


6* 


CMP 


Rl,*3 


BNE 


5$ 


JSR 


PC.DR.RETPKT 


BR 


6$ 


MOV 


R1,(SP) 


MOV 


*DBM12,-(SP) 


MOV 


02,-CSP) 


MOV 


SP.RO 


TRAP 


17 


CMP 


(SP)*.(SP)* 


CMP 


( SP ) ♦ , ( 3P ) ♦ 


BR 


H 


MOV 


(SP)*.R1 


RTS 


PC 



SEQ 0359 
Page 128 
(34) 



4347 
4350 



4 34 7 
4351 



4 34'.' 
4352 



4 34 7 
4 354 



; SP,* 



4 34 1 
4 340 
4322 



Routine Size: 62 words, Routine Base: $CQDE$ ♦ 17740 
Maximum stack depth per invocation: 7 words 



1/ I ' ) 



!< 1 



C. 



ZRQAM3 
V01, 6 



4358 
4359 

4360 
4361 
4362 
4363 
4 364 
4365 
4366 
4367 
4368 
4369 
4 370 
4371 
437? 
4373 
4 3 74 
4375 
4376 
4377 
4378 
4379 
4380 
4381 
4382 
4383 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4 394 
4 395 
4396 
4 39 7 
4398 
4 399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
44 09 
4410 



1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
4 
4 
4 
3 
3 
2 
3 
3 
4 
3 
4 
4 
4 
4 
4 
5 
5 
5 
4 
3 



RD/RX LXERCISLR 

HULTI -DRIVE TEST ROUTlNhS 

\ t 

GLOBAL ROUTINE DIO_RETPKT : NOVALUE - 



ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss-16 V4. 0-579 

DISK SUSER2 : [ POWERS ] ZRQADO . BL2 j 6 



SEQ 0360 
Page 129 
(35) 



THIS ROUTINE IS CALLED BY PROC RETPKT TO HANDLE ALL DUP I/O TRANSFER 
RETURN PACKETS. PROCESSING OF THESE PACKETS INCLUDES DECLARING ANY 
HARD ERRORS THAT MAY HAVE OCCURRED, UPDATING THE STATISTICS. 

IMPLICIT INPUTS: 

RP_ADOR - ADDRESS OF THE CURRENT RETURN PACKET 

T..ADDR - ADDRESS OF THE CURRENT UNIT'S STATISTICS BLOCK (TALLY) 

CST_ADDR ~ ADDRESS OF THE CURRENT CONTROLLER'S CST 

DUOFF - CST OFFSET FOR THE CURRENT UNIT 

LSLUN - CURRENT UNIT NUMBER 

CCTLR - CURRENT CONTROLLER NUMBER 



IMPLICIT OUTPUTS 

CST.ADDR t .DUOFF f 



OF_DBN, NODUPMEDIA] - IF THIS BIT SET NO DUP EXERCISER 



BEGIN 

LOCAL FLAG : BYTE INITIALCBYTEC TRUE) ) . 

SUM2 j WORD, 

SUM : WORD: 
!PRINTX (DER18): 

IF .RP_ADDR [STATUS] NEQU ST_SUC 
THEN 

BEGIN 

CST^ADDR [.DUOFF ♦ OF_DBN, DUPERROR] » Ij 

HARD ERROR ( ) • 

IF .RP^ADDR [ENDCOD) EQLU COP EL P ♦ OP END) OR 

.RP.ADDR [ENDCOD] EQLU COP GDS ♦ OP END) 
THEN BEGIN 

CST_ADDR [.DUOFF ♦ OF_DBN, NODUPMEDIA] 
END: 
END 



! TOTAL NUMBER OF BYTES TRANSFERRED TO/FROM A UNIT 
I IF STATUS CODE INDICATES ERROR 

! SET DUP ERROR FLAG 

• IF ENDCODE IS EXECUTE LOCAL PROGRAM 
! OR GET DUST STATUS 



1: 



! TURN OFF DUP EXERCISR 



ELSE 



BEGIN 



IF .RP..ADDR [ENDCOD] EQLU (OP GDS 
THEN 

BEGIN 

IF ,RP_ADDR [9.11,1.0] EQL 1 

THEN CST.ADDR [ .DUOFF 

ELSE CST. ADDR [ .DUOFF 
IF .RP^ADDR [9,9,1.0] NEQ 1 THLN 

BEGIN 

HARD ERROR ( ) * 

CST_ADDR [.DUOFF ♦ OF..DBN, NODUPMEDIA] = 1; 

END: 
END: 



! ELSE - I/O WAS SUCCESSFUL 
UP END) • IF ENDCODE IS GET OUST STATUS 



OK.DBN, D. ACTIVE] » ACTTVE ! CONTROLLER IN AN ACTIVE STAE 

OF_DBN, D. ACTIVE] - IDLE: ! CONTROLLER IN AN IDLE STATE 

• TEST TO SEE IF CONTROLLER LOCAL PROGRAMSCPG 18 OF DUP DOC 1 



♦ TURN OFF DUP LXLRC1SR 



ZRUAM3 




V01»6 




; 4411 


3 


; 4412 


3 


; 4413 


3 


; 4414 


3 


; 4415 


3 


; 4416 


4 


; 441? 


3 


; 4413 


3 


; 4419 


2 


; 4420 


<- 


; 4421 


2 


; 4422 


1 



RD/RX fcXERCISER 
MULTI-DRIVE TEST ROUTINES 



LI 2 

ll-Apr-1984 11:08:35 
U-Apr-1984 11:08:22 



VAX-11 Bliss-16 V4. 0-579 

DISK $USER2 : [ POWERS JZRQADO . BL2 { 6 



SEQ 0361 
Pog« 130 
(35) 



IF (,RP_ADDR [ENDC0D1 EQL (OP RCD ♦ OP END)) AND 
(.DUPPKT [DUPT/PF.3 EQL 6) AND 
(.DUPPKT [DUPMESC] EQL 2) AND 

(.CST_ADDR f.DUOFF ♦ GF..DBN, DUPWRITE] EQLU 1) 
THEN DUP COMPARE ()j 



J IF IT IS A RECEIVE DON COMMAND WITH TYPE 6 AND MESSAGE 
! IF WRITE FLAG SET IN CST TABLE THEN COMPARE 



2 THEN 



END: 

PUT.RETPKT (,RP_INDX); 
END; 



{ COMPARE THE FOLLOWING 512 BYTES 



! ROUTINE DIO RETPKT 



000000 010146 



000002 
000006 
000012 
000016 
000020 
000024 
000026 
000032 
000040 
000044 
000050 
000056 
000060 
0O0066 
000070 
0000 74 
000076 
000102 
000110 
000112 
000120 
0)0122 
000126 
000130 
000134 
000142 
000144 
000152 
000154 
000162 
000170 
000172 
0001/6 
000202 
000204 
000210 



112700 
013701 
005761 
001435 
013700 
006300 
063700 
052760 
004737 
013700 
12602/ 
001404 
126027 
001112 
013700 
006300 
063700 
052760 
000501 
126127 
001036 
013700 
006300 
063700 
032761 
001404 
052760 
000403 
042760 
032761 
001012 
004 737 
013700 
006300 
063/00 
052760 



000001 

OOOOOOG 

000016 

00X156' 

OOOOOOG 
040000 

oooooov 

OOOOOOG 
000014 

000014 

001156* 

OOOOOOG 
100000 

000014 

001156' 

OOOOOOG 
004000 

020000 

020000 
001000 

oooooov 

001156' 

OOOOOOG 
100000 



000020 

000203 
000201 

000020 
000201 

000022 

000020 

000020 
000022 



000020 



.SBTTL 
DIO. RETPKT:: 

MOV 

MOVB 

MOV 

rsT 

BEU 

MOV 

ASL 

ADD 

BIS 

JSR 

MOV 

CMPB 

BFQ 

CMPB 

BNE 

1$: MOV 
ASL 
ADD 
BIS 
BR 

2$: CMPB 
BNE 
MOV 
ASL 
ADD 
BIT 
BEQ 
BIS 
BR 

3$: BIC 

4$: BIT 

BNE 
JSR 
MOV 
ASL 
ADD 
BIS 



DIO. RETPKT MULTI-DRIVE TEST ROUTINES 



Rl.-(SP) 

41, RO 

RP ADDR.R1 

16(R1) 

2$ 

DUOFF.RO 

RO 

CST.ADDR.RO 

040000, 20(R0) 

PC, HARD. ERROR 

RP.ADOR.RO 

14(RO\0203 

It 

14(R0),0201 

6$ 

DUOFF.RO 

RO 

CST.ADDR.RO 

0100000, 20CR0) 

6* 

14CRD.O201 

5$ 

DUOFF.RO 

RO 

CST.ADDR.RO 

04000,22(R1) 

3$ 

420000, 20CR0) 

4$ 

320000, 20CR0) 

01000, 22CR1) 

5$ 

PC. HARD. ERROR 

DUOFF.RO 

RO 

CST.ADDR.RO 

4100000, 20CR0) 



+.FLAG 



4359 
4 3 78 
4385 



4388 



4 389 
4390 



4 391 
4393 



4 385 
4 399 

4403 



4402 

4403 

4402 
4404 
4405 

4 40 * 
4408 



Ml 2 



7RQAM3 
VOL 6 

000216 
00022? 

000230 
000232 
000236 
000242 
000246 
000250 
000254 
000260 
000264 
000266 
000272 
0002/4 
000300 
000306 
C00310 
000314 
000320 
000324 
000326 
000330 



013700 
126027 
001031 
013700 
042700 
020027 
001022 
013700 
042 700 
020027 
001013 
013700 
006300 
063700 
032760 
001402 
004737 
013746 
004737 
005726 
012601 
000207 



RO/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 



OOOOOOG 
000014 

OOOOOOG 

007777 

060000 

OOOOOOG 

170000 

000002 

001156' 

OOOOOOG 
010000 

oooooov 

OOOOOOG 
OOOOOOG 



000205 



5$; 



000020 



6$i 



ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



MOV 


RP.ADDR.RO 


CMPB 


14CRO),02O5 


BNE 


6$ 


MOV 


DUPPKT.RO 


BIC 


07777.RO 


CMP 


RO, 060000 


BNE 


6$ 


MOV 


DUPPKT.RO 


BIC 


017OOOO.RO 


CMP 


RO.02 


BNE 


6* 


MOV 


DUOFF.RO 


ASL 


RO 


ADO 


CST.ADDR.RO 


BIT 


010000. 20CR0) 


PEQ 


6$ 


JSR 


PC, OUP, COMPARE 


MOV 


RP.INDX.~CSP) 


JSR 


PC.PUT.RETPKT 


TST 


(SP)* 


MOV 


(SP)*,R1 


RTS 


PC 



SEQ 0362 
VAX-11 Bliss-16 V'J. 0-579 Page 131 

DISK 5USER2 : [ POWERS 1ZRQAD0 . BL2 ; 6 ( 35 ) 

I 4413 



4414 



4415 



4416 



441/ 
4421 

4378 
4359 



Routine Size: 109 words. Routine Base: $CODE$ 
haximuir. stack depth per invocation: 3 words 



20134 



4423 1 



N.12 



ZRUAM3 
V01. 6 



4^24 

4425 
4426 
44? 7 
4428 
4429 
4430 
4431 
4432 
44 33 
4434 
44 35 
4^36 
4437 
44 38 
4439 
4440 
4441 
444? 
4443 
4444 
444b 
4446 

444 7 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
44 55 
4456 

445 7 
4458 



2 
L > 

2 

3 
3 
3 
4 
4 
4 
4 
3 



RD/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 

GLOBAL ROUTINE DUP ..COMPARE j NOVALUE 



ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08: 22 



VAX-11 Bliss-16 V4. 0-579 

DISK *USER2 : [ POWERS ]ZRQADO . BL2 j 6 



SEQ 0363 
Page 132 
(36) 



THIS ROUTINE IS CALLED BY DIO RETPKT WHEN THE RECEIVE DATA COMMAND 
IS BEING PROCESSED, THIS COMMAND COMPARES THE WRITTEN BUFFER WITH 
THE PATERN WORD GIVEN IN SEND DATA COMMAND. FOR EVERY WORD COMPARED 
THE ROUTINE INCREMENTS THE TALLY TABLE. IF THE COMPARE SHOWS AN 
ERROR. THE DBN HARD ERROR COUNTER WILL BE INCREMENTED AND THE 
THE DBN NUMBER AND BYT£ COUNT WILL BE PRINTED. 



BEGIN 
OWN 



IMPLICIT INPUTS: 
S_PATTERN 
S OUPPKT 
T ADDR 
CST.ADDR 



COUNT : WORD? 



THE SAVED PATTERN WRITTEN TO THE DBN' S 

THE POINTER FOR DUP BUFFER 

THE ADDRESS OF THE TALLY TABLE FOR IHIli UNIT 

THE ADDRESS OF PRESENT CONTROLLER STATUS TABLE 



.♦INDEX PIONTER FOR DATA STORED IN MSCP ENV PACKET 



•PRINTX (DER19); 
S OUPPKT • 0* 

INCR COUNT Fh^M 1 TO 256 DO 
BEGIN 

S JXJPPKT - ,S DUPPK f * 2 1 

IF .(OUPPKT ♦ .S„DUPPKT) NEQ .S PATTERN THEN 
BEGIN 

CST_ADDR CDUOFF > OF DBN, DUPERROR] = 1; 
ERRHRD (46, EH„10 # F.MS .22 )| 
EXITLOOPj 
END} 
END; J GO THROUGH All DBN WORDS 

l : ND{ !END ROUTINE DUP -COMPARE 



! INITIALLY THIS SKIPS THE FIRST WORD Oh OUPPKT 
•IF THE CONTENTS Of- DBN DOESN'T EQUAL PATTERN 

! SET DUP ERROR FLAG 
•LIST ERROR 



001,? 06 
001.206 



.PSECT $GGG$, RO 
COUNT: .BLKW 1 



020466 

000000 

000002 
000006 
000012 
000020 

000024 

000032 



010146 

005037 

012701 
062737 
013 700 
026037 
00141b 



OOOOOOG 

000400 

000002 OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 



.SBTTL 


DUP. COMPARE MULTI -DR 


.PSECT 


$CODE$, RO 


DUP . COMPARE : : 




MOV 


HI. -CSP) 


n.R 


S . DUPPK T 


MOV 


0400. Rl 


1$: AOO 


42, S, OUPPKT 


MOV 


S. DUPPK T.RO 


CMP 


DUPPK T( HO ).S, PATTERN 


BEG 


2$ 



:VE TEST ROUTINES 



*, COUNT 



4424 
444 ' 
4448 
4 450 

4451 



/RQAM5 




RD/RX 1 XFRCISFR 




11 -r,pr-l9«4 


Ui0S,55 


VOL 6 




MUT1 DRIVE TEST ROUTINES 




11 Apr \1HA 


1 1 1 06 ; t'i? 


000054 


015/00 


00115b' 


MOV 


ouorr.Ro 




000040 


006500 




ASl 


R0 




00004 1 > 


065 700 


000000b 


<DD 


C5T .aoor.ro 




000046 


052760 


040000 OOtWO 


a; r > 


040000, ^O(RO) 




000034 


10443b 




IRA.- 


5b 




OO0O r M^ 


00003b 




. WO r *D 


3b 




0000*0 


OOOOOOo 




.UORD 


fcH. 10 




00006* 1 


OOOOOCH. 




.WOIH 


* MS . U V 




OOOOhA 


00040." 




HP 


5» 




00006 h 


00^501 


iM: 


di : 


HI 




oooo :o 


001 5S0 




B % f 


H 




0000 K" 


01^601 


55: 


nrv 


( l iP)»,Hl 




0000 *4 


OOIVO ' 




UTS 


PC 




j Ro^t ; 


n« Si.'e: 


51 word-i, Routing Q*»e • 


ICUDtl 


♦ 20466 




{ ht%\ \ mum nt ack 


depth per invocation: 5 words 








1 443 


■■* 1 










; 44e. 


1 










I 44bl I 











3EU 0^64 
VAX- H Bi;»» 16 V4.0 5/<> Pou« 1',', 

DI c iKtU3FRr 1 5(POWhHb)/RQADO,OL^>6 f 56) 

I 4435 



4434 



i COUNT 



443/ 

4448 

44 £4 



/HUAM5 




VOl.t 




; 44tV 


1 


5 44t>5 


1 


i 4464 


1 


j 44bS 


1 


; 44*. 6 


1 


; 44t ,' 


1 


; 44b8 


1 


; 44tiO 


1 


: 44/0 


1 


; 44 .'1 


1 


: 44 V 


1 


; 44*'? 


1 


; 44 '4 


1 


; 44 /S 


1 


; 44 /fc 


1 


; 44/.' 


1 


; 44/8 




; 44 /'* 


■I 


4480 


4. 


; 4481 


-1 


; 448^ 


I. 


; 4483 




j 4484 


.") 


; 44MS 


. J 


; 448b 


i? 


; 448/ 


^ 


; 4488 


*' 


; 4489 


s 


; 4490 


5 


; 4491 


5 


; 449 t > 


5 


; 4495 


5 


; 4494 


* 


; 4495 


4 


; 4496 


>; 


; 449/ 


4 


; 44 98 


4 


; 4499 


4 


: 4S00 


S 


; 4 SO I 


3 


; 4 SO,' 


3 


l 4 SO 5 




i 4S04 


5 


; 4 SOS 


T 


; 4S06 


5 


; 4 SO/ 


4 


; 4S0H 


> 


; 4S0'* 


V 


; 4S10 


»> 


; 4S11 


r 


; 4SK' 


4 


; 4S1'> 


'> 


j 4014 


3 



no rx i xtncistR 

MUTt DRIVE. TEST ROUTINES 

GLOBAL routint 10 RETPKT { novalut • 



11 Apr 1984 11: OH i IS 
11 Apr- 1984 Ut08|?2 



VAX It HI \nn V. V4.0 S/9 
OISKIUr>tRi*j[P0WKP r »)/RQADO.ULai6 



SFQ OVi!, 
P(%Qe 1'.4 
(37) 



THIS ROUTINE IS CALLED BY PROC RETPKT TO HANDLE All. I/O TRANSFER 
RETURN PACKETS. PROCESSING Of THESE PACKETS INCLUDES DECLARING ANt 
MARO ERRORS THAT MAY HAVE OCCURRED, UPDATING THE STATISTICS, AND 
PERFORMING HOST WRITE -COMPARES IE REQUIRFD. 

IMPLICIT INPUTS: 

CST ADDR - ADDRESS Or CURRENT CONTROLLER'S CST 

RP..ADDR - ADDRESS Of THE CURRENT RETURN PACKET 

T .ADDR - ADDRESS Of CERENT UNIT'S STATISTICS BLOCK l TALL, f ) 

CCTLR • CURRENT CONTROLLER NUMBER 

LILUN CURRENT UNIT NUMBER 



b#g!n 

local 

RAG ; byte initial (byte (TRUE.)), 

F SET UPAR C b 

ST. .CODE • .RP.AODR {STSCODh 

SH CODE • .RP.ADDR I SUBCOD ) j 

<f ( .ST CODE neq ST SUC) 
then 

begin 

HARD ERROR ( )j 

COMPARE DATA » FALSE j 

if (.ST. CODE neq S T Of L ) and 
(.Sf.COOE neq ST AVL ) and 
(,T ADDR (ERR HARD] gequ . SWP ERROR) 
then 

b«oin 

DUR f .1 II UN) - DU MERRi 

DODU ( .LILUN) j 

end i 



FIND UNIT'S ENTRf IS CM AND SET UP UNIT-RELATED DATA 
tiET STATUS CODE FROM RETPKT 
GET SUB CODF , IF AN> 

! IF STATUS CODE INDICATES ERROR 



! UPDATE FRROR COUNT 

» NO POINT IN DOING HOST COMPARES ON ERRORS 

♦ DROP UNIT IE ERROR COUNTS EXCEEDS LIMIT 



else 



end 



begin 
Ut 



ram 
»D 10 



.TALI 1 ( ), 



! I OAD RFASON FOR DROPPING UNIT 
! DROP UNIT 



! IF I WAS S"CCESSFIA 

} i*'0ATt I/O TAUt (STATISTICS^ 



if .RP ADDR (ENOCOD) «ql (OP WR T or OP E NO > 

then 



COMPARE DATA - TRlH \ 



! HOST COMPARES MMt MF Ai.lOWfO V NU FURTHER ERROR I 



if (HIT 1ST (SWP FLAGS, SWF HWC ) ) 6W ! IF" HOST IS DOING WRIT* COMPARES 

( .COMPARF DATA) 
then 

FLAG « HUST.WRT.CHK (), J SAVE l'O PACKET OR UO WRUE CHECK 



/RQAN3 




RD/RX EXERCISER 




VOL 6 




MULT1 -DRIVE TEST 


ROUTINES 


j 4515 5 






4Mb 2 


*ndi 




; 451 


7 2 






j 4516 2 


\r .flag 




i 451 


* 2 


then 




; 4 S t > 


2 


SWEEP C ), 




j 45;? 


1 2 






; 45c" 




QIO ( .CCTLR) 


- .QIO ( 


; 45.? 


3 1 


end; 




OOOOOO 


004137 


OOOOOOG 


I 


000004 


112701 


000001 




000010 


00473 J 


oooooov 




000014 


013700 


OOOOOOG 




000020 


116037 


000016 OOOOOOG 




000026 


042737 


177740 OOOOOOG 




000034 


016002 


000016 




000040 


0O6202 






0OO042 


006202 






000044 


006202 






0OOO46 


006202 






000050 


006202 






000052 


042^02 


174000 




00O056 


01023 7 


OOOOOOG 




0OO062 


005737 


OOOOOOG 




000066 


001431 






000070 


004737 


OOOOOOV 




000074 


105037 


001170* 




000100 


023727 


OOOOOOG 000003 




000106 


001447 






000110 


02372/ 


OOOOOOG 000004 




000116 


001443 






COO 120 


013 700 


OOOOOOG 




000124 


026037 


CO0014 OOOOOOG 




000132 


103435 






000134 


013/00 


OOOOOOG 




000140 


112 760 


000004 OOOOOOG 




000146 


104451 






000150 


000426 






000152 


004737 


OOOOOOV 


1 


000156 


013700 


OOOOOOG 




000162 


12602 7 


0OO014 000242 




ocewo 


001003 






0001 t? 


11273/ 


000001 OOU/0' 




000200 


032737 


000040 OOOOOOG 


t 


000206 


001407 






000210 


327 37 


000001 0OU7O 4 




000216 


001403 






000220 


004 7 3 7 


OOOOOOV 




000^4 


110001 







)'l 



11 Apr 1984 11:08:35 
ll-Apr-19B4 Lli08i22 



VAX -U Bliss- 16 V4, 0-5/9 

DISK JUSER2 ; [ POWERS ] ^RQADO , BL2 > 6 



SECl 566 
Pooc 155 
( 37; 



.CCTLR] - li 



! IF FLAG IS STILl TRUF 

* DEALLOCATE BUFFfcR(S) AND RETPKTCS) 

♦ DECREMENT NO. 0*- OUTSTANDING QIOs 

• ROUT INF IO..RETPKT 



.SBTTl 


lO.RE^PKT MULTI- 


IO.RETPKT: : 




J5R 


R1.I5AVE2 


MOVB 


01. Rl 


JSR 


PC.FSF.T.UPAR 


MOV 


rp.addr.ro 


MOVB 


16CRO),ST.C0De 


BIC 


0177740, ST. CODE 


MOV 


16(R0),R2 


ASR 


R2 


ASR 


R2 


ASR 


R2 


ASR 


R2 


ASR 


R2 


BIC 


01 74000. R2 


MGV 


R2, SB .CODE 


TST 


ST. CODE 


BEQ 


11 


JSR 


PC.HARD. ERROR 


CLRB 


COMPARE. DAT A 


CMP 


ST. COOt ,03 


BEQ 


31 


CMP 


Sf .CODE. 04 


BEQ 


3$ 


MOV 


T , ADDH.RO 


CMP 


14(R0),SUP, ERROR 


BLO 


3$ 


MOV 


I IIUN.RO 


MOVB 


04.DURCR0) 


TRAP 


51 


BR 


3$ 


1 * : JSR 


PC.UPD.IO. TALLY 


MOV 


RP.ADDR.RO 


CMPB 


141 HO), 0242 


BNE 


21 


MOVB 


01, COMPARE .DATA 


2t; BIT 


040, SUP .FLAGS 


BEQ 


31 


BIT 


Ol.COMPARF .DATA 


Bt 


M 


JSR 


PC,H0S1\WRT .CHK 


MOVB 


R0,R1 



l ♦.FLAG 



4 46.' 
44 '« 

448'. 
4484 



4485 



1 ♦,KLAU 



4487 

44<K> 
44')1 

44 ( )3 

44 l )4 
4405 

44^H 

44^» 
448 ' 
4505 
4 50 ' 



4St>» 

4'ill 



4514 



7RQAM5 
VOL 6 

000226 

000230 
000232 
000236 
000242 
000246 



006001 
103002 
004 737 
013700 
105360 
000207 



Rout i ne 
Mas ! mum 



RD/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 



oooooov 

OOOOOOG 
OOOOOOG 



3$ 



4$ 



[- 1 



Z 





11 -Apr -1984 11:08:35 




ll-Apr-1984 11:08:22 


ROR 


Rl 


BCC 


4* 


JSR 


PCSWEr.P 


MOV 


CCTLR.RO 


DECB 


QIO(RO) 


RTS 


PC 



SJre: 84 wordy, Routine Base; $CODE$ ♦ 20564 
stnck depth per Invocation; 5 words 



VAX-11 Bltss-16 V4. 0-579 

D I Sl< UJ5ER2 : t POWERS ] ZRQADO . BL 2 } 6 

l KLAG 



3E0 036/ 
Page 136 
(37) 

4518 

4320 
4522 

4462 



I 15 



ZRQAM3 
V01 ,6 



45.24 1 



4525 
4526 
4527 

4528 
4529 
4530 
4531 
4532 
4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4 54 7 

4548 
4549 
4550 



RD/RX EXERCISER 

MUL II -DRIVE TEST ROUTINES 

GLOBAL routine FSET^UPAR • novalue * 



11 -Apr -1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-ll Bliss 1* V4.0 579 

DISK JUSER2 J [ POWERS ] ZRQADO , BL2 j 6 



SEQ 0368 
Page 137 
(38) 



THIS ROUTINE IS CALLED BY 10 RETPKT AND OTHERS TO SEARCH THE CURRENT 
CONTROLLER ST* T US TABLE (CST) FOR THE DISK ADDRESS WHICH IS 
CONTAINED IN THE CURRENT RETURN PACKET. WHEN FOUND, THE OFFSET INTO THE 
CST IS USED AS INPUT TO SET„UPAR, WHICH SETS UP CURRENT UNIT -RELATED 

DATA PARAMETERS. 

IMPLICIT INPUTS: 

RP_ADDR - ADDRESS OF CURRENT RETURN PACKET 
CST..ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 

begin 

incr OFFSET from (0 ♦ OF..UN) to ( (UNITS .PER.CNTR - 1) * UNIT. .SIZE ♦ 0F„UN) by UNIT_5I/E do ! FOR EACH UNIT 

! IF RETPKT UNIT MATCHES CST ENTRr 



if .CST..MDDR [.OFFSET ♦ OF.DATA, D^DISK.NUM) eql ,RP ,ADDR [DISK] 
then 

kxo ' 

SEi ..UKAR ( . OFFSET ) { 

returnj 

end j 

PRINTF (0BM19, ,RP_ADDR [DISK], ,CCTLR)| 

end; 



J SET UP UNIT -RELATED DATA 
! DONE 



! "CAN' T KIND DISK XXX IN CST X" 
J ROUTINE FSET_UPAR 



000000 004137 



000004 
000010 
000012 
000014 
000020 
000024 
000030 
000032 
000036 
000040 
000042 
000044 
000050 
000052 
000054 
000060 
000064 
000066 
000072 
0000 76 
000102 



012 702 
010201 
006301 
063701 
013700 
016004 
111103 
042703 
020304 
001005 
0102^6 
004 73/ 
005726 
00020 7 
062 702 
02022 7 
003/51 
013746 
013700 
016046 
012746 



OOOOOOG 
000003 



OOOOOOG 
OOOOOOG 
000010 

177760 



OOOOOOG 



000012 
00004} 

OOOOOOG 
OOOOOOG 
000010 
OOOOOOG 



.SBTTL FSET.UPAR MULTI-DRIVE TEST ROUTINES 



FSET 


,UPAR; : 






JSR 


R1.ISAVE4 




MOV 


05, R2 


1$: 


MOV 


R2.R1 




ASL 


Rl 




ADD 


CST.ADDR.R1 




MOV 


rp.addr.ro 




MOV 


10(RO),R4 




MOVB 


(RD.R3 




BIC 


01//760.R3 




CMP 


R3.R4 




BNE 


2$ 




MOV 


R2 , ( SP i 




JSR 


PC, St T.UPAR 




tst 


( 5P)» 




RTS 


PC 


2$: 


ADO 


>?12.R2 




CMP 


H2.A41 




t\.fc 


it 




MOV 


CCTIR. (SP) 




MOV 


rp.addr.ro 




MOV 


tOCMO*), (SP) 




MOV 


00BM19. tsP) 



*. OK FSET 
OFFSET,* 



j OFFSET,* 



♦ .OH St T 

OFFSET,* 



4524 
454C 
4542 



4545 

4Mfc 

4544 

4540 



4549 



G 1 






/RQAM3 
VOL 6 

000106 
000 11 ? 
000114 
000116 
00012? 



012746 
OlOoOO 
104417 
06^06 

ooo;?o7 



RQ/RX EXERCISER 

MULT I -DRIVE TEST ROUTINES 

000003 



000010 



MOV 

MOV 

TRAP 

ADD 

RTS 



Routine Si .re: 4? words* Routine Base; $CODE* 
Maximum stack depth per invocation; 11 words 



11 Apr -1984 
U-Apr-1984 



03, CSP) 

SP.RO 
17 
010, SP 

PC 

<no34 



11:08-35 VAX -11 Bliss 1* V4 , b'?') 
Xl;08;22 DISK$USER2j t PUWERS ]ZRQAD0,BL2{6 

; SP.+ 



'jEQ 0369 
Page 138 
C38'j 



4558 
4524 



H 1 



3 



**RtiAM3 




V01. 6 




{ 4551 


1 


; 455c* 


i 


; 4553 


1 


; 4554 


1 


4 555 


1 


; 455b 


1 


; 455? 


1 


; 4553 


1 


; 4559 


1 


; 4560 


1 


; 4561 


1 


; 4562 


1 


; 4563 


1 


; 4564 


1 


; 4565 


1 


; 4566 




j 456; 


2 


; 4568 


2 


; 4569 


2 


; 4570 


2 


: 4571 


2 


; 4572 


2 


i 4573 


i— 


; 4574 


3 


; 4575 


3 


; 4576 


3 


; 4577 


.3 


; 4578 


3 


; 4579 


3 


; 4580 


3 


4581 


3 


; 458? 


3 


; 4583 


3 


; 4584 


3 


; 4585 


3 


; 4586 


3 


j 4587 


3 


; 4588 


2 


; 4589 


2 


; 4590 


3 


; 4591 


3 


4592 


3 


; 4593 


3 


; 4594 


3 


; 4595 


3 


4596 


3 


; 459/ 


3 


; 4598 


*> 


; 4599 


2 


4600 




; 4601 


3 


; 4602 


3 


; 4603 


3 



RD/RX EXERCISER 

MULT I -DRIVE TEST ROUTINES 

GLOBAL routine HARD_ERROR j novalue * 



11 Apr- 1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss-16 V4.0 579 
DISKSUSER2: [ POWERS ]/RQAD0.BL2j 6 



SEQ 03/0 



Page 1 39 
(39) 



THIS ROUTINE IS CALLED BY 10 RETPKT AND OTHERS TO INCREMENT THE HARD 
ERROR STATISTIC FIELD FOR THE CURRENT UNIT, IF THE HARD ERROR C0UN1 
HAS EXCEEDED THE OPERATOR-SPECIFIED LIMIT, THEN THE UNIT IS DROPPED 
FROM TESTING. 

IMPLICIT INPUTS: 

L$LUN - CURRENT UNIT NUMBER 

CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 

CUOFF - CST OFFSET FOR CURRENT UNIT 

T.ADDR - ADDRESS OF CURRENT UNIT'S STATISTICS BLOCK (TALLY) 

begin 

T.ADDR [ERR_HARD] - .T_ADDR [ERR.HARD] > 1} 



selectoneu »ST„CODE of 
set 



{ST. SUC]: 



if . SB _ CODE neq 
then 

begin 



! INCREMENT UNIT'S HARD ERROR COUNT 



! SUCCESS WITH NON-ZERO SUB -CODE 



if .SB.CODE eql 4 
then 

r.ADDR [ERR_HRD_DRV] •» , T ..ADDR [ERR..NRD..DRV ] » 1 
else 

T.ADDR [F.RR„HRD_HST] =■ , T.ADDR [ERR.HRD.HST ] ♦ 1; 

if .APT MODE 
then 

ERR_HRD.RTNF.APT (44) 

ERR_HRU_RTNE (44) j 



[ST.CMDli 



endt 

begin 

T_ADDR [ERR.HRD..HST] » .T.ADDR [ERR.HRU.HST ) ♦ lj 

if .APT MODE 
then 

ERR..HRD RTNE APT ( 31) 

F.RR.HRD..RTNE C3l)j 

end: 



J INVALID COMMAND 



[ST_ABOlt 



beg i n 



:* 



T.ADDR [ERR.HRD^DRV 



. T ADDR [ERP..HRD..DRV] * lj 



• COMMMAND ABORTED 



1 1 5 



ZRQAM3 




V01, 6 




j 4604 


3 


; 4605 


3 


; 4606 


? 


; 4607 


3 


; 4608 


3 


; 4609 


3 


; 4610 


p 


; 4611 


2 


; 4612 


3 


; 4615 


3 


; 4614 


3 


; 4615 


3 


4616 


3 


i 4617 


4 


; 4618 


4 


4619 


4 


4620 


3 


j 4621 


3 


: 4622 


3 


; 4623 


3 


; 4624 


3 


; 4625 


2 


; 4626 


2 


; 4627 


3 


; 4628 


3 


i 4629 


3 


; 4630 


3 


; 4o3l 


3 


j 4632 


4 


; 4633 


4 


i 4634 


4 


; 4635 


3 


; 4636 


3 


; 4637 


3 


; 4638 


3 


; 4639 


3 


i 4640 


•5 


; 4641 


2 


; 4642 


3 


j 464 3 


3 


4644 


3 


; 4645 


3 


t 4646 


3 


; 464 7 


3 


; 4648 


3 


; 4649 


3 


; 4650 


3 


; 4651 


2 


; 4652 


y> 


! 4653 


3 


; 465'; 


3 


4655 


3 


; 4656 


3 



RD/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 



H-Apr-1964 11;08;35 
ll-Apr-1984 11.08:22 



SEU 03/1 
VAX-11 Bliss-16 V4. 0-579 Page 140 

DISK SUSER2 5 [ POWERS 1ZRQAD0 . 612 j 6 ( 39 ) 



rST,UFL] 



rsTjwui 



TST.MFE] 



IST„WPT. 



if .APT MODE 
then 

ERR_HRD.RTNE_.APT C32) 

ERRJHRD_RTNE (32); 

end} 

begin 

T_ADDR [ERR„HRD_DRV] - ,T_ADDR [ ERR_HRD_DRV] » 1; 

if .APT MODE 
then 

begin 

.MAIL_BOX TESTNUM * 1; 

.MAIL_B0X,.SU6TST « .CST_ADDR l.CUOFF * QF.DATA, D.DISK .NUM] 1 

end; 



OFFLINE 



ERRDF (18, EGD..18, EMS 18); 
DUR r.L$l.UN] » DU.DFATALj 
DODU C.L$LUN)j 
end; 

begin 

T..ADDR [ERR_HRD_DRV] ■ ,T_ADDR [ ERR_HRD_ORV ] ♦ Is 

if .APT MODE 
then 

begi n 

.MAIL BOX TESTNUM - 1; 

,MAIL_B0X_SUBTST * .CST_ADDR [ .CUOFF > OF .DATA, D .DISK.. NUM. . 

end j 



! DEVICE FATAL ERROR 
! DROP UNIT 



! WENT TO AVAILABLE STATE 



ERRDF (24, EGD 18, EMS 24), 
DUR (.LiLUh] - DU DFATAL; 
DODU ( ,L*LUN)j 
end; 

begin 

T_ADDR [ERR ..HRD.SEK] * .T.AUOR ( fcRR.HRD.SEK ] ♦ 1} 

if .APT MODE 
then 

ERR HRD..RTNF APT (35) 
else 

ERR„HRD_RTNE (35) } 

end; 
beg * n 

If .SB.CUDE eql 1^8 

then 



1 

• DEVICE FATAL ERROR 

! DROP UNIT 



! MEDIA FORMAT ERROR 



! DEVICE WRITE PROTECTED 



J 13 



ZRUAM5 




VOL 6 




i 4657 


3 


; 4658 


3 


; 4659 


3 


; 4660 


3 


4661 


3 


46b? 


3 


; 4663 


3 


; 4664 


3 


; 4665 


3 


; 4666 


3 


; 4667 


Z 


; 4668 


c. 


; 4669 


3 


; 4670 


3 


4671 


3 


j 4672 


3 


; 4673 


3 


; 4674 


3 


4675 


3 


; 4676 


3 


; 4677 


3 


; 4678 


2 


; 4679 


?. 


; 4680 


3 


; 4681 


3 


; 468? 


3 


4683 


3 


; 4d84 


3 


4685 


3 


: 4686 


3 


; 4687 


3 


; 4688 


3 


; 4689 


3 


4690 


4 


; 4691 


3 


; 469? 


4 


; 4693 


4 


; 4694 


4 


; 4695 


4 


; 4696 


3 


; 4697 


3 


; 4698 


3 


I 4699 


3 


; 4 700 


3 


; 4701 


3 


; 4 tO? 


3 


; 4 703 


3 


; 4 700 


p 


; 4 705 


?. 


; 4/06 


3 


; 4 70/ 


3 


; 4 708 


3 


4 709 


3 



RD/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 



U-Apr-1984 11:08:35 
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SEQ 03 7? 
VAX-11 Bliss-16 V4. 0-579 Page 141 

DISK 5 USER2 j [ POWERS ] ZRQADO . BL2 ; 6 ( 39 ) 



[ST_CMP] 



[STJ)AT) : 



[ST_HST] 



else 



T_ADDR [ERR._HRO_HST] » ,T„ADDR [ERR..HRD HST1 ♦ 1 

i 

T..ADDR [ERR.HRD.DRV] * ,T_ADDR (ERR_HRD_DRV ] * Is 



if .APT MODE 
then 

ERR_HRD_RTNE„APT (36) 
else 

ERR.HRD.RTNE (36); 

end; 



begin 



T% 



DDR [ERR_HRD_DAT] - . T^ADDR [ ERR„HRD„DAT] ♦ l 5 

if .APT MODE 
then 

ERR„HRD_R1NE_APT (37) 
else 

ERR^HRD.RTNE (37){ 

end: 

begin 

if .SB_CODE eql 2 
then 

T_ADDR [ERR.HRD^SEK] - .T_ADDR [ERR. HRD..SEK ] * 1 
else 

T..ADDR fERR_HRD.DAT! = .T..ADDR [ERR_HRD.,DAT ] * 1; 

if C. SB, CODE eql 0) and 

(not .FORCED ERROR) and 
(BIT_TSr (SWP„FLAGS, SWF_FERi) 
then 

beg i n 

FORCED ERROR ■ TRUE; 
FER_LBN * .RP.ADDR [l.BN.LOJj 
FER.BC - .RP„ADDR [CBCNT_LO] { 
end; 

if .APT MODE 
then 

ERR..HRD..RTNF .APT (38) 
else 

ERR_HRD„RTNE (36); 

end i 

begin 

T.ADDR (ERR .HRD.HST] • .T.ADDR I ERR.HRD .HST ] ♦ i ; 

if .APT MODE 



J COMPARE ERROR 



! DATA ERROR 



BLOCK WITH "FORCED ERROR" FUUND 



J HOST ACCESS ERROR 



w 



*N 



7RQAM5 




V01, 6 




; 4710 


3 


; 4711 


3 


; 4/12 


? 


; 4 713 


3 


; 47M 


3 


; 4 715 


2 


j 4716 


t. 


; 4 71/ 


3 


; 4718 


3 


; 4 719 


3 


j 4 720 


3 


; 4721 


3 


; 4 722 


3 


; 4 72* 


3 


; 4 724 


3 


! 4 725 


3 


4726 


2 


j 4/2/ 


r. 


; 4 728 


5 


; 4729 


3 


; 4730 


3 


; 4731 


3 


; 4/32 


3 


5 4 7 33 


3 


; 4 734 


3 


i 4 7 35 


3 


I 4 736 


3 


; 4/37 


3 


; 4/38 


3 


; 4 739 


3 


j 4 740 


3 


; 4 741 


3 


i 4 742 


2 


4 74 3 


2 


4/44 


3 


; 4 745 


3 


; 4 746 


3 


; 4/4 7 


3 


: 4 748 


3 


; 4 749 


3 


j 4 750 


3 


; 4/51 


3 


; 4 752 


3 


; 4/53 


t.' 


4 7 54 


? 


; 4 755 


3 


; 4 756 


3 


; 4/57 


5 


; 4 758 


3 


j 4/59 


3 


; 4 /OO 


3 


; 4/61 


3 


; 4 762 


3 



K13 

RD/RX EXERCISER ll-Apr-1984 11:08:35 VAX-ll Bliss-16 V4.0 579 ^ Q Poge''l42 

MULTI-DRIVE TEST ROUTINES ll-Apr-1984 11:08:22 DISK $USER2: [POWERS jZRGADO . BL2}6 (39) 

then 

ERR.HRD_RTNE._APT (39) 
else 

ERR_HRD_RTNE (39); 

end} 

rST.CNTl: begin j CONTROLLER ERROR 

T_ADDR [ERR..HRD_ORVl - . T„ADDR [ ERR_HRD..DRV ] * 1; 

if .APT MODE 
then 

ERR_HRD_RTNE_APT (40) 
else 

ERR„HRD„RTNE (40); 

end; 

[ST.ORVh begin • DRIVE ERROR 

If .SB.. CODE eql 3 
then 

T,ADDR [ERR - HRD„SEK] * .T..ADDR FERR_HRD..SEK ] ♦ 1 
else 

T_ADDR [ERR_HRD.DRV] - .T.ADDR IERR„HRD_DRV _ ♦ lj 

if .APT MODE 
then 

ERR_HRD_RTNE_APT (41) 

ERR„HRD_RTNE (41); 

end j 

[STADIA]: begin • MESSAGE FROM INTERNAL DIAGNOSTICS 

T_ADDR [ERR HRD..DRV] = .T..ADOR ( ERR. HRD .DRV ) * 1; 

If .APT MODE 
then 

ERR..HRD.RTNE..APT (43) 
else 

ERR„HRD..RTNE (43); 

end j 

I otherwisel: begin ! PRINT STATUS CODE I*-' NO MATCH 

C .ERR. TBI t.CCTLR, C„ERR_HRD] ■ .C.tRR.TBL [ .CCTLR, C_.ERR.WRD1 . 1; 

if .APT MODE 
then 

ERR .HRD..RTNE APT (4b) 
elt>e 

ERR.HRD.RTNE (45); 



ZRQAM5 




V01. 6 




; 4 763 


3 


; 4 764 


2 


j 4 765 


2 


j 4 766 




; 4767 


a 


; 4 768 


i 



RD/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 



ends 



tes; 



end; 



13 



11 -Apr- 1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss 16 V4. 0-579 

DISK $USER2j[ POWERS UR(JAD0.BL2j 6 



SEG1 03/4 
Page 14 3 
(39) 



! ROUTINE HARD ERROR 



000000 004137 OOOOOOG 



000004 
000010 
000014 
000020 
000022 
000026 
000030 
000032 
000036 
000040 
000044 
000046 
000050 
000052 
000056 
000064 
000066 
000072 
000074 
000100 
000102 
000106 
000110 
000114 
000122 
000124 
000130 
00013*? 
000136 
000140 
000144 
000146 
00015,? 
000160 
000162 
000166 
0001/0 
000174 
000176 
000202 
000204 

000210 



013701 

005261 

013702 

001030 

013703 

001001 

000207 

012700 

060100 

020327 

001002 

105210 

000402 

105260 

032737 

001403 

012746 

000556 

012746 

000556 

020227 

001014 

105261 

032737 

001403 

012746 

000567 

012746 

000567 

020227 

001014 

105261 

032737 

0014G3 

012746 

00056 / 

012/46 

000567 

020227 

001036 

105261 

032737 



OOOOOOG 

000014 

OOOOOOG 

OOOOOOG 



000050 
000004 



000001 

000001 001162' 

000054 

000054 

000001 

000051 

000001 001162' 

000037 

000037 

000002 

000050 

000001 001162 1 

000040 

000040 

000003 

O00050 

000001 001162 





.SBTTL 


HARD. ERROR 


HARD 


ERROR : : 






JSR 


R1.$SAVE3 




MOV 


T.ADDR.R1 




INC 


14CR1) 




MOV 


ST, CODE. R2 




BNE 


5$ 




MOV 


SB. CODE, R3 




BNE 


15 




Rrs 


PC 


1$: 


MOV 


050.R0 




ADD 


Rl.RO 




CMP 


R3.04 




BNE 


2$ 




INCB 


(RO) 




BR 


3 J 


2$: 


INCB 


1CR0) 


3$: 


BIT 


#1, APT. MODE 




BEQ 


4$ 




MOV 


054. -CSP) 




BR 


14$ 


4$: 


MOV 


#54, (SP) 




BR 


16$ 


5$; 


CMP 


R2,#l 




BNE 


7* 




INCB 


51CR1) 




BIT 


01. APT, MODE 




BEQ 


6$ 




MOV 


#37, (SP) 




BR 


20$ 


6$: 


MOV 


#3/. (SP) 




BR 


22$ 


7$: 


CMP 


R2.#2 




BNE 


9$ 




INCB 


50CR1) 




BIT 


01 .APT. MODE 




BEQ 


H$ 




MOV 


040. -(SP) 




BR 


24$ 


8$: 


MOV 


040, (SP) 




BR 


26$ 


9$; 


CMP 


R2 , #3 




BNE 


11$ 




INCB 


50CRL) 




BIT 


01, APT. MODE 



4551 
4567 

4569 
4572 



4578 

4576 

4578 
45 76 
4580 
458;? 

4584 

4586 

4590 

4591 
4593 

459S 

4597 

4601 

4t;'*V 
4*» 04 

4nO<» 

4n08 

4^12 

4-1 "< 

4bib 



Ml 5 



ZRQAM3 




RO/RX EXERCISER 






ll-Apr-19a4 11:08:35 


V 


VOL 6 




MUlTI -DRIVE TEST 


ROUTINES 




ll-Apr-1964 11:08:22 


D 


000216 


001415 








BF.Q 


10$ 




000220 


012777 


000001 


001164' 




MOV 


01, EMAIL. BOX. TESTNUM 


I 


000226 


013700 


OOOOOOG 






MOV 


CUOFF.RO 




000232 


006300 








ASL 


RO 




000234 


063700 


OOOOOOG 






ADO 


CST.ADDR.RO 




000240 


111077 


001166' 






MOVB 


(R0),5)MAIL.B0X.SUBTST 




000244 


04277 7 


177760 


001166' 




BIC 


0177/60, 3MAIL. BOX. SUBTST 




000252 


104455 






10$: 


TRAP 


55 


1 
1 


000254 


000022 








.WORD 


22 




000256 


OOOOOOG 








.WORD 


EGO. 18 




000260 


OOOOOOG 








.WORD 


EMS. 18 




000262 


013700 


OOOOOOG 






MOV 


LILUN.RO 


! 


000266 


112760 


000005 


OOOOOOG 




MOVB 


05.0URCRO) 




000274 


104451 








TRAP 


51 


i 


000276 


000207 








RTS 


PC 


t 


000300 


020227 


000004 




11$: 


CMP 


R2.04 


$ 


000304 


001036 








BNE 


13$ 




000306 


105261 


000050 






INC8 


50CR1) 


i 


000312 


032737 


000001 


001162' 




BIT 


01, APT. MODE 


j 


000320 


001415 








BEQ 


12$ 




000322 


012777 


000001 


001164' 




MOV 


♦l.aMAIL.BOX.TESTNUM 


. 


000330 


013700 


OOOOOOG 






MOV 


CUOFF.RO 


s 


000334 


006300 








ASL 


RO 




000336 


063700 


OOOOOOG 






ADD 


CST.ADDR.RO 




000342 


111077 


001166' 






MOVB 


CRO),aMAIL,B0X.SUBTST 




000346 


042/77 


177760 


001166' 




BIC 


0177760, QMAIL, BOX, SUBTST 




000354 


104455 






12$ 


TRAP 


55 


i 


000356 


000030 








.WORD 


30 




000360 


OOOOOOG 








.WORD 


EGD.13 




00036P 


OOOOOOG 








.WORD 


EMS. 24 




000364 


013700 


OOOOOOG 






MOV 


LSLUN.RO 




000370 


112760 


000005 


OOOOOOG 




MOVB 


05.DURCR0) 




000376 


104451 








TRAP 


51 




000400 


00020/ 








RTS 


PC 




000402 


020227 


000005 




13$ 


CMP 


R2 . 05 




000406 


001014 








bNE 


17$ 




000410 


105261 


000046 






1NCB 


46CR1) 




000414 


03273/ 


000001 


O0U62' 




BIT 


01, APT. MODE 




000422 


001403 








BF.Q 


15$ 




000424 


012/46 


00004 3 






MOV 


043, -(SP) 




000430 


000562 






14$ 


BR 


35$ 




0004 32 


012746 


000043 




15$ 


MOV 


043, (SP) 




000436 


000562 






16$ 


BR 


37$ 




000440 


020227 


000006 




17$ 


CMP 


R2 , 06 




C00444 


001025 








BNE 


23$ 




000446 


012700 


000050 






MOV 


0! jO.RO 




0004S2 


060100 








ADD 


Rl.RO 




000454 


025727 


OOOOOOG 


000200 




CMP 


SB, CODE, 0200 




000462 


001003 








PKE 


18$ 




000464 


105260 


000001 






IiJCB 


KRO) 




0004 70 


000401 








H i 


19$ 




0004 12 


105210 






It. 


1NCB 


(RO) 




0004 74 


032737 


000001 


001162' 


19$ 


"=5XT 


01, APT. MODE 


s 



SEQ 03 ?•> 
VAX 11 Bl:ss-\6 V4. 0-579 Page 144 

DISK $USER2 s [ POWERS ] ZRQADO , BL2 ; 6 ( 39 ) 



461# 
4619 



462? 



462 * 

4624 

4569 
462 7 

4628 

4630 

4633 
4634 



4637 



4638 

463 l i 
456^ 

4642 

464 3 
464^ 

464 7 

464 ^ 

465 3 
4-5 : 
465S 
465 ■' 

4bol 



N13 



7RUAM3 

V01, 6 

000502 

000504 

000510 

000512 

000516 

000520 

000524 

000526 

000532 

000540 

000542 

000546 

000550 

000554 

000556 

000562 

000564 

0005 70 

000572 

000600 

000602 

000604 

000606 

000612 

000616 

000620 

000626 

000630 

000656 

000640 

000646 

000652 

000660 

000666 

000674 

000676 

000/02 

000704 

000/10 

000/12 

000716 

0007^0 

000724 

000752 

000/34 

000/40 

000/42 

000/46 

000750 

000/54 

000756 

000 /62 

000770 



C01403 
012746 
00057 7 
012 746 
00057 7 
020227 
001014 
105261 
032737 
001403 
012746 
00057/ 
012746 
000560 
020227 
001055 
012700 
060100 
023727 
001002 
105210 
000402 
105260 
005737 
001023 
152737 
001017 
0527 3 7 
001413 
112757 
013700 
016037 
016037 
032737 
001403 
012746 
000521 
012746 
000523 
020227 
001014 
105261 
032737 
001403 
012 746 
000502 
012/46 
000504 
02022/ 
001014 
105261 
032737 
001403 



RD/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 



000044 

000044 

000007 

00004 7 

000001 001162* 

000045 

000045 

000010 

0C0046 

OOOOOOG 000002 



000001 
OOOOOOG 



11 -Apr- 1984 li;06;35 
ll-Apr-1984 )l!08s22 



00001 

004000 

000001 

OOOOOOG 

000050 

000044 

000001 

000046 

000046 

000011 

000051 
000001 

00004 7 

00004 7 

000012 

000050 
000001 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
001162' 



001162 



001162' 





BEQ 


21$ 




MOV 


444, -C5P) 


20$ 


BR 


43$ 


21$ 


MOV 


#44, (SP) 


22$ 


BR 


45$ 


23$ 


CMP 


R2,#7 




BNE 


27$ 




INCB 


47CR1) 




BIT 


#1, APT. MODE 




BEQ 


25$ 




MOV 


#45, -CSP) 


24$ 


BR 


47$ 


25$ 


MOV 


#45, -CSP) 


26$ 


BR 


45$ 


27$ 


CMP 


R2,#10 




BNE 


32$ 




MOV 


#46, RO 




ADD 


Rl.RO 




CMP 


SB. COOt, #2 




BNE 


28$ 




INCB 


(RO) 




BR 


29$ 


28$ 


INCB 


1CR0) 


29$ 


: TST 


SB. CODE 




BNE 


30$ 




BITB 


#1. FORCED. ERROR 




BNE 


30$ 




BIT 


#4000, SUP, r l AGS 




BEQ 


30$ 




Mova 


#1, FORCED. ERROR 




MOV 


RP.ADDR.RO 




MOV 


50(R0),KtR.LBN 




MOV 


44(R0),FER.BC 


30$ 


; BIT 


#i,APT .MODE 




BEQ 


31$ 




MOV 


#46, -(SP) 




BR 


4/$ 


31$ 


: MOV 


#46, -CSP) 




BR 


49* 


32$ 


: CMP 


R2.#ll 




BNL 


34$ 




INCB 


MCR1) 




BIT 


#1, APT. MODE 




BEU 


55$ 




MOV 


#4/. -CSP) 




BR 


4/$ 


33$ 


: MOV 


#4/, CSP) 




BR 


49$ 


34$ 


: CMP 


RiVM2 




BNE 


38$ 




INCH 


50CR1) 




HLT 


#1, APT, MODE 




BEU 


36! 



SEU 0376 
VAX-11 Bliss-16 V4. 0-579 Page 145 

DISK $USER2 ; [ POWERS ) ZRQADO . BL2 ; 6 C 39 ) 



4663 

466S 

4669 

46 70 
46/2 

4674 

46/6 

4680 

4684 

4682 

4684 
4682 
4686 
4688 

4689 

4690 

4o95 
4694 

4695 

4698 

4 700 

4 702 

4/0t> 

4/0 7 
4 70^ 

4 7 \ I 

4715 
4/1" 



4 7 If* 

4 720 



h 14 



/RUAMJ 




HO MX t I'-HClMH 






11 Apr l*#ft4 


V01.6 




MU Tl DHlVh ThST 


HUUUNtS 




11 Apr 1^M4 


000 


01? 746 


000050 






MOV 


«%0, (%P) 


0007 76 


00046 5 






3%$: 


BR 


47$ 


001000 


01? 746 


ooooso 




361; 


MOV 


050, CiP) 


00 1004 


00046% 






3/1: 


BR 


49$ 


00 lOOt. 


0202? / 


000015 




38*, 


CMP 


RV.013 


ooiot? 


00102 5 








BNt 


4?$ 


001014 


o?3 7?/ 


0000OO(, 


000003 




CMP 


SB. CODE t 0$ 


0010?? 


001005 








BNt 


39$ 


O010?4 


10 VM 


000046 






INCH 


46(R1) 


001050 


00040? 








BR 


40$ 


00 103 J 


10VM 


0000 so 




59$ 


INCB 


%0(R1 ) 


00103c* 


03?/ 3/ 


00000 1 


00116? 


40$ 


BIT 


• 1, APT .MODI. 


001044 


00140' 








Beu 


41$ 


001046 


01? 746 


0000% 1 






MOV 


*%1, (%P> 


0010 V 


0004 3% 








BR 


47$ 


0010%4 


OK* 746 


0000% 1 




41$ 


MOV 


051, (%P) 


001060 


00O4 3 7 








BR 


49$ 


00 106 ? 


0?0?? / 


00003 7 




4?$ 


CMP 


R2.03 7 


00106c 


001014 








BNf 


46$ 


001070 


10526; 


000050 






INCB 


50(RD 


OC1074 


032/3/ 


000001 


OOilb?' 




BIT 


•1. APT. MODI 


00110? 


00140i 








Bl'Q 


44$ 


001 104 


012746 


0000% 3 






MOV 


«%5, (%P) 


oomo 


000416 






45$ 


BR 


47$ 


001 lie? 


01274* 


000053 




44$ 


MOV 


«55, (%P) 


001116 


00O4?O 






4*)$ 


BR 


49$ 


001120 


01 3 700 


00000 0^, 




46$ 


MOV 


CCTl R,RO 


001 KM 


C<)6300 








ASL 


RO 


001 1?6 


105260 


OOOOOOG 






INCB 


C.iRR. TBI < RO ) 


00113? 


05? 75 7 


000001 


00116?' 




BIT 


♦ l.APr.MOOt- 


001140 


0014 0% 








HfcU 


4«$ 


00114.' 


01? 746 


0000 %■) 






MOV 


*%%, ( SP ) 


001146 


004 7 5 7 


000000 V 




47$ 


JSR 


PC.tRR.HPD.MTN* .APT 


001 IV 


0OO404 








BR 


%0$ 


00 1 1 %4 


01? 746 


00005% 




4fl$ 


MOV 


«%%, ( l .,P i 


001160 


004 75 7 


oooooov 




441 


J'iR 


PCJRR.HRD.RTNL 


OOHM 


00% 7?6 






%0$ 


T',T 


(%P )♦ 


('"1 166 


00020 7 








RT-, 


PC 



UlO«{3% VAX 11 f| lift* 1'- V4.0 %/** 

1 1 1 08 : 2? 01 Sl< $USHR? s [ P0WKR5 1/RUADO . HI d j h 



'jLU 05 7/ 
Page 


146 


4 


» - , t 

■ r 


4 


V4 


4 


<"?* 


4 


'50 


4 
4 

4 
4 


• f - 1 
<",4 


4 


' * \ 


4 


*4«' 


4 


'44 


4 
4 


'4% 
7 4 * 


4 


'4 * 


4 


M \ 


4 


M >. 


4 


'%M 


4 


'*.»> 


4 

4 


*%8 

'»■? 


4 '%% 



Mo^,t n* '.;/#: 516 rtordS, Rout»rt« Hsi* : 

MaKJnKjm titscw depth p^r invocation: 6 worlds 



ICUDtl • 2U60 



r ' 



4 



.*HUAH< 
V01, 6 



1 



VO 

■;.;i 
■ • t . 

: .* * 

' '4 

: .". 



.* ,' ^ 

.'80 
■*8t 
/&V 
■'H.< 

,'84 

/riS 
:«t. 

:h' 
/bh 

/ i n 
/**;'. 

/'»; 
. ,c #a 

4800 
4801 
4 80.' 

480 5 
4804 
4H0S 
4H0f. 
4 80/ 
4808 
4 HO*'* 
4HI0 
4MH 

4rti 4 > 

481 * 
4H14 
4Hl«, 
481*, 
481 .' 
4818 
481'* 
4*V0 
4* t U 



RO/MX I Xf RC1SI.R 

Mill Tl DRIVE Tf-:ST ROUTINES 

GLOBAL router,* UPD..IU. TALU : novolue - 



1 1 Apr •! r >84 
ll-Apr-19B4 



11 {()«? * r » 
UtOBi^a 



VAX 11 HI Inn 1'. V4 , o S/«* 

ir fF.Ri?tfP0UC : RSl/RQADO.bl.^|6 



SEQ 0*i /H 
Pom 14/ 

(40) 



IMIS ROUTiNE IS CALLED FROM TO RFTPKT FOR ALL I/O TRANSFER RETURN 
PACKETS WITH "SUCCESS" STATUS CODF S , ITS PURPOSE IS TO UPDATE All THE 
APPROPRIATE STATISTICAL FIELDS TOR THE CURRENT UNI1. A CHECK IS ALSO 
MADE ON THE TOTAL NUMBER OF BtTES TRANSIT HRED THUS FAR, if THI 
OPERATOR-SPECIFIED LIMIT HAS BEEN REACHED, THEN THE UNIT IS DROPPED, 



IMPLICIT INPUTS: 

RP ADDR AODRl SS 0^' THE CURRENT RETURN PACK! T 

T ADDR ADDRESS Of THE. CURRFNI UNIT'S STATISTIC BLOCK 

CST ADDR ADDRESS Of THf CURRENT CONTROLLER'S CST 

CUOFE CST OfTSIT >0R THF CURRFNY UNIT 

LILUN - CURRENT UNIT NUMBER 



(TAN i ) 



begin 
locn 1 



■ uUSANOS 
MILLIONS 



; word, 

word) 



If .RP ADDR IENOCOD] •ol (OP RD or OP END) 

then 

b*Q' n 

T.ADDR [TOT. READS LOl - . T ADDR (TOT READ 1 * 10) . 1 

T ADDR (BtTES READ _LOl • .T.ADDR [BtTfS Rl AD .10 



T.ADDR [TOT.BtT_RtD.LO] • . 1 : .ADDR [ TUTJlT T ..RED J.O ) » ,RP_ADOR IBCN* u))j 

rw.il /"LJt/ r T nnr\l f T r\ t nr nr\« - i r\ \ \ • />. .«•,.., 



• TOTAl NO, OF IWTE'i XFERRl'D TO'FROM A UNIT 
■ If ENDCOm IS READ 

• INCREMI NT NO. OF READS AND ADD BYTE COUNT 
.RP ADDR [BCNT l i)]i 



else 



OVf ,CHK ( T ADDR [ TOT READS LOl >| 
OVF CHK (T ADDR [B^TES READ 10],, 
OVf „CHK (T.ADDR [ TOT _B Y T. RED „L ] ) i 



! CHECK fOR f IfcL D UVtRKUW 



If .RP ADDR (EN0C001 #ql (OP..WRT or OP END) 
th«n 

b«Q' n 

T ADDR [TOT URITfS 10) • .T ADDR (TOT WPMf - lUl 

T ADDR [BtTES WM T 10) - .1 ADDR [BiTfS WRIT u) 



T ADDR [TOT. Br T WRT LO) - .T ADDR ( TOT Hi T WRT 10) » ,RP ADDR IBCNi.lU), 



J If FNOCODt IS WRITE 



li ! INCRIHtNT NO. Of WW HIS, ADD BtTE COUNT 

.RP ADDR [BCNT i 0] j 



OVF CHK (T ADDR [TOT WRITE'. 10]), 

OVF CHK (T.ADDR [BYlfcS WRIT li)l)| 

OVf CHK (T.ADDR [TOT HiT URT I 01), 

tndj 



! CHECK FOR I IELD OVERFLOW 



If (.RP ADDR IENDCOOJ cqi t OP RD or OP END)) or 

( .RP ADDR (ENOCODl eql COP WRT or OP t N!>) ) 
then 

b«g i n 

Mtt I IONS « ,T ADDR I Ml! i II ', READ) . . 1 ADDR IMH'M;, WW I T ) i ! TOTAL Ui TES TRANSFERRED 

THOUSANDS ■ .T.ADDR |OYTtS .HtAQ.Hl ] ♦ ,T ADDR Ith TtS.UttU .Hi ] i 



I ) I 4 



/HUAM5 



48. V 
4 Hi* 5 

48/* 
48/S 
48/6 
48..'/ 
48/8 
43/** 
4 850 
4 851 
485/ 
485 < 
4854 
485 r > 
4 8 56 
48 5.* 
4858 
48 5^ 

4 840 
4841 
484? 
4 84 5 
4844 
484S 
4846 
484 ,' 
4848 
4849 
48'jO 
4 8S1 
48S/ 
4 8S5 
4854 



5 
5 
4 
4 
4 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
4 
4 
4 
4 
4 
4 
4 
5 

3 

5 
5 
5 
3 



HU HX I XtHClSt.H 

MUIT1 DRIVE TEST ROUTINES 

If . THOl'SANDS geqn 1000 
then 

begi n 

Mil I TONS • .Mil. I lOriS . 1) 

THOUSANDS ' .THOUSANDS 1000 i 

end j 



1 1 Apr 1'4H4 1 I : ()8; 5S 
11 -Apr -1984 lli08ic>c? 



VAX 11 HI ia-i 16 V4.0 S/'* 

DISK IUSERi> j f POWERS l/RQAD0.Bli?i6 



• COUNT THE LOWER OVERFLOW TOO! 



SLGLOW* 

Pag* 14M 

C40J 



THIS ADDED BECAUSE IT UIl L TAKE FOREVER TO TRANSFER ON THE ORDl R Of A MEGABYTE Tu A FlOPP' 
BUT IT IS A MUCH MORE REASONABLE MEASURE TOR 1M ROM'S/ WINCWSMR. 'HE UUESIION NOW REFERS TO 
I HE TUT Al DATA TRANSFER TO THE CONTROLLER AND THIS IS PRETTY CLOSE SINCE THE FLOPPIES CiE T 
ABOUT 1/1000 THE DATA THE HARD DISK(S) OE T , 



if .SUP XFER eql 
then 

begin 

i l " . THOUSANDS gtru 100 
then 

EOP. FLAG ■ TRUE; 



else 



end 



If .Mil I. TONS gequ . SWP XFER 
then 

HOP. FLAG ■ TRUE, j 



ROIHO.QUTPUT I )j 
end} 



! IE THERE IS A TRANSFER LIMIT 



» SET END -OF PASS Fl.At. 

! V TRANSFER LIMIT IS REACHED 

• SET t NO 0> PASS n All 

! !► UNIT IS ST II I Al IVE 

! ROUNO TOTALS TO Mi PRINT PUS1TIUNS 

! ROUTINE UPD 10 TALL1 



OOOOOO 004157 OOOOOOG 



000004 
000010 
000016 

oooo/o 

0000/4 
000050 
000054 
00004/ 
O00046 
OOOOSO 
G000 r >4 
000060 
000064 
OOOO/O 
OQ00V4 



015/01 
126127 
0010? 7 
015700 
O0S/60 
066110 
066160 
0UV46 
060O16 
004/57 
015716 
004/37 

015/lrp 

06// 16 
0QQ43S 



0000000 

000014 

OOOOOOG 

000016 

OOOO/O 

0000/0 

000016 

oooooov 
ooooooo 

000000 v 
OOOOOOG 
OOQQ32 



0QO03<? 



.sm ii 

UPD.IO.TALi.i:: 

JSR 
MOV 
CMPB 
HNE 

MOV 
INC 
ADD 
ADO 
MOV 
ADD 
JSH 
MOV 
JSK 
MOV 
AOIJ 
UR 



UPD. 10. TAl LY MU.Tl DRIVE TEST ROUTINES 

Rt.iSAvEV j 

RP.AD0H.R1 j 

14lRl),0.?4l 

It 

T.ADDR.UO j 

t6(R01 

/O(Rl).lRO) i 

i'OlRD.ViHO) ; 

16, (SP) j 

RO , ( SP ) 

pc.cm .chk 

r.AUt)H.(SP) i 

PC.UVf .CHK 

T.ADOR.CiP) i 



4 >, * 
4 v )/ 



4 ''«*. 



4 


u 


4 


t 


♦ « 


l >3 


4 


t* 


4800 



I- 14 



/RUAMA 
V01,6 

oooo ;t. 

000104 
000106 
00011 J 
000116 
0001,*? 4 
0001*2 
000156 
000140 
000104 
000150 
000154 
000160 
000164 
000170 
000174 
0001/6 
00020*? 
000210 
000212 
000220 
000222 
000226 
000252 
000236 
000242 
000246 
000252 
000254 
000256 
000262 
000266 
0002 70 
0002 /4 
0002 76 
000 500 
000302 
000504 
000512 
000516 



12612/ 
001034 
013700 
005260 
066160 
066160 
012/46 
060016 
004 737 
013716 
06271b 
004 737 
013/16 
062716 

004 737 

005 726 
013700 
12602 7 
001404 
126027 
001034 
013700 
016002 
066002 
016001 
066001 
02012 7 
103403 
005^02 
16^701 
013700 
001004 
020127 
101406 
000402 
020200 
103403 
112 737 
004/3/ 
000207 



HD/RX t.XtHCISER 

MUTI -DRIVE TEST ROUTINES 

000014 000242 

OOOOOOG 

000024 

000020 000006 

000020 000040 

000024 

oooooov 

OOOOOOG 

000006 

OOOOOOV 

OOOOOOG 

000040 

OOOOOOV 

OOOOOOG 
CJ0C14 000241 

000014 000242 

OOOOOOG 

000004 

000012 
000OO2 
000010 
001750 



001750 
OOOOOOG 

000144 



000001 
OOOOOOV 



OOOOOOG 







11 -Apr-1984 11:06:35 


s 




1.1 Apr-1984 11:08:22 


1$: 


CMPB 


14CR1 ),0242 




BNt. 


3i 




MOV 


T.ADDR.RO 




INC 


24(R0) 




ADD 


20(R1),6(R0) 




ADD 


20(R1).40(R0) 




MOV 


024, (SP) 




ADD 


RO.CSP) 




JSR 


PC.OVF.CHK 




MOV 


T.ADDR.CSP1 




ADD 


06, (SP) 




JSR 


PC.OVF.CHK 




MOV 


T.ADDR.CSP) 




ADD 


040 f (SP) 


Pi: 


JSR 


PC.OVF.CHK 




T5T 


(SP)» 


3$: 


MOV 


RP.ADDR.RO 




CMPB 


14(RO),0241 




BfcQ 


4i 




CMPB 


14(R0),0242 




BNfc 


8i 


4$: 


MOV 


T.ADDR.RO 




MOV 


4(R0),R2 




ADD 


12(R0),R2 




MOV 


2(R0) 4 R1 




ADD 


10CRO),R1 




CMP 


R 1,0 1750 




BLO 


5i 




INC 


R2 




sub 


01750, Rl 


Si: 


MOV 


SUP.XFtR.RO 




BNF 


6$ 




CMP 


R1.0144 




DLOS 


8* 




BR 


ft 


bt: 


CMP 


R2.R0 




BLO 


8$ 


M: 


MUVB 


01, tl)P J I AU 


8i: 


JSR 


PC, ROUND. OUTPUT 




RTS 


PC 



VAX U HI! W f, 16 V4.0 '_)?<> 

DISK IUSER2: 1 POWERS ]/RQAD0.BL2jG 



* .Mil l IONS 

♦ ,MIl I TONS 

* , thousands 
♦, thousands 
thousands,* 

millions 
♦ , thousands 



THOUSANDS,* 



i MILLIONS, ♦ 



5EU 580 
Pao* 14'^ 
(40) 

4804 

4807 

4808 
480'"* 
4810 

4811 



481, 



4 806 
4815 



4816 

48 n 

4820 
4822 

48.'*- 
48 56 

4840 

4 84.' 

484 * 

184 > 

485 3 

4 76^ 



Rout ' ne 
Ma\ « mum 



stacW 



104 words, Routine Base ■ iCODEJ 
depth per invocation: 5 wordc 



♦ 22350 



7RQAM3 
VOi.b 



4655 
4656 
4857 
4858 
4859 
4860 
4861 
43b2 
4865 
4864 
4865 
4866 
4867 
4868 
4869 
4870 
4871 
48 /2 
4875 
48 74 
4875 
A 8 76 
48 7 7 
48 70 
48 79 
4880 
4881 
4682 



RO/RX EXERCISER 
MULT I DRIVE TEST 



ROUTINES 



I 1 4 

U -Apr -1984 
11 -Apr -1984 



11:06:55 VAX 11 Bliss 16 V4 . 5 79 

11 : 08 : 22 DISK WSER2 : [ POWERS l/RQADO . BL2 ; 6 



SEQ 05»1 
Page 150 

(41) 



GLOBAL routine OVF.CHK (ADDR) • novalue 



THIS ROUTINE IS CALLED FROM UPD 10 TALi.Y TO C^LCa FOR OVERFLOW IN 
CERTAIN STATISTICAL FIELDS OF THE CURRENT UNI f . SPECIFICALLY, THE 
LOU ORDER FIELD OF THE NUMBER OF BYTES READ OS WRITTEN IS CHECKED FOR 
EXCEEDING 1000. IF TRUE, THEN THE HIGH-ORDER COUNT IS INCREMENTED. IF 
THAT EXCEEDS 1000, THEN THE MEGABYTE COUNT TN INCREMENTED, 



INPUTS: 



ADDR - ADDRESS OF THE BYTES R'-AH LO OR BYTES WRIT 10 FIELD FOR 
THE CURRENT UNIT (SEE .-TATISUC TABLE (TALLY) LAYOUT) 



begin 



while ..ADDR gepu 1000 <k> 
begin 

.ADDR - . .ADDR - 1000 j 

( .ADDR ♦ 2) > .( .ADDR ♦ 2) 

end: 



1; 



if ,( .ADDR ♦ 2) gequ 1000 
then 

begin 

( .ADDR ♦ 2) » ,C .ADDR 



2) 



( .ADDR ♦ 4) 
end; 



.( .ADDR ♦ 4) * 



1000: 
It 



end; 



! IF LO-ORDER OVERFLOW 

» SUBTRACT 1000 
! INCR HI -ORDER 



! IF* HI -ORDER OVERFLOW 



! SUBTRACT 1000 
} INCREMENT MBYTES 



! ROUTINE OVF.CHK 



000000 010146 



00000,7 

000006 
00)01? 
000014 
000020 
000022 
000026 
000030 
000032 
000036 
000040 
000044 
000050 
00005c/ 



016600 
012701 
060001 
021027 
1034 04 
162/10 
005211 
000 7 7 1 
021127 
103404 
162711 
0052f>0 
012601 
00020/ 



000004 

OOOOOr 5 

001750 
001750 

001 /50 

001 750 
000004 





.5BTTL 


. OVF.CHK MULT I -DRIVE 


OVF 


CHK : : 






MOV 


Rl, (SP) 




MOV 


4(5P).RQ 




MOV 


02, Rl 




ADD 


RO.Rl 


1*: 


CMP 


(RO), 01/50 




BLU 


2$ 




SUB 


01 /50.CR0) 




INC 


(Rl) 




BR 


1$ 


2$: 


CMP 


1RD.01750 




BLO 


3$ 




SUB 


*u /50,(f:i) 




INC 


4(^0 1 


3$: 


MOV 


L^MsHt 




RTs 


PC 



TEST ROUTINES 



ADDR , * 



46 V, 
4Hr»9 
•M "'.•» 

486^ 

48 '1 

48 ': 

4 8r. * 
4 4 '«. 

4 8 *•> 
4^ ' » 

4855 



Routine Mje: S? words, Routine Base : 
Maximum stack depth per invocotion: d words 



JCODLS ♦ 226/0 



( 1 1 4 



?RQAM5 




R 


VOL 6 




M 


; 4883* 


1 


G 


j 4884 


1 




488S 


1 


t 


; 483b 




i 


; 488? 


1 


i 


5 488tf 


1 




: 4889 


T 




4890 


1. 




; 4891 


■1 
L. 




; 489 t ^ 


t~. 




489? 


3 




I 4894 


3 




; 489S 


3 




; 4896 


3 




; 4897 


4 




; 4898 


4 




; 4899 


4 




; 4900 


3 




! 4901 


3 




; 4902 


3 




i 4903 


3 




i 4904 






; 4905 


2 




; 4906 


?. 




; 4907 


? 




; 4908 


3 




4909 


3 




4910 


3 




; 49U 


3 




J 49U? 


4 




; 4915 


4 




j 4 914 


4 




; 4915 


3 




; 4916 


3 




; 4917 


3 




j 4918 


? 




; 4919 


7) 

4. 




; 49^0 


'1 

c. 




; 4 9^1 


t 




; 49<V 


t 




; -»9i?3 


3 




49P4 


3 




; 49<?S 


3 




; 49<?6 


"^ 




; 49V/ 


4 




; 49 f >8 


4 




; 49?9 


4 




; 4950 


* 




; 4931 


3 




; 495 f ? 


/ 




; 49 V*. 


f 




; 4'*34 


4 




J 493b 


4 





RO/RX EXERCISER 

MUl II -DRIVE TEST ROUTINES 



11 -Apr -1984 11:08:35 
11 -Apr- 1904 11:06:^ 



SEQ 038? 
VAX 11 Rlis'j \f* V4.0 bf<* Page 151 

DISK *USER<^ : [ PUWERb URUADO . BL* ; b ( 4^ ) 



GLOBAL routine ROUND ..OUTPUT j novaluc - 

THIS ROUTINE ROUNDS THE TOTALS TO FIT PRINT POSITIONS. 

begin 

If . T..ADDR I TOT_READS..HI) gtru 9999 

then 

begin 

if .T ADDR I TOT READS LO) Issu 999 
then 

begin 

T ADDR [TOT READS HI ] » . T ADDR [TOT READS HI J - lj 

T.AODR [TOT.READS..LO] - .T>DDR [ T0T"READS'*L0] * 1000} 

end; 

T„ADDR (TOT READS LO] •< .T ADDR [TOT READS LO) - 999. 
T.ADDR [T0T_READS^HI] * .T..ADDR [ TOT .READS _HI ] - 9999, 
end; 

if .T„ADDR f TOT„WRITfcS_Hl) gtru 9999 
then 

begin 

if .T.ADDR [TOT..WRITES .LO] lssu 999 
then 

begin 

T..MDDR [TOY>'RITfcS..Hl) * .T ADDR [T0T_WRITE5 HI] lj 

T.ADDR I TOT ..WHITES. .LO) - .T.ADDR [ TOT ..WRITES .1.0 } ♦ lOOOj 

end; 

T.AODR [TOT URTTES LOL * .T ADDR [TOT WRITES 10] - 999; 
T.ADDR [TOT.WRITES *\1) ■ .T_ADDR [ TOTlWRlTES.,HI ] - 9999; 
end; 

if .T.AODR [HTOT..B* T.RED) gtru 999 
then 

begin 



if .T.ADDR [TOT BYT .RED HI] lr.su 999 
then 

beg i n 

T.ADDR [MTOT BIT RED] • ,T ADDR [MTOT HH Rt D ] lj 

T.ADDR [TOT..UYT RED HI] - .T.ADDR I TOT ..BYT . RED .HI ) ♦ 1000; 

end; 



if . T ADDR [TOT BYT RED tO) lafiu 999 
then 

begin 

T„AQDR [Tor.BtT^REa.Hl] * ,T_ADDR I TOT .tlT T .RED. HI ] - 1; 



1-1 1 4 



/RUAM3 

VOL 6 



RD'RX EXERCISER 
MULTI-DRIVE TFST ROUTINES 



11 -Apr- 1984 11:08:35 
11 -Apr 1984 11:08:22 



VAX 11 Bliss 16 V4.0 5/9 

DISK JUSER2 : [ POWKRS ] /RQADO . BL.2 ; 



3EQ 0383 
Page 152 
C42; 



4^56 
495/ 
4958 
4959 
4940 
4^4 1 
4942 

494 5 
4944 
4945 
494b 
4 94 ; 
4948 
494^ 
4950 
4^51 
4952 
495? 
4 954 
4955 
4956 

495 7 
4958 
4959 
4960 
4961 
496? 
4965 
4 964 
4965 
4 966 
4 96/ 
49o8 
4969 
4970 
49/1 
49 7;> 
49/5 
49/4 
49 /S 
49/6 
49/7 
49/8 
49/^ 
4980 
4981 



5 
5 
5 
5 

4 
4 
5 
3 

3 
4 
4 

4 
4 
4 



T_ADDR [TOT..OYT_RED .10] * .T.ADDR [ TOT„BYT ..RED_LO] ♦ 1000} 

If .T.ADDR [TOT..BYT .RED HI] lssu 999 
then 

begin 

T..ADI/R [MTOT BYT RED] - ,T ADDR [MTOT BY r RED] lj 

T.ADDR [T0T_BYT_RED_HI1 - 7T..ADDR [ TOT ..BYT _RED.HI ] * 1000; 

end; 
end; 

T_ADOR fTOT_BYT_RED 10] - . T ADDR (TOT BY T RED 1.0] 999; 

T ADDR I TOT. BYT RED Hi] * ,T ADDR f TOT BtT RED HI] 999 1 

T..ADDR [MTOT..BYT..RED] - .T..ADDR I MTOT..BYT_RfcD] ' - 999} 
end; 

If .T.ADDR [MTOT_BYT_WRT] gtru 999 
then 

begin 

If .T.ADDR [T0T_BYT.WRT.HI] lssu 999 
then 

beain 

T.ADDR [MTOT BYT WRT] - .T ADDR [MTOT ByT WRT! 1; 

T.ADDR [TOT„BYT..WRT_HI] - .T..ADDR [ TOT_BYT_WRT .Hi) ♦ 1000; 

end; 

if . T ADDR [TOT BYT WRT LO] lssu 099 
then 

begin 

T^ADDR I TOT_BYT .WRT..HI] • .T ADDR [TOT BH WR I HI J 1; 
T.ADDR [ T0T_BYT..WRT.,L0] - .T..AODR [ TOT.BYT..WRT .LO) * 1000; 

if .T ADDR [TOT BYT WRT HI] lssu 999 
then 

begin 

T ADDR [MTOT BU WRT ] » .T ADDR [MTOT UU WR T J 1; 

T.ADDR [TOT..BYT..WRT..HI] - .T.ADDR f TOT BIT WRT Hi ] * 1000; 

end; 
end; 

T.ADDR [101 BYT WRT LO] - .1 ADDN [TOf Hi I WR I LO 1 999j 

T.ADDR [TOT. BYT. WRT. HI] - . T ADDR [TOT BtT WRT HI) 999; 

T ,ADDR [MTOT^BYT.WRT] - .T.ADDR I MTOT UYT..WRT) - 999 1 
end; 

end; 



000000 004137 OOOOOOG 



000004 
OQOOIQ 



on/00 

012702 



OOOOOOG 
000020 



, SBT Tl 
ROUND. OUT RUT; 5 
JSR 

MUV 
MUV 



ROUND. OUTPUT MULT I -DRIVE TEST ROUTINES 

HI, ISAVt < ; 

I . ADDR , RO j 

020 .R2 



-i M 8 5 

4891 



I 14 



7RQAM5 
VOL 6 

000014 
000016 
000022 
000024 
000030 
000032 
000036 
000040 
000042 
000046 
000052 
000056 
000062 
000064 
000070 
0000 72 
0000 76 
000100 
000104 
000106 
000110 
000114 
000120 
000124 
000130 
000132 
000136 
000140 
000144 
000146 
000152 
000154 
000156 
000162 
000166 
000170 
000174 
000176 
000200 
000204 
000210 
000212 
000214 
000220 
000224 
000230 
000234 
000240 
000242 
000246 
000250 
000254 
000256 



060002 
021227 

101415 
012701 
060001 
021127 
103003 
005312 
062711 
162711 
162712 
012702 
060002 
021227 
101415 
012701 
060001 
021127 
103003 
005312 
0627.11 
162 711 
162712 
012/03 
060003 
021327 
101436 
012701 
060001 
02112 7 
105003 
005313 
062 711 
012702 
060002 
021227 
103011 
005311 
062/' 12 
021127 
103003 
005313 
062/11 
162/12 
162/11 
162/13 
012/02 
060002 
02122/ 
101435 
012/01 
060001 
021X27 



RD/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 



023417 
000016 
00174? 

001750 

001/47 
023417 
000026 

023417 

000024 

001747 

001750 
00174/ 
023417 
000036 

001747 

000034 

00174 7 



001/50 
000032 

001747 



001/50 
001747 



001/50 
00174/ 

001747 
001/4/ 

000044 

001 74 7 
000042 
00174 7 







11 -Apr -1984 11:08:35 


s 




ll-Apr-1984 11:08:22 




ADD 


R0.R2 




CMP 


(R2). 02341/ 




BIOS 


2$ 




MOV 


016, Rl 




ADD 


R0.R1 




CMP 


(Rl), 01747 




BHIS 


1$ 




DEC 


(R2) 




ADD 


01750. (Rl) 


H; 


SUB 


01747, (Rl) 




sue 


0234 1 7, (R2) 


2$: 


MOV 


026. P2 




ADD 


H0.R2 




CMP 


(R2). 02341 7 




BIOS 


4* 




MOV 


024, Rl 




ADD 


R0.R1 




CMP 


(Rl), 01747 




BHIS 


3$ 




DEC 


(R2) 




ADD 


01750, (Rl) 


3$: 


SUB 


01747, (Rl) 




SUB 


02341 /,(R2) 


4$: 


MOV 


036, R3 




ADD 


R0.R3 




CMP 


CR3), 01747 




BIOS 


7$ 




MOV 


$4 , K 1 




ADD 


R0,R1 




CMP 


(Rl). 01747 




BHIS 


5* 




DEC 


(R3) 




ADO 


01/50. (Rl) 


S$: 


MOV 


52, R2 




ADD 


R0.R2 




CMP 


(R2),0174/ 




BHIS 


6$ 




DEC 


(Rl) 




ADD 


01/50.(R2) 




CMP 


(Rl),01/4/ 




BHIS 


6$ 




DIC 


CH3) 




ADD 


ol/50,(Rl) 


6$: 


SUB 


01/4/. (H2> 




sue 


1 /4 / , ( R \ ) 




SUB 


OW4/ ( (R3) 


7ii 


MOV 


044, R2 




ADD 


R0,R2 




CMP 


(«cM.ffl,'0 7 




111 05 


10$ 




MOV 


042, Rl 




ADD 


RO.Rl 




CMP 


(RD.01/4/ 



VAX 11 Bli-ss-16 V4.0 5 79 

DISK $USER2:[ POWERS )ZRQAD0.BL2j 6 



SEQ 0384 
Page 15? 
(42) 



4895 



4B98 
4H99 
4902 

490 *> 
4906 



4910 



49H 
4914 

491 .' 

4'*U M 
4921 



4 925 



4*VH 

49/9 

49 52 



493t« 
495M 

4'M1 
4*4. 

494f, 

■ : ■ u ; 

m *4H 
4951 



4*?»5 



J 1.4 



7RQAM5 
VOL 6 

000262 

000264 
00026t> 

00027? 
000? 76 
00030.? 
000304 
000306 
00031? 
00031b 
000320 

000322 

000306 

00033? 
000336 
00034? 



103003 
00531? 
062/11 
062700 
0210?/ 
103011 
005311 
062/10 
0211?/ 
103003 
00531? 
062/11 
162710 
1627U 
162/12 
000207 



RD'RX EXERCISER 
MULTI-DRIVE TEST 



001/50 

000040 
00174 7 



ROUTINES 



001750 
001747 



001750 
001/4/ 

00174/ 
001747 







11 -Apr- 1984 11:08:35 


s 




ll-App-1904 11:06:22 




BHIS 


8$ 




DEC 


CR?) 




ADD 


#1750, CR11 


6$: 


ADD 


tf40,RO 




CMP 


(HOI, #1747 




BHIS 


9$ 




DEC 


(Rl) 




ADD 


#1750, CRO) 




CMP 


(R1).#W47 




BHIS 


9$ 




Df C 


(R2) 




ADD 


#1750. t Rl J 


9$: 


SUti 


#1747, (RO) 




SUB 


#174/,(Rn 




SUB 


#1747, (R2) 


10S: 


RTS 


PC 



VAX -11 Bliss- 16 V4,0 5/9 

DISK *USLR2 j [ POWERS 1/RUAOO . BL2 j 6 



SEQ 0385 
Page 154 
(42) 


4958 
4959 
496? 


4965 
4966 
4968 


49/1 
49/2 
49>6 
49// 
49 "8 
4883 



Routine Si^re: 114 words, Routine Uose : 
Maviraum *itack depth per invocation: 5 words 



JCODES f 22744 



1/ l A 



:<1.4 



7RQAMA 

VOL 6 



4987 

4984 
498^ 
4986 
4^8/ 
4^88 
4989 
4990 
499]. 
499c 1 
4995 
4^4 
499b 
49^>6 
4997 
4998 
4999 

r>ooo 

5001 
500? 
5003 
5004 
5005 
5006 
500/ 
5008 
5009 
5010 
5011 
501? 
5013 
5014 
5015 
5016 
5017 
50 18 
5019 
50?0 
50? 1 
50?? 
50? 5 
50?4 
50?5 
50?6 
50?/ 
50?8 
50?9 
50/>0 
5031 
50 5? 
SOV, 
5034 



RD/RX EXERCISER 
MULTI-DRIVE TEST ROUTINES 

GLOBAL routine KOST.WRT..CHK - 



11 Apr- 1984 11:08:35 
ll-Apr-1984 11;08j?? 



VAX -11 Bliss 16 V4.0 5/9 

DISK *USERH:[ POWERS 'URQAU0.BL2; 6 



) 386 
Page 155 
(43) 



THIS ROUTINE IS CALLED FROM 10 RETPKT FOR ALL I/O TRANSFER RETURN 
PACKETS WITH "SUCCESS" STATUS CODES, BUT ONLY IF" THE HOST WRITE - COMPARE 
OPTION WA'.S SELECTED BY THE OPERATOR. 

IF THE CURRENT RETPKT BEING PROCESSED IS A WRITE FUNCTION, THEN THE 
PACKET INDEX (RP_INDX) IS SAVED IN THE CONTROLLER'S RETURN PACKET SAVE 
AREA (RP_SAVE). OTHERUISE, THE PACKET IS A READ. SO ITS ASSOCIATED 
WRITE PACKET IS REMOVED FROM THE SAVE AREA, AND A RYTF BY RYTF 
COMPARISON IS PERFORMED ON THE TWO I/O BUFFERS, ANY DIFFERENCES 
ENCOUNTERED RESULTS IN THE DECLARATION OF A HARD ERROR. 



IMPLICIT INPUTS: 
RP ADDR 
RP..INDX 



ADDRESS OF THE CURRENT RETURN PACKET 
INDEX OF THE CURRENT RETURN PACKET 



begin 



local 

BUFFI : ref block [MAX..XFER_5IJC > byte], 

BUFF? • ref block [ MAX„XFER„SI^E , byte], 

BUFFW. 

COUNT : word, 

FLAG : byte initial (byte (TRUE)), 

index : signed word; 

If .RP_ADDR [ENDCOD] eql (OP„WRT or OP^END) 
then 

FLAG - FALSE 
else 

If (.RP ADDR [ENDCOD] eql (OP RD or OP. .END)) and 

((index - RPS..REM ()) geq 0) 
then 

begin 

BUFFW ■ RETPKT (.index, DUFF 0}j 

BUFFI - , .BUFFW? 

BUFF? * .RP_AODR [BUT Oh 

COUNT - .RP.ADDR [BCNT.LUh 

incr I from 1 to COUNT do 

if .( .BUFF1)<0, 8, 0* eql . ( . BUFF,? )<0, 8, 0> 
then 

begin 

nun 1 ;i . liui i i • l; 

BUFF;? - .BUr'Fi* » lj 
end 
else 

begin 



1/0 BUM'LR ADDRESS 
I/O BUfFER ADDRESS 
I/O BUFFER ADDRESS 
BYTE COUNT 



> IF WRITE OPERATION 

! DON'T CALL SWEEP FROM IO..RETPKT 

! IF ASSOCIATED WRITE PACKET TS FOUND 

* ADDR OF ADDR OF WRITE I/O BUFFER 

• ADDR OF WRITE I/O BUFFER 
! ADDR OF READ I/O BUFFER 

! BYTE COUNT 

! FOR EACH BYTE IN Hltt F ERS 

I IF BYTES COMPARE O.K. 



! ADVANCE WRITE BUFFER ADDR 
! ADVANCE READ BUFFER ADDR 



» ELSE - COMPARE ERROR 



14 



ZRQAM3 
V01.0 



50 3 5 
50.36 

SO? 7 

5038 

5039 

5040 

5041 

504? 

504 3 

5044 

5045 

5046 

504 7 

5046 5 

5049 5 
5 
4 
4 
4 
3 

5 

m 



5050 
5051 
505? 
5053 
5054 
5055 
5056 
505 r 
5058 
5059 



RD/RX EXERCISER 

MULTI -DRIVE TEST ROUTINES 



11 -Apr -1984 ll:08i35 
11 Apr 1984 11:08:22 



VAX-11 Bliss 16 V4. 0-579 
DISKJUSER2: [ POWERS JZRQAD0,BL2s 6 



SEU 58/ 
Page 156 
C43) 



T..AODR [ERR. HARD] - .T ADDR [ERR HARD] » lj 
T^ADDR [ERR..HRD.HST] - .T_ADDR [ ERR_HRD_HST ) + I; 



IF ,APT_MODE 
then 

ERR. HRD..RTNE..APT C42) 
else 

ERR_HRD_RTNE (42); 

EMS_CMP (RETPKT • (.index * RPJ.EN * 2)) 

if , T..ADDR [ERR. HARD ) Qequ . SWP ERROR 
then 

begin 

DUR [ ,L$LUN] * DU.HERR; 

DODU ( .L$LUN)j 

end? 

e\ » t loops 
end? 



end; 

return ( »FLAG) 
end; 



! I/O REQUEST FAILED 



! IF ERROR COUNT EXCEEDED 
■ DROP UNIT 



! NO NEED TO CONTINUE 

! IF' COMPARE ERROR 

J IF ASSOCIATED WRITE RETPKT WAS FOUND 

I ROUTINE HOST .WRT. CHK 



000000 004137 QOOOOOG 



000004 
00000b 
000012 
000016 
000024 
000026 
000030 
000032 
000040 
000042 
000046 
000050 
000052 
000054 
000060 
000064 
0000 70 
0000 74 
000076 
000102 
000106 
000112 
000114 



005 746 
112705 
013700 
126027 
001002 
105005 
000511 
126027 
001105 
004737 
005 700 
002501 
010046 
012746 
004 7X7 
010066 
062 700 
011001 
013 700 
016002 
016004 
005003 
000453 



000001 
OOOOOOG 
000014 000242 



000014 000241 
000000V 



000054 

OOOOOOG 

000004 

000024G 

OOOOOOG 

000024 

0000^0 



iBTTL HOST. WRT, CHK MULTI-DRIVE TEST ROUTINES 

l 

; +.FLAG 

; FLAG 

j INOt x 
5 INDEX,* 



; *,HltfFW 

j HUFF W, HUFF 1 

! *.Ht'FF2 

j ♦ .COUNT 

{ I 



HOST 


.WRT. CHK: : 






JSR 


R1.SSAVE5 




1ST 


-(SP) 




MOVB 


01. R5 




MOV 


RP.ADDR.RO 




CMP3 


14CR0),0242 




BN1 


1$ 




CLRB 


R5 




BR 


85 


U: 


CMPB 


14(R0).#241 




BNE 


8* 




JSR 


PC.RPS.REM 




TST 


RO 




be; 


8$ 




MOV 


RO, CSP) 




MOV 


054, (SP") 




JSR 


PC, HI $MUl. 




MOV 


R0,4(SP) 




AOL) 


«RETPI<T*24,R0 




MOV 


(HO).Rl 




MOV 


RP.ADDR.RO 




MOV 


?4(R0),W? 




MOV 


20tRO),R4 




C! R 


R3 




UR 


6* 



498? 

5001 

5011 



5013 
5011 
5016 

5017 



5020 



!»V1 
50,\ 

5023 
5025 



Ml 4 



/RQAM3 

V01, 6 

000116 

000120 
0001?? 
000124 
000126 
000130 
000134 
000140 
000144 
000152 
000154 
000160 
000164 
000166 
000172 
000176 
00020? 
000206 
000212 
000216 
000224 
000226 
00023? 
000240 
00024? 
000244 
000246 
000250 
00025? 
000254 
000256 
000260 
00026? 



121112 

001003 
005201 
005202 
000446 
013700 
005260 
105260 
032737 
001405 
012716 
004 737 
0004C4 
012716 
004737 
016616 
062716 
004737 
013700 
026037 
103412 
013700 
112760 
104451 
000403 
005203 
020304 
003722 
022626 
005000 
150500 
005726 
000207 



RD/RX EXERCISER 

MULT I -DRIVE TEST ROUTINES 



OOOOOOG 

000014 

000051 

000001 001162' 

00005? 

oooooov 



000052 

oooooov 

000004 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000014 



OOOOOOG 



OOOOOOG 

000004 OOOOOOG 



11 -Apr -1984 11:08:35 
ll-Apr-19ti4 11:08:22 



2$: 


CMPB 


(R1).(R2) 




BNE 


3$ 




INC 


Rl 




INC 


R2 




BR 


6$ 


3$: 


MOV 


T.ADDR.RO 




INC 


14CR0) 




INCB 


51CR0) 




BIT 


01. APT. MODE 




BEQ 


4$ 




MOV 


tt52,(SP) 




JSR 


PC.ERR.HRD.RTNE.APT 




BR 


5i 


4$: 


MOV 


052, (SP) 




JSR 


PC.ERR.HRD.RTNE 


5$: 


MOV 


4(SP),(SP) 




ADD 


ORF.TPKT.CSP) 




JSR 


PC, EMS, CMP 




MOV 


T.ADDR.RO 




CMP 


14(R0),SWP. ERROR 




BLO 


7$ 




MOV 


LSLUN.RO 




MOVB 


04.DURCR0) 




TRAP 


51 




BR 


7$ 


6$: 


INC 


R3 




CMP 


R3.R4 




BLE 


2* 


7$: 


CMP 


( SP ) • . < SP ) ♦ 


8$: 


CLR 


RO 




BISB 


R5.R0 




TST 


(5P)» 




RTS 


PC 



VAX-11 Bliss 16 V4, 0-579 

DISK $U5ER2:[ POWERS ]ZRQAD0.BL2{ 6 

i Burn.BUFFa 

: BUFF 1 
: BUFF2 



; I 

{ I, COUNT 



FLAG,* 



SEQ 0388 
Page 157 

(43) 

5027 

5030 
5031 
502 7 
5035 

5036 
5038 

5040 

50 58 

504? 

5044 



5046 



5049 

5050 

5034 
5025 



50 1 9 
5058 

4982 



Rout i ne Si «re : 
Maximum stock 



90 words, Routine Base: $CUDE$ ► 23310 
depth per invocation: 11 words 



N.14 



/RQAN3 

V01. 6 



S060 
5061 
506? 
S063 
5064 
5065 
50b b 
5067 
5068 
5060 
50 to 
50/1 
50 <V 
507 5 
5074 
50 75 
50 76 
507/ 
50 78 
50/ 4 J 
5080 
5081 
508? 
5085 
5084 
5085 
5086 
5^8/ 
5088 
5089 
5090 
5091 
509? 
5095 2 

5094 2 

5095 2 

5096 1 



RD/RX EXERCISER 

MUl II DRIVE TEST ROUTINES 

GLOBAL routine SWEEP : novalue - 



11 Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bli'is-16 V4.0 5/9 

DISK $USER2:t POWERS ]ZRQAD0.BL2;6 



SEQ 0389 
Page 158 
(44) 



THIS ROUTINE IS CALLED FROM 10 RETPKT AND OTHERS TO DEALLOCATE THE 
RESOURCES ASSOCIATED WITH THE CURRENT RETURN PACKET. THIS INCLUDES THE 
PACKET ITSELF' AND THE I/O BUFFER. IN ADDITION, IF THE HOST IS 
PERFORMING WRITE -COMPARES, AND IF THE CURRENT RETURN PACKET IS A READ 
FUNCTION. THEN THE CURRENT CONTROLLER'S RP SAVE AREA IS SEARCHED FOR 
THE ASSOCIATED WRITE RETPKT SO THAT ITS RESOURCES CAN ALSO BE 
DEALLOCATED. 

IMPLICIT INPUTS: 

RP..ADDR - ADDRESS OF CURRENT RETURN PACKET 
RP„INDX - INDEX OF CURRENT RETURN PACKET 



begin 

local 

index ; signed word: 

if C.RP.ADDR [ENDCOD] and OP_MSI<) eql OP_RD 
then 

if BIT_TST (SUP .FLAGS. SWF.HWC) 
then 

if (index * RPS„REM ()) geq 
then 

begin 

PUT IO_BUFF (RETPKT [.Index, BUFF 0])} 

PUT. RETPKT ( . index); 

<*nds 

PUT.IOJJUf'K (RP..ADDR [BUFF_0)) } 

PUT. RETPKT ( ,RP,INDX)j 

end; 



! IF READ OPCODE OR ENDCGDE 



! IF HOST IS DOING WRITE -COMPARES 



! IF ASSOCIATED WRITE RETPKT IS FOUND 



! RETURN WRITE I/O BUFFER TO PUUL 
} RETURN WRITE PACKET TO POOL 



! RETURN CURRENT I/O BUf> t'R TO POOL 
! RETURN CURRENT RETPKT TO POOL 
! ROUTINE SWlEP 



000000 
000002 
000006 
000012 
000016 
000022 
000024 
000032 
000054 
0000*0 
000042 

oooo^*; 

000046 



010146 

013700 
116000 
042 700 
020027 
001026 
032737 
001422 
004 737 
010001 
0024 16 
010146 
012746 



OOOOOOG 
000014 
17/600 
000041 

000040 OOOOOOG 

000000V 

000054 



.SBTTl. SWEEP MUl TT DRIVE TEST ROUTINES 

SWEEP: : MOV Rl, (SP) ; 

MOV RP.ADDR.RO j 

MOVB 14(RO),RO 

BIC Q\ 7 7600.RO 

CMP R0,,741 

BNE 1 $ 

BIT 040, SWP. FLAGS j 

BEU 1$ 

JSP PC.RPS.REM s 

MOV R0.R1 ; 

Bl T li 

MUV Rl, (SP) j 

MOV #54, -(SP) 



♦.INDEX 

INDEX, f 



S081 



r i0rt4 
«\0^ "* 



/RiW15 




RO-RX 1 M RCISIR 


\0\,h 




Mm U ORIVF TtMT 


C^O'u' 


oo4 ; 5 : 


0000 001 i 


0000* >h 


OfY '00 


OOOO. '41, 


OOOOtV 


0100 If* 




0000*4 


004:5; 


000000c. 


oooo ;o 


OlOlifc 




0000 V 


004 m; 


000000c. 


oooo >• 


o^yk*** 




OOO 1 00 


01 V4f, 


oooooch; 


000 1 04 


0*..\»lt. 


0000/4 


OO01 10 


004 1 < .' 


OOOOOOi, 


O001 14 


ot5;if. 


000000(, 


000 u V 


004 ' * * 


0000000 


OOO I, '4 


OOS Yf' 




OOO 1,'f. 


OK'f.oi 




000 i V> 


iXWO '-' 





R0UT1NI 



Us 





11 Apr 




11 Apr 


JSR 


PC.BUMU. 


ADD 


*RF TPKT », J 4,R0 


MOV 


RO.(SP) 


JSR 


pc. put. to.nuf t 


MOV 


R1,(SP) 


JSR 


PC.PUT.RtrPKT 


CMP 


( SP U , ( SP ) » 


MOV 


RP . ADOR , ( SP ) 


ADO 


0/4 , ( SP ) 


JSR 


PC.PUMO.HUf » 


MOV 


RP. INOX.ISP) 


J l >R 


PC.PU* .Rt TPKT 


TST 


I *jP > • 


MOV 


r.pn.Ri 


RIS 


PC 



14H4 1 1 j OH 1 IS 
1«H*4 HiOetL'i? 



VAX H Hliwn 1'. V4,0 S /'* 

DISK $USe R^ j [ PUWMRO )/RQA00.UL2i6 



Pa^s IVj 
(44 ) 



j I NDt x , + 



S0'#1 

S0'>4 



SO r. 

Si j '*. 



j Ro,«t ^ '.;.■•: *»«. w or<J*. t Rowt!n« t)n*« : SCODfc* 

i Mas'mym *it«ck depth oer Invocation; A w^rctt* 



J 55/4 



/H04M.< 
101. e* 



So i »H 
SO 1 * 1 * 

s i oo 

MOl 
MO.' 
M'V< 
M04 
MO'. 

s t oti 
mo; 
si oh 

Mo 1 ' 
Mlo 
Mil 
Mi.: 
Ml< 
Ml* 

Mr. 

MU. 
Ml * 
M1H 
Ml 1 ' 
M.V 
MOI 
MOO 
M05 
Si 04 
MOS 
M.V, 

Mo; 

■»10H 

SI."* 

MSo 
M^l 

S H '■ 
SI 54 

s : 's 

Sl5#. 

S1.5' 
S I 5M 



HO RX I XI HC1SI R 

HU TT DRIVE TEST ROUTINES 



lilUOAl. routine RPS REM - 



1 1 Apr l l *H4 1 I : OH j ^S 
XI -Apr- 195*4 UiOSift? 



VAX 11 HI !*•» 1*. V4.0 *>tU 
DI l JK»U'ifcHi?jlPUWt-HS]/HQAD0 t Hl?)6 



'iF.O 5'M 

Po^e l',0 
f4Sj 



THIS ROUTINE SEARCHES THE CURRENT CONTROLLER'S RP SAVE AREA EUR A 
RETURN PACKET WHOSE COMMAND REFERENCE NLJIBER (CRN) IS ONF I ESS THAN THE 
CRN OF THE CURRENT RETURN PACKET (I.F., SEARCHING FOR THE, SAVEO VIP I TE 
OPERATION ASSOCIATED WITH THE. CURRENT READ OPERATION). IE M1UND. THE 
RP SAVE ENTRt IS CLEARED (TO I) ANO THE RETPKT INDEX OF THE WRITE 
OPERATION IS RETURNED TO THE CALLER. 



I MR KIT INPUTS: 

RP AODM 



ADDRESS OF THE CURRENT RETURN PACKET 



OUTPUTS} 



INDEX l VALUE! OF THIS ROUTINE) - INDEX OF THE RETPKT CONTAINING 

A CRN WHICH IS ONE LESS THAN THE CURRENT 

beg I n 

1 oc n 1 

inde*. ; signed word initial (l)j 

incr COUNT from to RP CNT 1 do 

if ( .RP USI [. COUNT 1 eql .CCUR) ond 

(. RETPKT (.COUNT, EN0C0D1 eql (OP WRT cr OP ENO)^ 
then 

Jf ((.RETPKT [.COUNT, CRF LO] eql (.RP ADDW I CPO 10] P) and 

(.RETPKT (.COUNT, CR* HI) eql . RP AOOR [ CR> Ml])) or 
((.RETPKT (.COUNT, CRf HI] «ql ( . RP ADDR [ CR> Hi) 1)1 and 

(.RETPKT i.COLNT, CRF LO] eql *o'W /?//') and 

( .RP ADDR [CRF LO] eql 0)) 
then 

b«g> n 

index • .COUNT} 

esi t loopj 

end J 

return , indexj 
end j 



ASSUME NOT "• OUNO 

FUR E ACH ENTR« IN RP srtvf 

U THIS IS A VAI ID RETPKT INUL 

! V CORRECT CRN 



* index to he rf. turned 

I DONE 



• ROUTINE KP*j.RtM 



000000 00415/ 



OO0OO4 

ooooio 
00001.' 
ooooir 

OOOo.v 



Ol.s'04 

oosoo*. 

I If. 500 

0000 5/ 
00UA5 



000024 010546 



OOOOOOvj 
17//// 

UOl KJOOt , 

O0OO00U 



.SHTFl 


MP-..RI M Hi\ T I 


RPS .REM: : 




JSR 


Ml , JSAVE4 


MOV 


1,«4 


Ci R 


W5 


U; MiJvH 


RP.USI i R5 ) t HQ 


CMP 


RO.CCM R 


HNt 


At 


MOV 


RS t -tSP) 



j • . INOE v 

i CU"NI 



4 COUNT,* 



*U*3 



V| 



/RUAM5 

vol, 6 

0000/6 

00003/ 

0000 3t- 
000040 
000046 
0000 SO 
UOOOS/ 
O000S6 
00006/ 
0000t»4 
000 o to 
oooo ;4 

0000 ?t-> 
00010/ 

000 1 04 
00011/ 
000114 
0001/0 
000 t// 
0001/6 
000150 
000156 
000140 
000144 
000146 
000 ISO 
O001S/ 
000 1S4 
000160 
00016/ 
000164 



RO/RX 

MU Tl 



\ XlrtCISl R 
DR1VK TbST 



ROUTINES 



11 
11 



Apr- 1^84 
Apr 1084 



1 1 : OH : ^S VAX 11 HI Is?* 16 V4.0 S/'> 

1 1 } Ofl i i><? D 1 5I< $UfiERi? i t POWERS ] /RQADO . BL J> 1 6 



SF.U OW 

^0O« 161 
(4Sj 



01/ Mb 
004/5/ 

0//f>/6 

1/60/7 

00104 1 
010546 
01/ /46 

004 ; 5 ; 

0//6/6 
013/01 
01610/ 
00S50/ 
0/600*' 
001004 
0/6061 
00141S 
01610/ 
0OS30/ 
0/600/ 
001011 

0/60/ ; 

00100S 
00S/61 
00100/ 
010504 
000404 
OOS/0 5 
0/05// 
003'* 14 
010400 
000/0 ' 



0000S4 
OOOOOOd 

000014G 000/4/ 



0000S4 

ooooooc. 

00(H)00(i 

000004 

0000041. 
000006U 000006 
000006 
000006(i 

ooooo4i, it) in 

000004 



00000/ 



/*; 



3$ : 
4«: 

S»: 



MOV 
JSH 

cw 

CMPH 

RNf 

MOV 

MOV 

JSH 

CMP 

NOV 

MOV 

OIL" 

CMP 

EINt 

CMP 

B* Q 

MOV 

DK 

CMP 

BW 

CMP 

BNf 

TST 

HNi 

MOV 

»R 

INC 

CMP 

HI t 

MOV 

NTS 



I Rovjt^e M.-e: V* «orc*s f Routine tlssc: ICUDEf 

j Moslmgm stack depth per invocation; y words 



*S4 . ( SP ) 

PC.Bt IMUt 

(SP).,M,P). 

Rf rPKTM4fR0),# r ?4/ 

41 

R3. (SP) 

* r >4 . ( 'JP ) 

PC.UL IMUt 

(SP)',( -iPU 

RP.AD0R.R1 

4(R1\R/ 

R/ 

Mt TPKT *4tR0).R/ 

/$ 

Rt TPKT»6(R0),6(R1 ) 

3$ 

6(R1 ).R/ 

R ' 

Rf TPKT»6lR0),R/ 

41 

Rt TPKT»4(R0).0-i 

4$ 

4 ( R 1 ) 

41 

R3.R4 

M 

H3 

h 3 , o / 
It 

R4.R0 

PC 



23 7* 



j COUNT,* 



1/6 



COUNMNOFX 



j ClhiNT 

j COUNT .• 

; INDEX,* 
I 



Si/* 

*.!/'> 
M3f- 

Si 3.3 

M <.' 

'•1/0 

MIS 



J 



/RJAM5 
101,6 



S159 
M40 
M41 
M42 
M4 5 
M44 
M4S 
M4t. 
M4." 
M4H 
S14'* 
5 ISO 
MM 
MV 

MS5 

M!>4 
M!i*. 
r US6 
MS* 
MSfl 
MV 
SUA) 
MM 
5162 
M65 
M64 
M6S 

Mb ' 

M#,H 

Mb** 
r > l ;o 
m;i 

MA! 



KO/'RX I Xt RCISER 
MUTT-ORTVF TFST ROUTINES 

U OBAL routine OR RETPKT : novttlue 



11 -Mpr-IWM UiO0:5S 
11 Apr-1904 11:08:22 



VAX 11 HI inn l*. V-i .0 S/'* 

DISK *USER2i [POWERS ]/RQAUO.BLi>j 6 



StU O'/M 
Page 162 
(46) 



THIS ROUT INF IS CAlLED BY PRUC RFTPKT FOR All PACKETS ORIGINATING A! 
THF "DRIVFR" PORT TON OF THE PROGRAM, THIS INCLUDES PACKETS DESCRIBING 
FATAL DEVICE ERRORS. 

FOR fATAl DFVICE FRRORS, THIS ROUTINE RELEASFS ALL RESOURCES HFt Hi 
THE CONTROLLER. THE CONTROLLER IS MARKF OF MINE. IN ITS CST, AND ALL 
UNITS ATTACHED TO THE CONTROLLER ARE DROPPED. 



IMPLICIT INPUTS: 

RP INOX 
RP ADDR 
CST ADDR 



INDEX OF THF CURRENT RETURN PACK* T 
ADDRESS 0^ THE CURRENT RETURN PACKET 



ADDRE 



CCTLR - CURRENT CONTROLLER NUMBER 



Of THE CERENT CONTROLLER'S CST 



begin 



PUT A BUFK ( )j 

Incr inden from to RP..CNT 

! F ,RP USE [ . Index 1 eq) 
then 

PUT RE1PKT ( . index)) 



1 do 

CCTLR 



010 [ .CCTLR] ■ Oi 

CST ADOR ISTAIir J - UF H INF j 

DROP CTLR (.CCTLR, DU.CFATADi 

PUT. RETPKT C .RP INDX)| 

endj 



RH FfiSf Alt I/O BUFFERS HMD Hi CONTROl l.ER 

for each entrt in controller's rp save 

if val id hetpkt index 

r; turn re tpkt to pool 

Clear no. o* out stand ini; uiik 
mark cst 0m| ini. 
drop control i [w , units 
put hack ret pi' ' 

ROUTINE OR Rl TPKT 



OOOOOO 01014*) 



000002 

00000f» 
U00010 
O00014 
O0002O 

UOOO.V 
O 000 J 4 
0000 50 
OOOOV 
O00054 
00004 
OO0O4 2 
OO0O4*. 

0000S2 



004 m; 

005001 
116100 
02005 7 
001004 
010146 
004 / 5 ; 
00'W26 

oovoi 

0201,'/ 
00 5 ft, % 
015/01 

iosom 

013700 



OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 



00000 / 

O 0000 Oli 
00000 Oli 
OOOOOOG 



.SHTTL 
OR, RE TPKT : : 

MOV 



1) 



a 



JSR 

CL R 

MOVH 

CMP 

HN1 

MOV 

JSR 

TST 

INC 

CMP 

HI t 

MOV 

CI RH 

MOV 



iNin * 

♦ ( INDE-X1,* 



DR. RETPKT MUFI -DRIVE TESI ROUT INI 

Rl, iSH. 1 ; 

PC.PUTA.HU ^ 

Ri 

RP.nSt (Ni),HO 

RO.CCTl R 

2* 

Ml . ISP ) j I NO! *,* 

PC, PUT, ME TPKT 

( ',P)» 

R 1 j 1 NDt X 

Rl,..'/ . INDEX.* 

\% 

CCUR.R1 j 

DICK HI ) 

CST.ADDR.RO i 



SI'. * 

su,o 

'W.4 



'■U>2 



M<-> 



I 1 



/HUrtNJ 




RD'HX \ xeHClSKH 




11 Apr ■■l'»«4 1 ljOH: ',S 


VOl. 6 




MUT1 DRIVF TfcST ROUTINES 




11 -Apr -1904 !U08{Ha 


OOOOSb 


04, » 760 


100000 00000c? 


ore 


0100000, ?(R0) 


O000fi4 


010146 




MOV 


Rl, -(SP) 


0000t>6 


01,V46 


000006 


MOV 


06, (SfM 


oooo'/,? 


004 7 57 


OOOOOOG 


JSR 


PC.DROP.CIl.R 


000076 


013/16 


OOOOOOG 


MOV 


RP.INDX,( r >P) 


000 10.' 


oo4/;v 


OOOOOOG 


JSR 


PC.PUT.RFTPKT 


000106 


OcVu.Hi 




CMP 


(SP)»,(SP)* 


000110 


0U , e>01 




MOV 


(*iP)»,Rl 


000 lh> 


ootvo; 




RTS 


PC 



StU O'/.M 
VAX U \\\\;tu 16 V4.0 f >/ ( ' Page 16', 

PI5KIUSER2I I POWERS J/RQAD0.BLaj6 (46) 



M/0 



M/l 

MV 
bl39 



Routine Sl.-e: <H words, Routine B»«e : *CODE* ♦ 54114 
M5\imum stoc^ depth per invocation: 4 words 



) 



) 



V01, 6 



Sl/3 
SI .'4 

si ;s 
si .*6 

si/; 

Sl'M 
Sl.'^ 
SI 80 
S181 
SlB t > 
S18< 
S1M4 
S18S 



RD/RX I XERC1SER 

ROHX INTERRUPT SERVICE ROUTINES 

*sbttl *RDRX INTERRUPT SERVICE ROUTINES 



11 -Apr- l'*64 11 jOrtj.V, 
U- Apr -1984 11:08:22 



vax 1 1 ni\su i<. vi. o s/'» 

DISI<*USER2:lP0WERS]ZRQAD0.BL2j6 



btU OV'S 
Page l',4 
(4/) 



THERE EXISTS AN RDRX INTERRUPT SERVICE ROUTINE EOR EACH OEVlCf 
CONTROLLER. EACH SERVICE ROUTINE BEGINS BY SIMPLY SETTING iHt 



APPROPRIATE 
BRANCH TO A 



CONTROLLER NUMBER INK) "ICILR". ALL SERVICE ROUTINES THEN 
COMMON INTERRUPT PROCESSING ROUTINE. 



BGNsRV (A/INTO) 
ICTl.R * Oi 
A/ INT ( ) 5 
ENDSRV; 



000000 
OOOOQS 
000006 
0000 U 1 

000014 



010046 
00S05/ 
004 tSf 
012MX) 
000002 



000104* 

oooooov 



.SBTTL 
A/INTO: :MUV 
CLR 

JSR 
MOV 
RTI 



azinto rdrx interrupt service routine 
ho, csp) 

ICTER 
PC. A/ INT 
( SP ) ♦ , RO 



MM.' 
MH4 
\1M4 

Mti2 



Routine Sl/e: «* words. Routine Base: $CODE$ ♦ 24230 
Maximum stack depth per invocations 2 words 



/ROAM 5 
VOl, 6 



5186 
518/ 
5188 
SI 89 
51 l *0 
5 w 
5W/ 
51 l *5 
SI 94 
S19S 

5W6 
SI 1 */ 

sr*8 

SI 99 

s/oo 
5/01 
5/0/ 

5/0 * 

5/04 

5/05 

5/o<> 

5/0 / 
5/Ofl 
5/09 
5/10 
5/ 1 1 
5/1/ 
5/15 

5/14 
5/15 
5/ It, 
5/17 



HIV-'RX EXERCISER 

RORX INTERRUPT SERVICE ROUT INK 5 

GLOBAL routine A/INT : novalue ■ 



11 Apr 19H4 11:08: 45 
il-Apr-19B4 11:08:// 



VAX U HI ;«»•» l#, V4 .0 5/9 
DISKiUSER/: I POWERS J/RUAD0,BLc?»6 



SEU 0',9fi 
Page 1 ',5 

C46) 



THIS IS THE COMMON INTF.RRUPT SERVICE ROUTINF FOR ALL RDRX CONTROllFRS. 
AFTER CALCULATING THE OCT ADDRESS FOR THE INTERRUPTING DEVICE. THIS 
ROUTINE WILL SAVF THE CURRENT CONTENTS OF THE SA REGISTER IN THE DZ1. 
THEN. IF THE "IGNORE INTERRUPT" BIT IS SET. NO FURTHER ACTION IS TAKFN 
OTHERWISE, THE SA VALUE IS CHECKED EOR A FATAL ERROR. AND THE COMMAND 
AND RESPONSE RINGS ARE POLLED, 



begin 

1DCT ADOR • OCT ♦ (.ICTLR ♦ OCT LEN ♦ /), 

ICST ADDR - CST ♦ C. ICTLR ♦ CST I EN ♦ /l, 

IRDRX ADDR - .ICST ADDR [IP ADDR]; 

1C0M.AD0R - COMM AREA ♦ (.1CTIR ♦ COMM I EN ♦ /)( 

IDCT..ADDR [SA SAVE] - .IRDRX.ADDR [RCSA. RC.ALUj 

if .IDCT ADOR UG INT] 
then 

return; 

if BIT TST C IDCT ADDR ISA ..SAVE], SA..ERR) 
then 

FATAL ERROR C ) 
else 

begin 

POl I. CR1NG ( )j 

POLL..RRING C ){ 

end; 

end*. 



» GET OCT ADDRl SS 
! GET CST ADDRl SS 
! GET RDRX ADDRESS 
! GET COMM ARFA ADDR 
» SAVE SA HEGlsn R 

! IGNORE INTERRUPT/ 

» RETURN IF INTERRUPTS IGNORED 

! IF FATAL ERROR 



• PULL COMMAND RING 
! POl I RESPONSE RING 



000000 
00000,' 
000004 
000010 
00001/ 
000016 
0000// 
00 00/6 
00005/ 
0000 54 
000040 
000044 
000050 
000054 
000060 
0000*)/ 
00 00*, 6 
000072 



10 14h 
005 /4f 
015/01 
010146 
01/ /46 
004 75/ 
06 t . 700 
01005 7 
010116 
01/ /4b 
004 / ^ / 
06/700 
01005/ 
01105/ 
OlOllfi 
01/746 
004 / 5 / 
062700 



000104' 

0000// 
OOOOOOG 
OOOOOOG 
000100* 

0001/6 
OOOOOOG 

OOOOOOG 
0000 76' 
Ov.OOOG 

000050 

OooOOOii 

000000* 



.SOITl. A/INT RORX INTERRUPT SERVICE ROUTINES 

A^XNT;; MUV Rl, ( 5P ) . 

TST (5P) 

MOV IT ILK. HI ; 

MOV Rl, ISP) 

MOV *//, ( P) 

JSR PC.Bl #fH'l 

ADD oDCT.RO 

MOV RO, IDC! .ADDR 

MOV R 1 , 1 5P ^ ; 

MOV 1/f. . ( ,IM 

JSP PC. til *MUl 

ADD ©CST.RO 

MOV RO, IC'.T .ADOR 

MOV (R0>, I RDRX. ADDR 

MOV Rl.CSP) 

MOV 050, C'.P) 

J M PC .III SMI H 

ADD OCUMM,AREA t RO 



',1.4 6 
M l »8 



5tvW 



ICST, ADDR.* 



WO I 



) 



■7HUAM5 
V01 .6 

OvK>0 .*♦> 
OOO 1(V 
000106 
000 11.? 
0001,?0 
O.'iOh'O 

000 IV 
000154 
000 140 
000144 
0001SO 

000 1 r »J' 
COO 1 St, 

ooou.o 

000lf>4 

0001/0 
0001 /4 
0001/6 



01005/ 
015701 

013700 
0H>066 
016661 

05?; ii 

00 1016 

016601 
04 .V01 

oroirv 

001005 
004/5/ 
000404 
004 / 5 / 
004 tM 
06.V06 
01,_'60l 
000^07 



RO/RX frXt RCIStR 

RORX INTERRUPT ShRVlCK ROUTINES 

0000 74 ' 

oooioo- 

OOOOOOG 

00000? 000010 
000010 C00002 
040000 



000010 

o / / : / / 

100000 
0000 00 V 

oooooov 

oooooov 

0000 1<? 



11 Apr-l ( >H4 11 208 
11 Apr- 1984 11:08 



ird 



VAX 11 t)li*i<* 16 V4.0 S/<* p a g e \i,t, 

DISiOUbfcK<>;LPUWKRSURQAD0.BL2s6 (AH) 





MOV 


RO.ICOM.ADDR 




MOV 


IDCT.AD0R.R1 




MOV 


IRORX.ADOR.RO 




MOV 


;?cro),io(sp) 




MOV 


10(5P),?CR1) 




BIT 


040000 ,(R1) 




BNt. 


c-M 




MOV 


iocr>p).Ri 




RIC 


077777, Rl 




CMP 


Rl, 0-100000 




BNl 


1$ 




JSM 


PC t KA T AL.tRROR 




BR 


.'» 


11: 


JSR 


PC,PULUCRIN(i 




JSR 


PC.POI.l .RRINU 


*?*: 


ADO 


01?, SP 




MOV 


(SP)*,Rl 




RTS 


PC 



♦ ,RC,RR» 
RC.HU,.* 
*,IDCT.ADOR 



Sf'fOc? 



b«'04 
r .. 1 86 

V J 08 



S.'IO 

r»r:i '. 

?u M .4 



Rout - ne S ! je : 
Maximum stock 



t»4 words t Routing Base: *C0UfcJ » «M£4o 

depth per invocation: V wordt* 



5Jlo 1 



♦*RUAM< 
V0K6 



S.VO 
S t Vl 

v.v 

SVS 
S.VtS 

S.VH 

s t \V' 

V*l 

w 

V5S 
V < ' 

V40 
S.M 1 
V4i' 
Si? 4 3 
S.?44 
Si?4S 
S t ?46 
Jn»4 / 
S.MM 
V4«> 
S.'SO 
V-l 
W' 

S t ,, »4 
!i.?V» 

v;/ 

S/'SH 
W> 

v*»;* 

S.V,f 
V'»4 
Vt.S 
Si'Mi 

VV* 

S.'/O 

w/1 



RtVHX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 



) 



11 -Apr-1^«4 ll:Ott:.Vj 
11 -Apr- 1984 11:08:22 



VAX 11 HI! mm 1>> V4.0 -!)/') 

DISK $USER2 : [ POWERS j 2RUAD0 . BL 2 j 6 



SFQ O^M 
Page \ f >t 
(4<i) 



i t 



e;i obau routine: dup.rsp : novaiuf. 



Mil 



THIS ROUTINE IS CALLED DY POLL RRINCi TOR EACH OUP RESPONSE 
IIS GENERAL PURPOSE IS TO ACT ON A DATAGRAM OR SEQUENTIAL MESSAGE, 
Xf THE Mc.SSAGF TYPE IS SEQUENTIAL. THE ROUTlNt COPIES IHL 
CONTENTS Of XHt MESSAGE ENVELOPE INTO A RFTURN PACKET SO THAT THE 
ENVELOPE CAN BE RETURNED TO THE! CONTROLLER. 

IMPLICIT INPUTS: 

ICTLR INTERRUPTING CONTROLLER NUMBER 

IPKT, ADDR - ADDRESS OF MSCP ENVELOPE CONTAINING RESPONSE 

beg J n 

local 

R INDEX : signed word, 

SRC l \ODR, 

DS1 \ODR, 

R_AODR : ref block (RP.LEN, word) field ( RP FIELDS)} 
JPRINTX CDER34); 

incr COUNT From to PKT.CNT 1 do 

if (.MSCP_PKT f .COUNT, CRN L 01 eql . IPKT ADDR I CRN 10]) and 
C.MSCP PKT (.COUNl, CRN HI J eql .IPKT ADDR I CRN Mil) t*n<) 
C.MSCP.PKT (.COUNT, PKT.L01 neqo .IPKT ADDR [PKT IUJ) «nd 
((.MSCP .PKT [.COUNT, OPCODM and OP END) neq OP END) and 
C.MSCP.PKT [.COUNT, CONNIQ] eql CID DUP ) and 
((.IPKT. AODR [OPCODE! and OP. END) eql OP END) 

then 



! IF THIS IS THE ASSOC CMD 



begin 

P. 1NDFX - 

e k i t i oop ; 

end; 



.COUNTj 



it .P INDEX l«s 
then 

beg i n 

PRJNH CDBM108, .IPKT. .ADDR ICRN.l.ODi 

return; 

end} 

If (R. INDEX - GET RfTPKT C. ICTLR)) lr.u 
then 

PRTNTL CDUMU*?) 
elce 

beg i n 

SRC AODR ' .IPKT ADDR • m 



J SET PKT NUMBER 

! IF COMMAND NOT h OUND 

! UNKNOWN COMMAND REF. NUMBER 

I if r^TPKT is not avail ahu 

! 'DUPRSP: RETPKT NOT AVAILAl.lt" 

• SI- ] t'P CUP? (SKIP UVl R PK ! ui 



R..ADDR - DST..ADDR - HETPK1 * C.H.. INDEX ♦ RP I EN ♦ i? ) j J START OF ALLOCATED RETPKT 



U I i . 



V '/> 



/RUAM3 
V01, 6 



S.r.V 
!\V3 
S2 74 
S2/S 

v/6 
s? /« 
:.; \ho 

5281 

V83 
5284 
5285 
5286 



RO/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 

5 incr COUNT from 1 to RP .LIN do 

4 begin 

4 .DST ADDR - . . SRC ADDR i 

4 DST ADDR » .DS1 ADDR * ?j 

4 SRC. ADDR a , SRC. .ADDR * 2j 

3 end: 

3 TN..IODQ C .R„IN0EX)i 

2 endi 



if .P INDEX geq 
then 

PUT.PKT C .P^lNDtX); 

end; 



11 Apr- 1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX -H Blisr, 16 V4.0 574 
1)ISI<*USER2:IPUWKRS]/RQAU0.BL2|6 



SEQ OV^'i 
Page 108 
(49) 



! COPY 1 WORD 

! ADVANCE DESTINATION ADDR 

! ADVANCE SOURCE ADDR 

! COPY LOOP 

? PUT RETPKT INDEX INTO IODQ 
i IF RETPKT WAS ALLOCATED 



! IE ASSOC CMD PKT WAS M)UND 
! RETURN COMMAND PACKET TO POOL 
! ROUTINE DUP-RSP 



000000 00413 7 



000004 
OCOOVO 

0000 l f ' 
000014 
000020 
000024 
0000?n 
000034 
000056 
000044 
000046 
000052 
000054 
000060 
00006? 
000070 
0000/? 
0000 /6 
000100 
000104 
000106 
000110 
000114 
000116 

00012? 

0001?4 
000150 

0001 *4 
000140 
00014? 
000144 
0001S0 



013/01 

005002 

010246 
012/46 
004/3/ 
022620 
026061 
001024 
026061 
001020 
026011 
001415 
105/60 
100412 
12602/ 
001006 
1 OS/01 
100003 
01023/ 
000406 
00520? 
02022/ 
003/36 
005 /J / 
002013 
016146 
012/46 
01? /46 
010600 
10441 / 
OK" /On 
00020V 



OOOOOOG 
OOOOOOG 

000106 

OOOOOOG 

0000 1?G 000012 

000014G 000014 

OOOOOOG 

000022G 

00001 1G 000002 

000022 

OOOOOOG 

000015 

OOOOOOG 

OOOOi? 

OOOOOOG 

000002 

000006 





.SBTTL 


DUP. RSP RORX INTERRUPT SERVICE 


ROUTINES 


DUP 


RSP;: 












JSR 


R1.5SAVE3 




• 






MOV 


IPKT.ADDR.R1 




! 






CLR 


R2 




{ 


COUNT 


1*: 


MOV 
MOV 
JSR 
CMP 


R2, (SP) 
<U06, -(SP) 
PC, 81 $MUL 
( SP ) f , ( SP ) ♦ 




J 


COUNT,* 




CMP 


MSCP,PKT»1?(R0), 


1?(R1) 








tiNE 


2$ 










CMP 


MSCP.PKT»14(R0) 


14(R1) 


i 






BNE 


2$ 










CMP 


MSCP.PI<T(R0),CR1) 


; 






BEQ 


2$ 










TSTtf 


MSCP.PKT*2tHR0^ 




i 






NMI 


?i 










CMPB 


MSCP.PKT*11(R0) 


02 


i 






BNE 


2$ 










TSTR 


??(R1 ) 




i 






UPL 


?$ 










MOV 


R2, P. INDEX 




J 


COUNT , ♦ 




BR 


3$ 




• 




?$: 


INC 


R2 




t 


COUNT 




CMP 


R?,#H 




t 


COUNT.* 




Bl.E 


15 










TST 


P. INDEX 




1 




3*t 


HGE 

MOV 
MOV 
MOV 


41 

i.HRl ), (SP) 
#DBM10H. (SP) 
«?, (SP) 




! 






MOV 


SP.RO 




1 


SP,* 




TRAP 


1/ 










ADD 


•»>.SP 




■ 






RTS 


PC 




i 





* I'M 

.'4.. I i 

524*. 
5? 4 5 
5?45 



!.?4». 

l .?a: 

5?48 
5?4*» 
S?S0 

5?53 

5? 1 ? 



.?60 



5J5S) 



I 1 



/RQAN5 

V01. 6 

000 1 52 

000156 
000 16*? 
00016*1 
000166 
000170 
000172 
000176 
000202 
000204 
000206 
000210 
000214 
000220 
000222 
000226 
000232 
000236 
000240 
000244 
000246 
000250 
000252 
000254 
000260 
000264 
000266 

0002 /O 
0002/4 
000276 



01374b 
004737 
010001 
005726 
005/01 
00200 7 
012746 
012 746 
010600 
1044 1/ 
000424 
013702 
062702 
010146 
012/46 
004 737 
062700 
010003 
012/00 
012223 
005300 
001375 
010116 
004/37 
013700 
002403 
010016 
004 737 
022626 
000207 



RD/WX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 



000 1 04 ' 
OOOOOOG 



OOOOOOG 
000001 



OOOOOOG 
000006 

000054 

OOOOOOG 

OOOOOOG 

000026 



OOOOOOG 
OOOOOOG 



OOOOOOG 



4$: 



55 



6$ 



7$ 



as 



11 -Apr -1984 11:08; 35 
11 Apr 1984 11:08:22 



SEQ 0400 
VAX-11 Blisy-16 V4. 0-579 p 0Q e 169 

DISKSUSER2: [P0WERS)/RQAD0.BL2;6 (49) 



MOV 


1CTLR. -(SP) 


JSR 


PC.GEf.RETPKT 


MOV 


R0.R1 


TST 


(SP)* 


1ST 


Rl 


DGE 


5$ 


MOV 


0DBM112, -(SP) 


MOV 


♦1. (SP) 


MOV 


5P.R0 


TRAP 


17 


BR 


7$ 


MOV 


1PK1 .AD0R.R2 


ADO 


06, R2 


MOV 


Rl.-(SP) 


MOV 


#54, -(SP) 


JSR 


PC.BLWUl 


ADD 


ORETPKT.RO 


MOV 


R0.R3 


MOV 


026.R0 


MOV 


(R2)f ,(R3)» 


DEC 


RO 


BNE 


6$ 


MOV 


Rl.(SP) 


JSR 


PC.IN.IOOQ 


MOV 


P. INDEX, RO 


BL T 


8i 


MOV 


RO , I SP ) 


JSR 


PC, PUT. PR T 


CMP 


( SP ) • , ( SP ) • 


RTS 


PC 



*.R. INDEX 

R . INDEX 

SP,* 

* . SRC . ADDR 
*. SRC. ADDR 
R. INDEX,* 



♦,DST , ADDR 

♦.COUNT 

SRC. ADDR, DSr, ADDR 

COUNT 

H, INDEX.* 



5264 



5266 



5264 
5269 



52/ 







52/4 
52 ?? 

52 '9 

52 A 3 

52H5 

52 <4 

5221 



Routine Sl/e: 9b wordy, Routine Bo«jc: SCODE J 
Ma\imum stock depth per invocation: 9 words 



24446 



5288 1 



m i _ 



7RQAM3 




VOL 6 




; 5289 


1 


; 5290 


1 


i 5291 


1 


; 5292 


1 


; 5293 


1 


; 5294 


1 


; 5295 


1 


; 5296 


1 


5297 


1 


; 5296 


1 


5 5299 


1 


; 57.00 


1 


; 550 1 


1 


j 5502 


1 


; 5505 


1 


; 5504 


1 


j 5505 




i 530b 


■ j 


; 550/ 


2 


; 530M 


2 


; 5509 


_ . 


j 5510 


2 


; 5511 




j 5312 


3 
1 . 


5 5513 


"> 


; 5314 


■_> 


5315 


"1 

I-. 


5316 


< 


; 5517 


3 


: 5318 


3 


; 5519 


5 


; 5320 




: 5321 


2 


; 5322 


2 


; 5323 




; 5324 


"i 

_.. 


; 5525 


-> 

» . 


; 5526 


■ ) 


; 532/ 


> 


; 5328 


■ 1 

r 


; 5529 


3 


j 5330 


2 


; 5531 


3 


; 5332 


.3 


; 5335 


3 


; 5534 


3 


j 5335 


5 


; 5356 


,'j 


j 5 33/ 


2 


j 5338 


1 



RD/RX EXERCISER 

PORX INTERRUPT SERVICE ROUTINES 

GLOBAL routine FATAL..ERROR ; revalue * 



) 



ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX -11 Bliss -16 V4.0 579 

DISK JUSER2 : [ POWERS )ZRQADO . BL2 j 6 



SEO 0401 
Page 1/0 
(50) 



: SAVE PRL -INTERRUPT CURRENT UNIT NUMBER 
C_ERR_HRD] ♦ 1} 



THIS ROUTINE IS CALLED BY THE INTERRUPT SERVICE ROUTINE (AZINT) UPON 
DETECTING AN UNRECOVERABLE ERROR THROUGH THE DEVICE'S SA REGISTER. 
ITS PURPOSE IS TO CLEAN UP DEVICE DATA IN THE "DRIVE*" PORTION OF 
THE EXERCISER, AND TO INFORM THE "PROGRAM" PORTION UF THE EVENT VIA 
RFTURN PACKET. 

IMPLICIT INPUTS: 

ICTLR - INTERRUPTING CONTROLLER NUMBER 
IDCT_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S DCT 
ICST.ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S CST 
IRDRX_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S IP REGI5TER 



begin 

local 

index : signed word. 
U„SAVE : word; 

SA_RF.G - . IDCT_ADDR ( SA SAVE ] j 

ILSAVF. • .L*LUN; 

C_ERR„TBL [.ICTLR, C.ERR.HRD] - .C_.ERR_.TBL [.ICTLR. 

if ,APT MODE 
then 

begin 

.MAIL„BOX_TESTNUM * 1. 
.MAIL..BOX..SUBTST - 0} 
end: 

L*LUN - .ICST AODR [QF UN ♦ OF„DATA, D UNIT); 
ERRDF (14, EGD 14, EMS .l4)j 
L $LUN .U. SAVE j 
DRV. CTLERR C. ICTLR)} 

if (index - GET RETPKT C. ICTLR)) lss 
then 

PRINTF (DBM18) 
ci_e 

begin 

RETPKT [.index. CONIDl - C1D DRIVER. 

RETPKT [.index, MESTYP1 - MT FATAL} 

Rt-TPKf [.index, CTLR] « .ICTLR} 

IN.IODQ ( . index)} 

end} 

end; 



SET CURRENT UNIT 10 FIRST IN CONTROLLER 
FATAL CONTROLLER ERROR 
RESTORE PRE INTERRUPT CURRENT UNIT 
CLEAN UP DRIVER DATA FOR CONTROLLER 

TR1 TO GET A RETPKT; IE KAtlURE 

"FATAL..ERROR: RFTPKT NOT AVAILABLE" 

IF RETPKT WAS Al LOCATED 

SET CONNECTION TO TO "DRIVER" 

FATAL ERROR 

CONTROLLER NUMBER 

LOAD RETPKT INDEX INTO I'ODQ 

IF RETPKT WAS ALLOCATED 

ROUTINE FATAL ERR 



.SBTTl. FATAL. ERROR RDRX INTERRUPT SERVICE ROUTINES 



N' 



7RQAM3 
V01. 6 



000004 
000010 
000016 
000022 
000026 
000030 
000034 
000042 
000044 
000052 
000056 
000062 
000066 
0000/0 
000074 
000100 
000102 
000104 
000106 
OOOUO 
000114 
000120 
000124 
000130 
000134 
00013o 
000140 
000144 
000150 
000152 
000154 
000156 
000160 
000164 
0001 70 
000174 
000202 
000206 
000212 
000216 
000220 
00022.' 
OOO.Vh 
000230 



RD/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 



;;> 



1.1 -Apr- 1984 11:08:35 
ll-Apr-1964 11:08:22 



SEU 0402 
VAX-11 Bliss-16 V4.0 579 Page 1/1 

DISK $USER2 : [ POWERS )ZRQAD0 . BL2 j 6 ( 50 ) 



000000 004137 OOOOOOG 



013700 

016037 

013701 

013700 

006300 

105260 

032737 

001405 

012777 

005077 

013700 

016002 

000302 

042702 

010237 

104455 

000016 

OOOOOOG 

OOOOOOG 

010137 

013746 

004 737 

013716 

00473/ 

010001 

00200 7 

012/16 

012746 

010600 

10441/ 

000424 

010116 

012746 

004 73 7 

062 700 

112 760 

013/02 

042 702 

112710 

150210 

01011b 

004 73 7 

0.'2*>2r> 

00020/ 



000100' 
000002 
OOOOOOG 
000104' 

OOOOOOG 
000001 

000001 
001166* 
000076' 
000006 

17 7760 
OOOOOOG 



OOOOOOG 

000104' 

OOOOOOG 

000104' 

OOOOOOG 



OOOOOOG 
000001 



000054 

OOOOOOG 

000002G 

000003 

000104' 

17/760 

000060 



OOOOOOG 



OOOOOOG 



001162 
001164 



000001 



FATAL .ERROR; : 




JSR 


R1.ISAVEP 


MOV 


idct.addr.ro 


MOV 


2CR0),SA,REG 


MOV 


EJLUN.R1 


MOV 


ICTLR.RO 


ASL 


RO 


INCB 


C.ERR.TBL(RO) 


BIT 


01, APT. MODE 


BEU 


1$ 


MOV 


41.3MAIL.B0X.TESTNUM 


CLR 


SMAIL.BOX.SUBTST 


l$j MOV 


TCST.ADDR.RO 


MOV 


6(R0),R2 


SWAB 


R2 


BIC 


$177760, R2 


MOV 


R2,l.$LUN 


TRAP 


55 


.WORD 


16 


.WORD 


EGD.14 


.WORD 


EMS. 14 


MOV 


Rl.LSLUN 


MOV 


ICTLR,-(SP) 


JSR 


PC.DRV.CfLERR 


MOV 


ICTLR.CSP) 


JSR 


PC.GET.RETPKT 


MOV 


R0.P1 


bc;i: 


2* 


MOV 


0DBM18.CSPJ 


MOV 


l l, (SP) 


MOV 


5P.R0 


TRAP 


17 


BR 


3i 


a* i mov 


Rl.(SP) 


MOV 


054. (SP) 


JSR 


PC.BLiMU. 


ADD 


ORETPKT i2.R0 


MOVB 


03.URO) 


MOV 


ICTl R.R2 


BIC 


*1 '//60.R2 


MOVB 


060. (R0> 


BISL 


H2.1M0) 


MOV 


Rl.i SP) 


JSR 


PC, IN. UV2U 


3$: CMP 


( -iPn.tSP). 


WT\ 


PC 



; +.U.SAVE 



U.SAVE,* 

♦.INDEX 

SP . * 
INDEX,* 



; INDEX, ♦ 



5289 
5311 

5312 

5313 



5315 

5318 
5319 

5322 



5323 



5324 
5325 

5327 



5329 



532 ' 
5332 



5*34 



1 ■ f , \ 



Rout ne SI/*: 77 words, Routine tf«s« : $CODE* 
Ma\'*mum stack depth per invocation? / words 



24 746 



.*RQrtN< 
VOX. 6 



S<40 
r > 54 1 

S54* 
•i544 
M4S 

S54t. 
V<4' 

!,MH 

*i«V 
r »V.l 
'•<V 
•,V»* 
'.•■.S.i 
MV. 

«.V, ' 

■i$V* 
E » 5#.0 
MM 
■»**.■ 

■• «.*,♦, 
!.V. ' 
SV.m 
Mvi 
'.* \> 

v<a 

v. < v 



r,h. 



HO l*.X l M.RCISE.H 

RORV INTt RRLUM SERVICE ROUTINES 



ill UBAl. routine POM CRING : novalu« * 



1 1 Apr r»84 1 1 : OH ; ^ r . 
11 Apr l f iH4 UiOBi^ 



VA* 11 nifft» 1'. V4,0 V* 
DI?>K»USF.Ri>i[PUWl-R f »]/RaAOO,Hi 



lb 



'jEQ 04 0'. 
Page 



1 /.-' 



^1; 



THIS ROUTINE IS CALLED BY THE RDRX INTERRUPT SERVICE ROUTINE (A/INT) 
TOR EACH DEVICE INTERRUPT EXCEPT DURING INITIALISATION OR FATAl ERROR, 
ITS PURPOSE IS 10 SCAN THf. DEVICE'S COMMANO RING ANO CMF.CK t OR ANi 
COMMANO SLOTS THAT HAVE. BEEN 'TAKEN' Br THE CONTROLLER. SUCH SI UP, 
HAVE BEEN RETURNED TO THE HOST, INOICATED By A /FRO 'WNERSHl^ MM. M)R 
EACH SLOT THAT HAS BEEN Rf TURNED TO THf HOST, THt CRiNCi COL^NT IS 
DECREMENTED. ANO THE CR POLL ADDRESS IS ADVANCED TO THE NEXT SLUT IN 
THE COMMANO RINCi. 



IMPl IC1T INPUTS: 

ICTIR INTERRUPT INC, CONTNCXLER NuMHt.R 

IDCT ADOR ADDRESS 0* IN TF RRUP T INT. CONTROLLER' 

1C0M,ADDR - ADDRESS Of INTERRUPTING CONTROLLER' 1 



beg! n 

while ((.IDCT ADDR (CR1NG CNT ) gtru 0) and 

not (BIT TST (( .IDCT ADOR { CR POi I ) • iM. E D OWN ) i ) do 



bea> n 

IDCT ,ADDR TCRINt, CNT) • .IDCT ADDR (CRTNO CNf] 

IDCT ADDR (CR POI I ) • .IDCT ADDR ( CR POI L ) • 4, 

If .IDCT ADDR (CR Pa I ) gtr» .IDCT ADDR 1 CR E NO } 
then 

IDCT. ADDR (CR POLL) • ,IOCT ADUM [CH HEGlj 



ll 



end j 

lCO M _AUU*t ICHD IN) ] 
end} 



Oj 



DC! 
:j CUMH AREA 



• WHU E. * Of COMMANDS IN CHI NO - AND 
! CURRENT SLOT T, HOST UwNE D 

• DECREMENT o CMOy IN CR1N0 

! ADVANCE TO NEXT MOT TO POl I 

• If Bt U)NO END Of RIM, 

! SET POINTER TO TUP Of CR1N0 



! DEAR COMMAND INTERRV.'PT WORD IN RING HEAQLR 



t 1 00000 004 H / 0000000 



' >o0004 

O00014 
O0001*. 
0000. '0 
woOO.v 
0000,^1 

oooo v 

UOOC V. 
I )0004 . ■ 
00004 4 
nO004f. 
OOOOV 
OOOOUfc 



OH.'Ol 
01.» 'O' 1 
0>>010? 

iosai 

0014.V 

oimoo 

OlfcOOO 
04? /OO 
0/00.'.' 
0014 11 
10SM1 

tv..'a.' 

O.'l.M 



O00100' 

000016 



OOOO It' 
OOOOtV 

o / ; / : / 

I 00000 



1100004 

0000 u 



.SB! TL 

PULL.CRXNl,: : 
JSR 



PiUl.CHlNt. HOP* LNTIRRHPI SLRvlCE ROUTINES 



Hi 



MOV 

MOV 

ADD 

!s?El 

E»EO 

MOv 

MOV 

EMC 

CMP 

MEu 

DE Cfi 

ADO 

CMP 

UL U*a 



Hi. ISAVE .' 
IDCT .AD0R,W1 
• Ui.Ri 1 
RL.R? 
i Rl ) 

It. HI ) , Mi) 
.'< HO ),MO 

0.' '.SS'.HU 
H(S» 100000 

I Rl » 

04 .O*,' » 

1 HJ>a<.HHil 

u 



s.»v« 
«". ** * 



^S«>^ 



VOl.t* 

iWOt-t. 

oooov 

0000 V 



000«* r .4 

01 *:oo 

00!<0*0 
000/0.' 



HO W\ I M WC1MH 

RDRV INTl RRUPT Hf.HVICt 

000010 

0000 *4 
000004 



routine; 



/5 



MOV 
BW 
MOV 
Ct R 
WIS 



I ko.it 'ne ' '/e: </ wgr d*. , RoutirtC H»*i* : $CUDti 

j Mavtmgm otacW cteot* f>tr invocation: 4 vjor*cf'J 



11 
11 



Apr 

Apr 



10CR1 ),(«.») 

1* 

I COM, AOUH, HO 

4 (HO) 

PC 
J5*KK> 






1 1 iurt- V. 
UiOduV 



VAX 11 HI. ;<)«i 1*. V4.0 *./'* 

( ini<$UStf<«>itP0WhR f j]/RQADO.ULifi6 



StQ 0404 
Page 1 / 'i 

% ',', / 
S3 39 



Ij 



E 



/RUAMJ 

UU,t- 



SV4 

S5.'S 
V5 '*. 
S 5 ' .' 
S< *M 
SV'i 
S5M0 
S5;*l 
! 5tV 
Y'.M 

S5H4 
M8S 

S58'» 
M'>0 
W»l 
V'.VV 
. *^H 

s s«*s 

SV>f, 

s.v«; 

S400 

:>4oi 

S4lV 
S40* 
S404 
S40S 
S4o»i 
MO .' 
S4urt 

-no 

*..4U 
"»41.» 
S41 % 

S414 

!>4l l , 
S41r, 
!»4 1 / 
MlH 
S41'# 
'>4 4 '(j 
S4/1 
'.4 t y 
S4. 1 '. 
'..4. "4 



HO MX EXERCISER 

RORX INTERRUPT SERVICE ROUTINES 

GLOBAL routine POLL.RRING i novalue • 



1 1 Apr 1<*H4 U :OH: V, 
XI Apr -1904 U:08wV 



VAX H HI !«•» I'. V4.0 S/'> 
DISKJUSERiM POWERS l/HQADO.EK? 



f, 



StU 040S 

Poge 1 >4 



THIS ROUTINE IS CAt LI D B> THE RORX INTERRUPT SERVICE ROUTINE (A/INT) 
FOR EACH DEVICE INTERRUPT EXCEPT DUPING INITIALISATION OR frtTAl E RROH 
ITS PURPOSE IS TO SCAN THt DEVICE'S RESPONSE RIN(i ANO CHf CK » OR AN! 
MOTS WHICH HAVE BEEN RETURNED TO THE HOST (OWNERSHIP BI ' • 0). E OR 
EACH SUCH SLOT, JH^ ASSOCIATED MESSAGE IS PROCESSED HASH) UN ITS 
CONNECTION 10 (DISK OR DUP ) . AETER PROCESSING, THt MESSAGE PACKET 
IS RE ■■ INITIALIZED AND RETURNED TO THE CONTROLLER (OWNERSHIP HIT SET 
TO 1). 



IMPLICIT INPUTS: 

ICTIH NUMBER Of INTERRUPTING CONTHUllER 

IDCT ADDR - ADDRESS Of INTERRUPTING CONTROLLER'S 



OCT 



begin 



while not (HIT„TST I {.IDCT ADDR ( HR P )l M » «M , ED..OWN)) do 
b*gin 

IPKT AODR - . . IDCT ADDR I RR POl I 1 - iO| 

IE NOT (.IPKT ADDR [CONNID) EQl CID DUP ^ ! 

TKN ! 

(CREDIT EMI • .CREDIT UAl » .IPKT ADDR I CRE D II S 1 1 ) j 

JIT WAS NOTICE THAT DUP WAS SEND I NO BACK CREDITS WHICH IT SHO'.H D NUT, 

tieiectoneu ,IPKT ADDR ICONNIO) of 



J WHli E U - o 

» ADDRESS OE RESPONSE PACKET 

.7/ 

» / • 

• 4 t 

■ f I I 

,4*4 



set 

I CID ni'iK ) ; 

[CID DUP) : 
[otherwise* : 

tfflMj 



DISK R\f ( >i 

OUP RSP I ); 

PR1NTE' (DUM.'O, 



IPKT ADOR I CONNID), 



IRDRx AtlOM ) j 

J "HAD CONN ID * XXXXX FROM \\X\\x 



IPKT ADDR (MSGLENl « MSG I EM • ,' i J Rf INI T Pk 1 MHO'.; MEvAgi. ItN.-V 

IDCT ADDR (RR POl I ] * .IDCT ADDR t RR POl I I • k »j ! ADVANCE TO HI 0."«DE M WORD JE RING i< 01 

. U)CT,ADQM [RR POi. I.) • .IPKT *DDR [PK| HIIj ! HE TURN .1 01 \0 CON'RUUER 

.'OCT ADOR (RR POl 1 ) • . . IOC T A[){)R ( RR POl I J or El) OWN or ED ELAGi ? OWNERSHIP U\) 

i'UCT ADDR [RR POl I ) - .IOC! AODR ( RR Pill I ) . ,'j « ADVANCE U) N l * T RUING ,1 OT 



If .IDCT ADDR [RR POl I ) gtr* . IPC T ADDR i RR END] 

then 

IUCT_ADDR IRR POl I ] * . 10CT AQUR I RR EiUi ) | 



! U HE iGNl) END 0> WINS 
! l»CU U) TOP OE Ri\G 



y 



/kuam5 

VOL 6 



S4/6 5 

S4." / 

S4/H .- 

M.w / 

S4 50 1 



HO' MX J XI MCI SIR 

RDRX INTtRRUPT SKRVICF. ROUT INKS 



end] 

ICOM..AODR IRSP INT] 
end; 



Oj 



11 Apr- l'#H4 11:0H: V_i 
U Apr-19H4 UjOtf;// 



3£G 04 Of. 
VAX 11 HI law 1*. V4.0 S 7<* P aQ « \ r\ 

DISK HJSFR/: ( POWERS j/RQAD0,BL<>;6 ( *>?. ') 



! WHTI F I OOP 

! CI. R RFSPGNSF INTtRRUPT WRD IN RING HEADFR 



000000 004 1 5 / oooooot ; 



SHl'Tl. POU .RRINd RDRX INTF.RRUPT SFRVICF ROUT INF '.i 



L'0i.>004 
O00010 
000014 
0000 1* 
OOOO// 
0000/6 

oooo v 

000054 
00004.' 
0000 bO 
O000S4 

oooo^i 

00006/ 
000066 

0000 70 
0000/4 
000 1 00 
0O0104 

0001 Of. 
0001 10 
000U4 
0001 If, 
0001/.' 
O001/4 
000 150 
"00 15/ 
000156 
O00140 
000144 
000 ISO 
000 IS/ 

000 iv, 
< >O0 1 60 
OO0U.4 

0001 7/ 
0001 76 
000/00 
000/04 
O00/10 
000/ 1#, 

U00//4 
O00,'5o 
000^54 



015/01 
06/701 
01 1100 
1 6000 
04/ /OO 

o/oo/ ; 

001S04 
01/157 
lb/ 75/ 

015/00 
OOSOO/ 
iSbOO/ 
0/0// / 
001406 
11600 5 
04/ /O 5 
060 55/ 
OOS /O/ 
00100 5 
004/5 / 
0004/1 
0/0.'// 
00100 5 
004 75/ 
uuti4 \ 5 
01 5/46 
010/46 
01//46 
01/ /46 
010600 
10441/ 
06/ /06 
015/00 
01//60 
015/0/ 
010/01 
06/ 701 
06/ /1 1 
01^0/1 
OS." 7/1 

06.* n l 
o/i u./ 

10146/ 



000 100 ■ 

000014 

00000/ 

o 7 / ; / ; 

100000 

OOOOOO OOOOOOt. 
00001/ OOOOOOG 

OOOOOOt, 

oooo u 

00000/ 
000010 

1 / / /60 

OOOOOOli 



000000V 
00000/ 
0/4446' 
OOOOOOG 

OOOOOOCi 

000005 



000010 

ooooock; 

OOOO 74 000006 
000100' 

000014 
00000/ 

00000/ OOOOOO 
14 oooo OOOOOO 

OOOOO.' 

OOOOOO 



PUIL.RRINO: ; 
JSR 

MOV 
AOO 

1$: mov 

MOV 

mc 

CMP 

ut.u 

MOV 

sub 

MOV 

CLR 

HI SB 

CMP 

RFU 

MflVH 

HIC 

ADO 

/$: Ts T 
BNt 
JSR 
BR 

3$: CMP 
BNt 
JSR 
BR 

4*: MOv 
MOV 
MOV 
MOV 
MOV 
FRAP 
ADO 

*jjj MUV 
MOV 
MOV 
MOV 
ADD 
ADO 
MOv 
111'. 
ADO 
CMP 
UUOS 



Rl , SSAVf 5 

IDCr.AODR.Rl 

tt 1 4 ♦ H I 

(Rl >,R0 

/(RO).RO 

077777, RO 

RO.O 100000 

6$ 

iWCRl ). IPKT . ADDR 

Ol/.IPKT.AODM 

IPKT, ADDR, RO 

R * 

IHROJ.R/ 

R/ , 0? 

?• 

10(R0),R5 

01 7 7. 60, R5 

R5.CRFDIT.HAl. 

R/ 

5t 

PC.DISK.RSP 

M 

R/.O/ 

41 

PC.DUP.HSP 

St 

IRORX.AC'R. (SP) 

R/, ISP) 

ODHM/O, ISP) 

05, (SP) 

SP.WO 

1 / 

•10 t SP 

IPK I .ADDR, MO 

• 74,6c RO ) 

IDC1 .AODR.R/ 

R/.R1 

•14 ,R1 

0/' ,IHI > 

/l Rin.ijOiRl ) 

if 4O0OO,nJ0< RO 

•/ . I HI ^ 

(Rl),blH fc O 

H 



S 5 / 5 
S595 



J SP,* 



V59 ' 
r >400 

S40/ 
S407 



M04 
S40^ 



S4/a 
S4 :. i 



Mi 



'..1 1:* 

•I 1 ■ » 

M// 



{) 



,'WUAM< 
V01 .^ 

OvHV44 



01M1 
000tm4 
01 J/OO 
OO'»0t>O 



RO H\ J Xt Ml I St R 

RORX INTERRUPT SKRVIO 

000004 

0000 /4 ' 
000006 



ROUT INKS 




11 Aj 




MOV 


4(R?),(R1> 




Fin 


1* 


h%i 


hov 


ICOM.AODR.RO 




ci n 


ru'RO) 




R T S 


PC 



11 -flpr-l'#H4 1 1 j OH: *•'» 
11 Apr 19H4 ll!Od:tV 



Routine l ".!/e: H / words,^ Routine Base: tCOOEi 
MdvTrnum stnck depth per invocation: 10 Nordu 



l'S300 



'jf-.U 040/ 
VAX 11 HI! if, 1>. V4.0 'W.' Page I "=, 

l)ISKIUbLK«':[PCJWI : R , i]/RQAD0 1 BL2|6 ( !>;.' ) 



, »4,'*'i 



M31 1 



/RUAM5 
V01,t> 



'.4 5/ 



S4 54 
S4 5S 

!>4 5f> 

S.i f , ; 

M <H 
S4 '■■» 
S440 
S441 
S44/ 
M4< 
S444 
!»44S 
S44h 
S44 * 
!»44H 
!>44*i 

r»4so 

!j4M 

mv 

S4Y5 
S4S4 
S4SS 
N4'it* 
S4S,' 
S4'.H 

S4fi0 

1 j461 



RD, RX I XI RCISER 11 -Apr -I'M 11;()H:V:. 

RDRX INTERRUPT SERVICE ROUTINES 11 Apr-19H4 11:08:^ 



GLOBAL routine DISK RSP : novalue =• 



THIS ROUTINt IS CAl L t D G> POLL RRING I OR EACH RESPONSt MLS'.AUE 
WHICH HAS A CONNECTION ID INDICATING A DISK MSCP ORIGINATOR 
U.K. All. I XCf'PI DUP RESPONSES). ITS PURPOSE IS TO PASS 
CONTROL TO THt APPROPRIATE ROUT IN* BASED ON TH| Ml .SAGE TrPI 
I'lHO (SEQUENTIAL. DATAGRAM, OR CREDIT NOTIFICATION). 

IMPt.XCn INPUTS; 

1PKT ADDR - ADDRESS 0> MSCP PACKS T CONTAINING Rt SPONHE 

MESSAGE 



VAX -11 1)1 Is*. \t, V4.0 './«* 

DISK $UStR<>; I POWERS 1/RuADO.Bl ?,6 



SEU 0408 
Page 1 / / 



selectoneu , IPKT..ADDR IMSGTyP] of 



[MT SEU] : 
IMT ()(,) : 
[otherwisel j 



SEQUEN 1 )j 
DATAGM ( ); 
PR1NTE IDUM/1» .1PKT ADDR I MSliMP ] ) I 



! "MESSAGE TvPf XX RECEIVED 



OOOOOO 01014h 



00000/ 
'>0(»00tj 
00001/ 
4)00014 
OOOOlt. 

4)4)00/0 
<H)00// 
4)000/* 

000050 
O00O54 

oooo u\ 

O0004/ 

000044 

oooc.o 

t)00O*i/ 
O00OS4 
l)O0O#»O 
0000fi4 



015/00 
1 W',001 
OOt./Oi 
OOK'Ol 
00*>/01 
OOfc/01 
04/ /Ol 
00100 5 
004 / *> I 

0004 i ; 

0/01/ / 
00100 5 
004 : 5 7 
0O04 1 ! 
01014*. 
01//4ti 
oi//4*» 
OlOdOO 



OOOOOOCj 
000010 



1 7 / /M) 
000000 V 

ooooo: 

000000V 



OUOOUOG 
00000/ 



.SB Ml. 
DISK.RSP: : 

MOV 

MOV 

MOVH 

ASM 

ASP 

ASM 

asr 

BIC 
BNl 
JSR 
BR 

1$; CMP 
BN l 
JSR 
BR 

/*: MOv 
Ml IV 

Mnv 
MOV 



DISK .RSP RDRX INTERRUPT SERVICE RO' 'TINES 

Ml, (SP) ; 

iput.addr.ro j 

10(R0),R1 

Rl 

Rl 
Rl 
Rl 
01 /'//#.0,M1 

n , 

PC, 'it OUt N 

" i 

MI.»1 i 

. J 

PC , DATAGM 

<* ; 

Rl, I .P > j 

0DBM/1 , iSP) 

o.: t isp) 

SP.RO j hP,* 



V.4 54 
'•451 



V.4' »> 

S4S1 
\4V< 



S4 : 
54^0 



vol .*. 

O00O6* 

oooo ;o 
o-w/4 
oooo /6 



10441 f 
06*? .'06 
Ol.VOl 
000. '0'/ 



Ml)- RX I XI hcim r 

Rl)N\ INIbRRUPT SKRVlCh HUUTINhS 



000006 



*i 



H 1 f , 



U -rtpr-1'JM 11 :0H; * r . 
11 Apr -1^4 lliOB:i?2 



TRAP 


1 / 




ADD 


06, SP 




MOV 


tSP)* 


,R1 


HT ( ". 


PC 





; Ho*jt "ne M/*: V' words. Routine Un»*e : *CUDL* * c?!^i>i>6 

; Mavimum stack depth per invocation: 6 words 



VAX 11 HUtiH 1*. V4.0 ',/«* 
OrSK$UStR3 5tPOWfeRS]ZRQAUO,BLdj6 



SLU 040'* 
Page 1 /8 
f S5J 



b4 34 



l.iW..' 1 
M» >< 1 
^>4o4 i 



/RUAN5 
VOl. 6 



S4t*S 
S4nh 
'Mb'? 

Mr* 1 * 

'M /0 

m ; i 

M V 
S4 ; 5 

M /4 
M/S 
M /t'> 
M ■' * 
M /H 
M .'*# 
S4M0 
M81 
MtV 
M83 
l >484 
MttS 
Mttb 
S4 8.' 
M8B 
MB'* 
M^O 
S4 l U 
S4 t # l ' 
M9J 
M'*4 
'.>4^'i 
M l W» 
S4^.' 
Mwrt 
M 1 *'* 
SSOO 
SS01 

sscv 

S r iO < 
*>S04 
SSO'i 
SSO*, 
SSO / 
SS08 
VtO** 
VilO 

••'ill 



.1.1 



1 '. 



V»14 

v.u. 

SSI 7 



RD'RX I XERCIStR 

ROHX INTERRUPT SERVICE ROUTINES 

GLOBAL routine ShUUEN : novalue - 



1 1 Apr l l *84 ll:0«j.SS 
IX App-X9B4 11:08:22 



VAX 11 Ml Ififi U, V4.0 S/'# 
DI5K$USER2i[P0UKRS]ZRQAU0.HL2i6 



SEG1 04 10 
Page 1 /V 

(54) 



THIS ROUTINE IS CAl LED RY DISK RSP TOR EACH DISK MSCP RESPONSE MESSAGE 
WITH THE "SEQUENTIAL" MESSAGE TYPE, ITS GENERAL PURPOSE IS TO COPY THE 
CONTENTS OF THE MESSAGE PACKET INTO A RETURN PACKET SO THAT THf- 
PACKET CAN BE RETURNED 10 THE CONTROLLER. IN ADDITION. 



ir TKU COMMAND WAS AN I/O TRANSFER (READ, WRITE, 
FIEIDS OK THF COMMAND PACKET ARE COPIED INTO THE 



OR ACCESS), THEN SOME 
RETURN PACKET. 



IMPLICIT INPUTS: 

ICUR INTERRUPTING CONTROLLER NUMBER 

IPKT_A0OR - ADDRESS UK MSCP PACKET CONTAINING RESPONSE 

begin 

iocol 

P INDEX : signed word Initial (-1), 

R INDEX : signed word, 

SRC AODR. 

DST ADDR, 

R_ADDR : ref block [RP I EN, word] field (RP. FIELDS) j 

incr COUNT from to PKT_CNT 1 do 

if C.MSCP.PKT (.COUNT. CRN LO] eql . IPK1 ADDR [CRN 1.0]) t\n<i 
C.MSCP.PKT [.COUNT. CRN HI] eql .IPKT ADDR [CRN HI]) and 
(.MSCP. PKT [.COUNT. PKT LO] neqa .IPKT ADDR ( PK r 10]) and 
((.MSCP PKT [.COUNT, OPCOOE ] and OP t NO ) oe<j OP \ NO ) and 
(.MSCP PKT [.COUNT, MsGTyP) eql MT St Q ) and 
((.IPKT, ADDR [OPCOOE] and OP IND) eql OP END) and 
(.PKT. USE (.COUNT] eql .ICTLR) 
then 

beg 1 n 

P INDEX • .COUNT; 

e *> i t 1 OOp } 

end; 

if .P INDEX lss 
then 

b«q i n 

PRINTS (DUM10B, .IPKT .ADDR (CRN HI], 

return; 

ends 



! ASSUME NO ASSOCIATED COMMAND PKT 



! U THIS IS THE ASSOC CMD 



IPKT ADDR (CRN LO] )j 



it .MSCP PKT [ .P INDEX, OPCODE] neQ 1.1PKT AODR [ OPCOUt ) «nd (not '.U' INI))) 
then 



.» St T PKT NLfrWR 

! U COMMANt' NOT MU.'NP 

! UNKNOWN COMMAND WEF. NUMBER 

' If OPCOOf MISMAI."*m 



PRINTK (DBM111, .HSCP PKT [ .P INDEX, OPCODE). .IPKT ADDR [OPCODE], . IP"<T ADDR [CRN HI), . ipi< ' AlWH ; C^\ 

if (i . IPKl A[)()R [OPCODt ] eql (Or Hi) or (H> t Nt> > ) or 

i.J^Kl m)[)H llHTlMH ] eql kUK> WRl or OP I NO))) And 
((.IPKT AODR [STATUS CODE) eql ST SUC ) and 



J'lt> 



/RUAM< 




V01.6 




; !»MH 


^ 
i 


; SM l > 


5 


; ss.'o 


5 


; SVi 


t. 


; P ^SiV 


• 


; P V05 


• i 


; SS.M 


t 


r.«. it. 




; .'Jt.J 


t . 


; V>.*t» 




; y»..» • 


i_ 


5 :»vh 


3 


; SS, 1 ** 


S 


SS50 


< 


i SS51 


■/ 


; SS.V 


<. 


; !»M5 


» 


SS*4 




; SVV> 


■ i 


; V_>Jt> 


■ * 


; SVI/ 


< ' 


; ViJH 


5 


; SS.V* 


*, 


; Vi40 


3 


I SS4 1 


3 


; SS4.' 


<, 


; *>')4 5 


* 


SS44 


S 


; V.4S 


s 


; S'i4^ 


j 


i SS4,' 


;< 


SS4M 


/ 


; 5S4W 


4 


liSSO 


4 


; V»M 


4 


; V»V 


4 


j SSS*, 


4 


SSS4 


1 1 


; ViV, 


4 


SSS'» 


4 


; ViS/ 


4 


; SVtH 


4 


S r .V* 


H 


; SS'.O 


3 


; S'»M 


3 


; V-.»v 


5 


; !i'»»»5 


* 


; SS',4 


', 


; SV.«, 




; S***.#, 


5 


; SV./ 


/ 


; S'»*,M 


4 


; SV ■'# 


i 


i SLL/O 


4 



RD--RX EXERCISER 

RORX INTERRUPT SERVICF ROUTINES 



11 Apr- 1«)84 11:08 
It Apr-1984 lljOtt 



( jh(i 04 11 
35 VAX 11 FUisk l». V4,() S/*i p g e iqo 

^ DISK SUSERc! : I POWERS 1/PCJADO . HL ?. ; 6 C S4 ) 



(.IPKT. ADDR [STATUS SUHCODE 1 eql 0)) and 

((.MSCP PKT l.P INDEX. BC LA) 1 neq .IRK I ADDR ( HC t (J J ) or 

(.MSCP. PKT [.P. INDEX, HC HI! neq . IPKT ADDR [HC Hi])) 
then 

PR1NTK (DDM1K\ 

.MSCP.PKT l.P INDFX, DC HI], .MSCP PKT l.P INDEX, 

, IF>KT ADDR [CRN HI], .IPKT ADDR [CRN EO])| 



BC LOJ. .IPKT ADDR I BC HIJ. .IPKT. ADDR IBC..E0], 



If .Mf,CP PKT l.P INDEX, RSP RECEIVED 1 
then 

beg ! n 

PRINT* (DHMIi'O. .MSCP ..PKT l.P INDEX, CRN HI), .MSCP PKT 

PUT PKT ( ,P„INDEX)| 

return; 

end 
else 

MSCP PKT l.P INDEX. RSP RFQIVED1 • TRUE; 

It (R INDEX « IUT.RETPKT (.ICTl.R)) Us 
then 

begin 

PRINTP (DDM,\*)j 

PUT PKI C .P..INDEX) j 

return; 

end 
else 

begin 

SRC ADDR - .IPKT ADDR ♦ bj 

R ADDR • DST ADDR - RETPKT ♦ I.R..TNDEX * RP.IEN ♦ ,M| 

incr CUUN1 from 1 to RP l EN do 

bee ' n 

.DST ADDR - . .SRC ADDR j 
DST ADDR * .OS I ADDR * .*; 
SRC ADDR - .SRC. ADDF? . .?; 

".f .IPKT ADDR I OPCODE J eql COP ONI. or OP END) 
then 

if .COUNT eql 10 

then 

SRC _ ADDR - .SRC ..ADDR * 4j 
end; 

R ADDR tCriH] - . ICTLRj 

i t .P INDEX geq 
then 

if (.IPKT ADDR [OPCOOt I eql I OP RD or OP F NO n c»- 
( .IPKT ADDR lOPCODf J eql (OP UR T or OP END)) or 
i.TPKl ADUH lOPCUUC] eql (OP.ACC or OP END?) 

then 

begin 



I .P .INDEX, C«N .1.0] ); 



! MARK RESPONSE RECEIVED 

! IE RETPKT IS NUT AVAILABLE 

! "SEUUEN: RETPKT NOT AVAILABLE 



! si 1 up cop» iskip uvf.R n<r DESC) 

f START OF ALLOCATED RETPKT 



COP i I WURD 

ADVANCE DESf [NATION ADDR 

ADVANCE SOURCl ADDR 

IF THIS I'i THE ONI INF END MESSAGE 

SKIP OVER RE SFRVED WOROS 

IN ONI 1NE END MESS ACE 
COP» I OOP 

I OAD CONTROllER N'WF R INTO PKT 

IF ASSOC. CMD PKT WAS rOL'ND 



IE END MF v':AU p., 

RF AD, WR1 M , OR 
ACCESS 



I. I L- 



Kit 



T&UAM5 
VOL 6 



55/1 
55/? 
55/5 
55 /4 
55/5 
55 /b 

55/; 

55 .'8 

5580 

55a i 

558? 
5585 
55.14 
558S 
558b 
558 / 
5588 
5 584 
55^0 
5591 
559? 
5595 
5594 
559S 

559b 
559 / 
5598 



RD-RX EXERCISER 

RORX INTERRUPT SERVICE 



ROUTINE 



R ADDR (CMDMOD) - 
R ADDR [CBCNT 10] 
R AODR [ CBCNT HI] 
R ADDR [LBN.LO] - 
R ADDR [LBN HI] - 
R ADOR IBUEF 0] - 
R ADDR [ BUFF ~ 11 - 
ends 



11 -Apr -1984 11:08:35 
11 Apr -1984 11:08:22 

.MSCP PKT i.P INDEX, MODIFY ]j 
,MSCP PKT [ .P INDEX. BC 1.0) j 
[ .P_INDEX, BC.HI Jj 
P^INDEX, LBN L]| 
.MSCP PKT [.P INDEX, LBN H]j 
,MSCP PKT [.P INDEX, BUF 0]; 
.MSCP.PKT [.P..INDEX, BUF~1]| 



■ .MSCP.PKT 
.MSCP PKT [ 



IN .IODQ ( ,R INDEX); 
cr\di 

if C.IPK1 ADDR [STATUS CODE] neq ST SUC ) or 

(.IPKT.ADDR [STATUS SUBCODE 1 neq 0) 
then 

LAST. PKT [.ICTLR, L AST ^HRD ERR ] » HRD..OCCURFD 
else 

LAST.PKT I. ICTLR. LAST _HRD..LRR ] - HRD_NOT_OCCURED j 

LAST_PKT [.ICTLR, L.A5T_CRN 10] - .IPKT.ADDR [CRN L0]j 
LASTJ>KT (.ICTLR, LAST_CRN_HI] - .IPKT..ADDR [CRN_H1]| 
SCAN.ERRLOG O; 

if ,P INDEX gcq 
then 

PUT ..PKT ( .P„lNDEX)j 

end; 



SEQ 041? 
VAX 11 Bliss lb V4.0 5/9 P a ge 181 

DISK *USER? : [ POWERS URUADO . BL2 ; 6 ( 54 ) 



COPY 

RELEVANT 

FIE.IDS 

FROM 

COMMAND 

PACKET 

TO RETPKT 

IF ENDCODE WAS REAQ/WRTTE /ACCESS 

PUT RETPKT INDEX INTO IODQ 
IF RETPKT WAS ALLOCATED 



SAVE ERROR CONDITION 

SAVE COMMAND RE> EttENCt NUMBER 
PRINT ANY ASSOCIATED ERROR LOGS 
IE ASSOC CMO PKT WAS FOUND 
RETURN COMMAND PACKET TO POOL 
ROUTINE DISK.RSP 



000000 
000004 
00000b 
00001? 
00001b 

0000?0 

0000?? 
0000?b 

000052 
000034 
00004? 
000044 
00005.' 
000054 
OOOObO 
0000b? 
00006b 
0000 /o 
0000 /b 
000100 
000 1 04 
000106 



00415/ 
005/46 
01?746 
015/01 
00500? 
010?4b 
0i?/46 
004/5/ 
02?b?o 
0?60bl 
00)050 
0?C06l 

oo;o?4 

0?b011 
0014?! 
105 760 
100416 
15?/bO 
00101? 
105 /bl 
\ 0000 .' 
116200 



OOOOOOG 

1 / / / 7 / 
OOOOOOG 



000 1 Ob 
OOOOOOG 

000012G 00001? 

000014G 000014 

OOOOOOG 

0000??G 

000560 0000 10G 

0000?? 

OOOOOOG 





.SBTTL 


SEQUEN RORX INTERRUPT 


SEQUEN: 


;JSR 


R1.ISAVE5 




1ST 


- C SP ) 




MOV 


- 1 . ■ ( SP ) 




MOV 


IPKT.ADDR.R1 




CLR 


R? 


IS: 


MOV 


R? , ( SP ^ 




MOV 


•9106, (SP1 




J'.R 


PC,BL$MIA. 




CMP 


( SP ) * . ( SP 1 ♦ 




CMP 


MSCP.PKT»1?CR01,1?UU) 




BNE 


?$ 




CMP 


MSCP.PKT»14(R0),14CR1) 




BNL 


?$ 




CMP 


M5CP.PKT(R0),(fU ) 




BEQ 


?J 




TSIB 


MSCP.PKT *??(R0^ 




BMI 


?$ 




BITH 


#5ti0,MSCP.PKT*i0(H0) 




BNE 


?* 




1MB 


.VlRl) 




HPl 


?l 




MUVU 


PKT.U5E(R?),R0 



*, P. INDEX 

COUNT 

COUNT,* 



5465 

5480 
S4'*l 
5489 
5491 



j ♦(COUNT), + 



'.4V 
l; .4 *5 
5494 
^4*5 
54-»»* 
5.19 * 



ZRQAM3 
V01. 6 

00011c* 

000116 
000120 
000120 
000124 
000126 
000132 
000134 
000136 
000140 
000144 
000150 
000154 
000160 
000162 
000164 
000166 
000170 
000174 
000200 
000202 
000204 
000210 
000214 
000220 
000222 
000226 
000230 
000232 
000236 
000242 
000244 
000250 
000252 
000256 
000262 
000266 
000270 
000272 
0002 76 
000302 
000310 
000312 
000320 
000322 
000326 
000330 
000334 
000336 
000542 
000544 
000452 
000354 



02003 7 

001002 
010216 
000405 
005202 
020227 
003 7 32 
005716 
002013 
016146 
016146 
012746 
012746 
010600 
10441/ 
000545 
C11646 
012746 
004737 
010001 
022626 
013700 
116003 
042 703 
005002 
156102 
020203 
001422 
016046 
016046 
005046 
116016 
005046 
116116 
012746 
012746 
010600 
10441 7 
062 70to 
013700 
12602 7 
001404 
12602 7 
001045 
012702 
060002 
132712 
00103 7 
032/12 
001034 
026160 
001004 
026160 



RD/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 

000104' 



000013 



000012 
000014 
OOOOOOG 
000003 



00010b 
OOOOOOG 



OOOOOOG 
000022 
1 77600 

000022G 



000012 
000014 



0000 



niy 



OO0022G 
OOOOOOG 
000005 



000014 
OOOOOOG 
000022 00024 1 

000022 000242 

000024 

000037 

17 7 740 

000026G 000026 

000030G 000030 



2$: 



3$ j 



4$: 



5$: 



6$; 



i 16 

11 -Apr- 1984 11 :0ft : 35 
11 -Apr- 1984 11:06:22 



SEQ 04 15 
VAX -11 Bliss -16 V4. 0-579 Page 182 

DTSK$USER2:[P0WERS]ZRQAD0,BL2;6 (54) 



CMP 


RO.ICTLR 


BNE 


2$ 


MOV 


R2.CSP) 


BR 


3$ 


INC 


R2 


CMP 


R2.013 


HLE 


11 


TST 


(SP) 


BGE 


41 


MOV 


12CR1), -(SP) 


MOV 


14CR1), -(SP) 


MUV 


OOBMlOa, -(SP) 


MOV 


03, -ISP) 


MOV 


SP.RO 


TRAP 


17 


BR 


9$ 


MOV 


C SP ) . ( SP ) 


MOV 


0106. -(SP) 


JSR 


PC.BLSMUl. 


MOV 


R0.R1 


CMP 


(SP)*.(SP)» 


MOV 


IPKT.ADDR.RO 


MOVB 


22(R0).R3 


BIC 


<M 77600, R3 


CLR 


R2 


BISB 


MSCP.PKN22(R1).R2 


CMP 


R2.R3 


BEQ 


5$ 


MOV 


12(R0),-(SP) 


MOV 


14CR0). (HP) 


CLR 


(SP) 


MOVB 


22(R0),(SP) 


CLR 


(SP) 


MOVB 


MSCP.PKT*22(R1),(5P) 


MOV 


dOBMlll, (SP) 


MOV 


05. (SP) 


MOV 


SP.RO 


TRAP 


17 


ADD 


014. SP 


MOV 


IPKT.ADDR.RO 


CMPB 


22(RO).0241 


Hf-Q 


6$ 


CMPB 


22(RO),0242 


BNl. 


8i 


MOV 


024 ,R2 


ADD 


MO , R2 


BITB 


03/. (R2) 


BNl 


8$ 


BIT 


01 77 740, (R2) 


BNE 


8J 


CMP 


MSCP . PK T ♦ 26 ( Ml ) , 26 ( RO 1 


BNl 


7$ 


CMP 


MbCP.PKT»30lRl),30lR0) 



; COUNT, P. INDEX 

i COUNT 
j COUNT,* 

j P. INDEX 



5500 
54 99 
5489 

5504 
5507 



J SP,* 

j P. INDEX,* 



JJUO 

5511 



5513 



J SP,« 



5515 

V.U- 
551/ 

5*ilS 

SS1<» 
5520 



Ml 6 



ZRQAM3 




RO/RX EXERCISER 


VOL 6 




RDRX INTERRUPT 


00036? 


001424 




000364 


016046 


OC0012 


000370 


016046 


000014 


000374 


016046 


000026 


000400 


016046 


000030 


000404 


016146 


000026G 


000410 


016146 


000030G 


000414 


012746 


OOOOOOG 


000420 


012746 


000007 


000424 


010600 




000426 


104417 




0004 30 


06? 706 


000020 


000434 


132761 


000400 000005G 


C00442 


001422 




O00444 


016146 


000012G 


000450 


016146 


0000 14G 


000454 


012746 


OOOOOOG 


000460 


012746 


000003 


000464 


010600 




000466 


104417 




0004 70 


016616 


000010 


0004 74 


004737 


OOOOOOG 


000500 


062706 


000010 


000504 


000137 


027016' 


000510 


112761 


000001 000005G 


00O516 


013746 


000104' 


000522 


004737 


OOOOOOG 


00052o 


010066 


000004 


000532 


005726 




000534 


005766 


000002 


000540 


002007 




000542 


012/46 


OOOOOOG 


000546 


012746 


000001 


00055? 


010600 




000554 


104417 




000556 


000563 




000560 


013704 


OOOOOOG 


000564 


062704 


000006 


0005 70 


016646 


000002 


000574 


012746 


000054 


000600 


004737 


OOOOOOG 


000604 


062 700 


OOOOOOG 


000610 


010005 




000612 


013702 


OOOOOOG 


000616 


012703 


000001 


000622 


012425 




000624 


12622/ 


000022 000211 


00063? 


001005 




000634 


02032/ 


000012 


000640 


001002 




00064 ;> 


062 /04 


000004 


00064b 


005203 




000650 


020327 


000026 



11 -Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 





BF.Q 


8$ 


7$; 


MOV 


12(R0),-CSP) 




MOV 


14CR0), -(SP) 




MOV 


26CR0), ~(SP) 




MOV 


30(R0).-(SP) 




MOV 


MSCP.PKT<26(R1),-(5P) 




MOV 


MSCP.PKT*30CR1), -(SP) 




MOV 


4DBM112,-(SP) 




MOV 


#7,-CSP) 




MOV 


SP.RO 




TRAP 


17 




ADO 


#20, SP 


8$: 


BITB 


04OO,MSCP.PKT*5(R1) 




BEQ 


10$ 




MOV 


MSCP.PKT*12(R1), -(SP) 




MOV 


MSCP.PKTtl4(Rl),-(SP) 




MOV 


4DBM120,-(SP) 




MOV 


03, -(SP) 




MOV 


SP.RO 




TRAP 


17 




MOV 


lO(SP).CSP) 




JSR 


PC.PUT.PKT 


9$: 


ADD 


410, SP 




JMP 


21$ 


10$: 


MOVB 


01.MSCP.PKT*5(R1) 




MOV 


ICTLR, -(SP) 




JSR 


PC.GET.RETPKT 




MOV 


R0,4(SP) 




TST 


(SP)* 




TST 


2(SP) 




BGE 


11$ 




MOV 


4DBM22, (SP) 




MOV 


#1, (SP) 




MOV 


SP.RO 




TRAP 


17 




BR 


19$ 


11$: 


MOV 


IPKT.ADDR.R4 




ADD 


46, R4 




MOV 


2CSP). (SP) 




MOV 


454, (SP) 




JSR 


PC.^L$MUL 




ADD 


^RETPKT.RO 




MOV 


R0.R5 




'"OV 


IPlU.ADOR.R? 




MOV 


41, R3 


12$: 


MOV 


CR4)»,(R5)* 




CMPB 


,*2(R2).42ll 




BNt 


13$ 




CMP 


R3.01? 




BNE 


13$ 




ADO 


44, R4 


13$: 


INC 


R3 




CMP 


R3.426 



SEQ 0414 
VAX-11 Bliss-16 V4. 0-579 p g C 183 

DISK$USER2:[P0WERS]ZRQAD0.BL2|6 (54) 



5524 



J SP,* 



} SP.* 

} P. INDEX,* 



j ♦.R. INDEX 
j R, INDEX 

i 



i *,SRC,ADDR 
j *,5RC,ADDR 
i R. INDEX ,♦ 



; *.DST.ADDR 

! *, COUNT 

I SRf.ADDR.DST.ADDR 

i 

j COUNT,* 

i *. SRC. AC OR 

j COUNT 

J COUNT,* 



5526 
5529 



5530 

5531 
5528 

">534 
>536 



?>5 *9 



5540 
5545 

5546 



5554 
5548 
5550 
S554 

?'55tf 
5548 



ZRQAM.? 

jam; 



Af£ 



588 

ZRQAMS 
ZRQAM? 
ZRQAM? 
ZRQAM? 
ZRQAM? 
ZRQAM? 
ZRQAM? 
ZRQAM? 
ZRQAM? 
ZRQAM? 



ZRQAM? 

ZRQAM? 
ZRQAM? 
ZRQAM? 
ZRQAM? 
ZRQAM.' 
7R0AM2 
ZKU/W 
ZRQAM? 
ZRQAM? 
ZRQAM? 
"RQAM5 
ZRQAMS 



ZRQAMS 
ZRQAMS 
ZRQAM 3 
ZRQAMS 

ZRQAMS 
ZRQAM3 
ZRQAM 5 
ZRQAMS 
ZRQAM3 
ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAMS 



ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAM 5 
ZRQAMS 
ZRQAM S 
ZRQAM' 
ZRQAMS 



RD/R. . 


.Bl 


RD/R. . 
RD/R. . 


:Sl 


RD/R. . 


.El 


RD/R. . 


.H 


RD/R. . 


.(it 


RD/R. . 


.HI 


RD/R. . 


.11 


RD/R. . 


,J1 


RD/R. . 


.Kl 


RD/R. . 


1 1 


RO/fJ. . 


.Ml 







RD/R. . 


..B2 


RD/R. . 


. .C? 


RD/R. . 


. .0^ 


RD/R. . 


..E2 


RD/R. . 


. .F? 


RO/R, . 


. .G? 


RD/R. . 


. ,H2 


RD/R. , 


. . I? 


RD/R. . 


. .J? 


RD/R. . 


. .K? 


RD/R. . 


. .1 ? 




. .M2 


RD/R. . 


..N? 


RD/R. . . .83 


RD/R. . 


. .C3 


RD/R. . 


. .D3 


PD/R. . 


. .E3 


RD/R. . 


. .F3 


RD/R. . 


. .G3 


RD/R. . 


. .H3 


RD/R. . 


. .13 


RD/R. . 


. . J3 


RD/R. . 


. .K3 


RD/R. . 


. .1 S 


RO/R. . 


. .MS 


RD/R. . 


. ,N3 


RD/R. . . .B4 


RU/R. . 


.C4 


RD/R. . 


. .04 


<*D/R. . 


. .t4 


RD'R. . 


. .F4 


RD R. . 


. .04 


RD'R. . 


. . M4 


RD R. . 


. . 14 


RO-R. . 


. . J4 


RD R. 


. .i»4 


ROT. . 


. .i 4 


RD/R, 


. .M4 


«u/«. . 


. .M 



ZRQAM3 

ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAMS 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 



ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 



ZRQAM3 
ZRGAM3 
ZRQAM3 
ZRQAM3 
ZRQAMS 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM5 
ZRQAM3 
ZRQAMS 
ZRQAMS 
ZRQAM3 



ZRQAM3 
ZRQAMS 
ZRQAMS 
ZRQAM* 
ZRQAM S 
ZRQAM3 
ZRQAMS 
/ROAMS 
/MQAH3 

ZRQAMS 
ZRQAM S 
ZRQAM* 

JRUAM5 



RD/R. . 


. ,B!> 


RD/R. . 


. .C5 


RD/R. . 


. .05 


RD/R, . 


. ,E5 


RD/R. . 


. .F5 


RD/R.. 


. .G5 


RD/R. . 


, .H5 


RD/R. . 


. .IS 






RD/R. . 


, . KS 


RD/R. . 


. .L5 


RD/R.. 


. .M5 


RD/R. . 


. .N5 


RD/R, , . ,B6 


RD/R. . 


. .C6 


RD/R. . 


. ,06 


RD/R, . 


. ,E6 


RD/R. . 


. .F6 


RD/R. . 


. .Gb 


RD/R.. 


. .H6 


RD/R.. 


. .16 


RD'R, . 


. , J6 


RD/R,, 


. ,K6 


RD/R. , 


. .16 


RD/R. . 


. .M6 


RD/R. . 


. .N6 


rd/r. . . .r; 


RD/R. . 


. XI 


RD/R. . 


. .0/ 


RD/R. , 


. .f 7 


RD/R. . 


. J 7 


RD/R.. 


. u? 


RD/R. . 


, , M * 


h-;-"R. . 


. .17 


U'o w 


. F 


RD/R. . 




RO/R. . 


. . 1 * 


RD/R. . 


. . M .* 


RD'R. . 


. .N7 


RD R, . . .H? 


RD R . . 


. ,:n 


RO-'R . . 


. . :>i 


RD R. . 


. AA 


WD R. . 


. .* H 


RD R. . 


. . .j6 


RO R. . 


. .»••» 


«?■ R . 


. I* 


WD -•'«. . 


. . _« 


RD h . . 


. * A 


iwr : r , . 


4 


HU/R . . 


. .MA 


RU/R,. 


..K6 



ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAM3 



ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAMS 
ZRQAM3 
ZRQAM3 
ZRQAMS 
ZRQAMS 
ZRQAM3 
ZRQAM3 
ZRQAMS 
ZRQAMS 
ZRQAM3 



ZRUAM3 
ZRQAMS 

ZRQAMS 

ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAM3 
ZRQAMS 

ZRQAMS 



ZRQhMS 

ZRQAM* 

ZRQAMS 
ZRQAMS 

ZRQAMS 
ZRQAMS 
ZRQAM «. 
Z»QAM^ 

ZRQAM* 
ZH^amS 
ZRQAM < 

ZfluAMS 



RD/R. 
RD/R. 
RD/R. 
RD/R. 
RD/R. 
RD/R, 
RD/R. 
RO/R. 
RD/R. 
RO/R. 
RD/R. 
RD/R. 
RD/R. 



RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RO/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 



RO/R 
RD/R 
RD'R 
RD 'R 
RD'R 
RD/R 
RD-R 
RO-R 
RD/R 
RC P 
RD/R 



R? R 
R. R 

rc r 

RD R 
HD R 
RO R 
RD R 
RD R 
RD R 
HU R 
h;> r 

HJ/R 

HC/H 



. .B9 
. X9 
. .D9 
..E9 
. .F9 
. ,G9 
. .H9 
. .19 
. . J9 
. .K9 
. .1.9 
. .M9 
..N9 



.BIO 
.CIO 
.D10 
.L10 
.F10 
,G10 
.M10 
.110 
. J10 
.KiO 
.1 10 
.M10 
.NIC 



Bll 

CU 

on 
J 11 

Fll 

(.11 

Mil 
111 
Jll 
Kll 
S 11 



Bl.' 



.CI.' 


01. 


1 ;.: 


f I. 


1) .,' 


.Ml*: 


T 1 


j1j 




1 
i 1 . 


.^:. 



* to »«**&** 



ZRQAM3 
ZRQA.'iJ 
ZRQAM3 
ZRQAM3 
ZRQAM3 
ZRQAMS 
ZRQAMS 
ZRQAM3 
ZRQAMS 

ZRQAM3 
ZRQAMS 

ZRQAMS 
ZRQAM3 



ZRQAM* 

ZRQAMS 
ZRQAM3 
ZRQAMS 
ZRQAM3 
ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAM3 
ZRQAMS 
ZRQAM *-. 
ZRtiAM'. 



ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAM S 
ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAMS 
ZRQAM « 
ZRQAMS 

ZRJ iMS 

ZRQAM* 
ZRQAMS 
ZRQAMS 
ZRQAM « 
ZRQAM < 
ZRQ4M? 

ZRJ4MS 



RD/R 
RD/R 
RO/R 
RD/R 

RD/R 
RD/R 
RD/R 
RD/R 
RD/P 
RD/R 
RD/R 
RD/R 
RD/R 



RD/R 

RD/R 
RD/R 
RD'R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD/R 
RD-'R 
RD'R 



RD/R 
RO/R 
RD-R 
RO-R 
RD'R 
RD'R 
RO/R 
RO R 
RD R 
RfVk 
»D R 
RD/R 
RO- w 



In M 

M . ►»' 

-, _ i. 



BIS 
C13 
013 
E1S 
F13 
G13 
H13 
IIS 
J13 
:<13 
1.13 
M13 
N13 



B14 
CM 
D14 
E14 
* 14 
G14 
H14 
114 
J14 
K 14 

I 14 

M14 

N14 



Bl'; 

;r> 
or- 

Fl'- 

Ml*-- 

Ml*. 

lis 



m;* 



H>i 



i » 



,m;o 



»v. _ 



X ;,*".< 






d/ii 



..Acr.v'x^' 



in 



.->*■ 



***/'•-%- 



V 't ^ 



R 1 



ZRQAM5 
V01, 6 

000654 
00**656 
0000*62 
000666 

0O0674 
000700 
000704 
000706 
000710 
000714 
000720 
000722 
000726 
000730 
O00f34 
000756 
000744 
000752 
000760 
000766 
000774 
001002 
001010 
001014 
001020 
001022 
001026 
001032 
001036 
001042 
001046 
001050 
001054 
001056 
001062 
001064 
001072 
001074 
001100 
001106 
001114 
001120 
001124 
001126 
001132 
001 136 
00U40 
001142 



003762 
013703 
042703 
142760 
150360 
005766 
002441 
005003 
156203 
020327 

001406 
020327 
001403 
020327 
001025 
016160 
016160 
016160 
016160 
016160 
016160 
016160 
016616 
004737 
005726 
013716 
012746 
004737 
013701 
012703 
060103 
132713 
001003 
032713 
001404 
012760 
000402 
005060 
016160 
016160 
004737 
005766 
002404 
016616 
004737 
022626 
022626 
000207 



RO/RX EXERCISER 

RORX INTERRUPT SERVICE ROUTINES 



000104' 

177760 

000017 000002 

000002 

000004 



000022 
000241 

000242 

000220 

000024G 000012 
000026G 000044 
000030G 000046 
000046G 000050 
000050G 000052 
000052G 000024 
000034G 000026 
000006 
OOOOOOG 

000104' 

000006 

OOOOOOG 

OOOOOOG 

000024 



000037 

177740 

000001 

000116' 

000012 

000014 

000000V 

000004 

000004 

OOOOOOG 



000116' 



000120' 
000122' 







ll-Apr-1984 11:08:35 


OUTINE 


.S 


ll-Apr-1984 11:08:22 




BLE 


12$ 




MOV 


ICTLR.R3 




BIC 


♦177760. R3 




BICB 


O17.2CR0) 




BISB 


R3,2CR0) 




TST 


4CSP) 




BLT 


15$ 




CLR 


R3 




BISB 


22CR2).R3 




CMP 


R3.0241 




BEQ 


14$ 




CMP 


R 3,0242 




BEQ 


14$ 




CMP 


R3.0220 




BNE 


15$ 


14$: 


MOV 


MSCP.PKT»24(R1),12(R0) 




MOV 


MSCP.PKT*26(R1),44CR0) 




MOV 


MSCP,PKT»30(R1).46CR0) 




MOV 


MSCP.PKT»46CR1),50CR0) 




MOV 


MSCP.PKT»50(R1),52(R0) 




MOV 


MSCP.PKT»32(R1).24(R0) 




MOV 


MSCP.PKT.34(R1),26(R0) 


15S: 


MOV 


6(SP),(SP> 




JSR 


PC.IN.IODQ 




TST 


(SP)» 




MOV 


ICTLR.(SP) 




MOV 


06, (SP) 




JSR 


PC,BL$MUL 




MOV 


IPKT.AD0R,R1 




MOV 


024, R3 




ADD 


RI.R3 




BITB 


037, CR3) 




BNE 


16$ 




BIT 


0177740, CR3) 




BEQ 


17$ 


161: 


MOV 


Ol.LAST.PKT(RO) 




BR 


18$ 


171: 


CLR 


LAST PKT(RO) 


18$: 


MOV 


12(RL),LAST.PKT,^(R0) 




MOV 


14(Rl),LAST.PKT»4(R0) 




JSR 


PC.SCAN.FRRLOtt 




TST 


4(Sr) 




BLT 


20' 


19$: 


MOV 


4CSP),(SP) 




JSR 


PC, PUT ,PKT 


20 »: 


CMP 


' SP)».(SP)* 


21$: 


CMP 


CSP)*,CSP>* 




RTS 


PC 



VAX-11 Bli»»-l-> V4. 0-579 
DISK$USER2:[P0WERS]ZRQAD0,BL2j6 



l ♦.♦(R.ADOR) 
I ♦.♦CR.ADDR) 
j P.INOEX 



l * 


♦CR.ADOR) 


I * 


♦(R.AODR) 


1 * 


♦CR.ADOR) 


1 * 


♦(R.AODR) 


I * 


♦CR.ADDR) 


I * 


♦CR.ADDR) 


J * 


♦CR.ADDR) 


: R 

j 
j 


INDEX, ♦ 



P. INDFX 



l P» INDEX,* 



SEQ 0415 
P&Q* 184 
C54) 



5561 



5563 
5566 

5567 

5568 

5571 

5572 
5573 
5574 
5575 

5576 
5577 
5580 

5544 
5586 

5583 



5564 

5586 
5583 
5588 

5590 
5591 
559? 
5594 

5596 

5480 
5465 



Rout » ne j i /« : 
Maximum stack 



506 «or*4, Moutiae Base: ICQDLl * 25656 
d«pth per invocatlorvj 18 words 



CI 



JRUAM5 




V01, 6 




i 5599 


1 


i 5600 


1 


I 5b01 


1 


; 5602 


1 


5 5603 


1 


; 5t>04 


1 


j 5605 


»- 


; 5606 


2 


5 5607 


2 


5 5608 




5609 




j 5610 




J 5611 




; 5612 


? 


; 5613 


3 


5614 


3 


; 5615 


3 


; 561* 




; 5617 


4 


; 5618 


? 


; 5619 


4 


5620 


4 


5 5621 


4 


; 5622 


4 


; 5623 


4 


; 5624 


4 


5625 


4 


j 5o26 


5 


562 7 


5 


; 5628 


5 


: 5629 


5 


; 5630 


5 


: 5631 


5 


; 5632 


5 


; 5633 


6 


; 5634 


5 


: 5635 


6 


; 5636 


6 


; 5637 


b 


; 5638 


5 


; 5639 


5 


s 5640 


5 


; 5641 


5 


; 5642 


5 


; 564 5 


5 


; 5644 


5 


; 5645 


5 


; 564 C 


5 


564 1 


5 


l 5648 


5 


j 5649 


5 


; 5650 


5 


i 5651 


5 



RQ.RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 

GLOBAL routine SCAN_ERRLOG : novalue 



11 Apr 1984 11:08:35 
ll-Apr-19tt4 11:06:22 
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DISK IUSER2 { t POWERS JZRQADO . BL2 <6 C 55 ) 



! SCAN ERROR -LOG PACKET SAVE AREA 



| THIS ROUTINE SCANS THE ERROR -LOG SAVE AREA AND PRINTS ANY ERROR -LOGS RECEIVED FOR THE ASSOCIATED RESPONSE 

begin 

local 

TEMP_UNIT. 

SFT,ERR_PRINTED : byte Initial (byte (FALSE))} 

Incr index from to EP..CNT do 
begin 

if (.ELOG.PKT [index, El.CNTR] eq l .ICTLR) and 

(,ELOG„PKT [.index, EL.CRN.LO) eql .IPKT ADDR [CRN LOl) and 

(.ELOG^PKT [.index, EL.CRN.HI) eql .IPKT"ADDP [CRN~HI]) and 

(,ELOG_PKT [.index, EL_CONTENTSl eql FULL) 
then 

begin 

If .LrtST.PKT [.ICTLR. LAST . HRD_ERR ] eql HRD NOT OCCURED 
then 

if .ELOG..PKT [.index, EL FORMAT] lequ 4 
then 

begin 

SOFT .ERROR (. indeOj 

TEMP.UNIT ■ .L$LUNj 

Incr OFFSET from (0 ♦ OF_UN) to ((UNITS PC R .CNTR - 



! ERROR-LOG PENOING THIS RESPONSE 
J IF SOFT ERROR OCCURED 



J UPATE SOFT ERROR COUNT 

! SAVE UNIT NUMBER AS KNOWN TO DRS 

1) ♦ UNIT. SIZE ♦ OF. UN) by UNIT. SIZE do 



Sf (.ICST^ADOR [.OFFSET » OK .DATA, U..DISK.NUM) eql ELOG.PKT [.index, EL DK NUM] ) and 

(.ICST.ADOR (.OFFSET • OF DATA, PRESl eql PRESENT) " 

then 

b<*gin 

LIl.UN ■ , ICST..ADOR [.OFFSET » OF. DATA, D„UNlT]j 

ex 5 t loop i 

endi 



• CORECT UNIT NO. FOR ERROR MESSAGE 



Case .ELOG.PKT [.index. EL. FORMAT 1 from to 4 of 



set 
(0): 



tlh 



If .APT MODI 
then 

fcRR SOM RTNE .APT (50, .Index) 
else 

FRR.SOFT RTNE (50)| 

' f .APT MODI 
then 

ERR.SQFT JUNE.APT v5i, .index) 



CONTROLLER ERROR 



! HUST MEMQRt ACCESS ERROR 



1)1 



7RQAM.5 




V01.6 




; S6W 


5 


; 5653 


5 


; 5654 


5 


; 5655 


5 


5656 


5 


j 565? 


s 


! 5658 


5 


; 5659 


5 


; 5660 


s 


; 5661 


5 


; 5663 


5 


; 566? 


S 


5664 


s 


; 5665 


5 


; 5666 


5 


; 566 7 


5 


; 56b8 


5 


i 5669 


5 


; 5670 


5 


; 5671 


5 


; 5b72 


5 


; 5673 


5 


: 5674 


5 


; 5675 


5 


; 56 ?6 


5 


567 7 


4 


! 5678 


4 


; 5b79 


4 


; 5680 


5 


5681 


4 


s 5682 


4 


; 5683 


4 


; 5684 


4 


; 5685 


4 


; 5686 


3 


j 5687 


3 


; 5688 


3 


; 5689 


4 


; 5690 


5 


; 5691 


3 


; 5692 


4 


; 5693 


3 


; 5694 


4 


; 5695 


4 


; 5696 


4 


; 569 7 


3 


5 5698 


3 


; 5699 


-> 


; 5 700 


? 


| 5701 


1 



RD/RX EXERCISER 

ROR.X INTERRUPT SERVICE ROUTINES 



[21 



11 Apr 1984 11:08:35 

11 -Apr -1984 11 j 08 j 22 



else 



[3h 



[4] 



test 



ERR.SOFT RTNE (51)j 

if .APT MODE 
then 

CRR_SOFT_RTNE .APT (52, . fndex) 
else 

ERR_SOFT„RTNE C52)j 

if .APT MODE 
then 

ERR..SOFT_RTNE_APT C53, . Index) 
else 

ERR, SOFT. .RTNE (53): 

if .APT MODE 
then 

ERR.SOFT.PTNE.APT (54, .index) 
else 

ERR_50FT_RTNE (54); 



VAX-11 Bliss-16 V4, 0-579 ^Po^ ? 186 

DISK$USER2:[P0WERS]ZRQADO.BL2;6 (55) 



! DISK TRANSFER ERROR 



else 



LtLUN • .TEMP UNIT i 
SFT_ERR.PRiriTED « TRUE j 
end 

PRINTF (DBM109, .ELOG.PKT [.index, EL ..FORMAT 1 ) j 



else 



if not ( .SFT_ERR^PRINTED) 
then 

PRINTB (CRLF), 

EMS.EL (. indeOi 



if (.ELOG.PKT (.Index, EL.CNTR] eql .ICTLR) and 

((.ELOG.PKT [.index, EL .CRN Mil U« u .IPKT AD0» (CRN HI] 
((.ELOG.PKT [.index. El. CRN. HI) eql .IPKT ADOR [CRN HI] 
(.ELOG.PKT [.index. E'._CRN_l.O] l»so .IPKT ADDR [CRNLO 
(.ELOG.PKT [.Index, EL. CONTENTS] eql Full) 
then 

begin 

PRINTB (CRLF), 

EMS. EL (. index): 

end: 



) or 
) and 
]))) and 



endj 



! SOI ERROR 



! SMALL DISK ERROR 



! RESTORE UNIT NUMBER 

! SOFT ERROR PRINTOUT OCCURED 



! UNKNOWN ERPOR-LOG FORMAT 

• EXTRA CARRIAGE -RETURN/LINE-FEED 
! PRIN T ERROR -LOG CONTENTS 



! CARRIAGE RETURN/LINE FEED 
! PRINT ERROR -LOG CONTENTS 



• ERROR -LOG SAVE AREA SCAN 



endj 



.SUTTL SCAN.ERRLOG RDRX INTERRUPT SERVICE ROUTINES 



f 1 



ZRQAM? 




RD'RX EXERCISE 


V01. 6 




RORX INTERRUPT 


OOOOOO 


004137 


OOOOOOG 


000004 


005 746 




000006 


105005 




000010 


005002 




000012 


010246 




000014 


012746 


000102 


000020 


004 73 7 


OOOOOOG 


000024 


010001 




000026 


022626 




000050 


012703 


OOOOOOG 


000034 


060103 




000036 


005004 




000040 


005000 




000042 


151300 




000044 


020037 


000104' 


000050 


001016 




000052 


005204 




000054 


013700 


OOOOOOG 


000060 


026160 


000006G 000012 


000066 


001007 




000070 


026160 


000010G 000014 


000076 


001003 




000100 


126327 


000001 000001 


000106 


001402 




000110 


000137 


027562' 


000114 


013746 


000104' 


000120 


012746 


000006 


000124 


004737 


OOOOOOG 


000130 


022626 




000132 


005760 


000116* 


000136 


001161 




000140 


126127 


0000 16G 000004 


000146 


101142 




000150 


010246 




000152 


004737 


oooooov 


000156 


013766 


OOOOOOG 000002 


000164 


01^703 


000006 


000170 


010300 




000172 


063700 


000076' 


000176 


016146 


0000 12G 


000202 


111004 




000204 


042704 


177760 


000210 


020426 




000212 


001012 




000214 


032710 


040000 


000220 


001407 




000c22 


011004 




000224 


000304 




000226 


042^04 


177/60 


000232 


010457 


OOOOOOG 


0002 56 


000405 




000240 


062703 


000024 



11 Apr -1984 11:08:35 
11 Apr-1984 11:08:22 



'3E.Q 0418 
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DISK$USER2:[P0WERS]ZRQAD0.BL2;6 (55) 



SCAN.ERRLOG: : 




JSR 


fll,*SAVF.5 


TST 


-CSP) 


CLRB 


R5 


CLR 


R2 


1$: MOV 


R2, (SP) 


MOV 


0102. -CSP) 


JSR 


PC.BUMUL 


MOV 


R0.R1 


CMP 


(SP)..(SP). 


MOV 


0EL0G.PKT.R3 


ADO 


R1.R3 


CLR 


R4 


CLR 


RO 


BISB 


(R3).R0 


CMP 


RO.ICTLR 


BNE 


21 


INC 


R4 


MOV 


IPKT.ADDR.RO 


CMP 


EL0G.PKT*6(Rl),12(RO) 


BNE 


2$ 


CMP 


ELOG.PKT*10(R1),14(RO) 


BNE 


2$ 


CMPB 


1(R3),01 


2$: BEQ 


3* 


JMP 


25$ 


3$: MOV 


ICTLR.-(SP) 


MOV 


06, (SP) 


JSR 


PC.BLiMUL 


CMP 


(SP)*.(SP)« 


TST 


LAST.PKTCRO) 


BNE 


231 


CMPB 


EL0G.PKT*16(R1),04 


BHI 


21$ 


MOV 


R2, (SP) 


JSR 


PC. SOf" T. ERROR 


MOV 


L$LUN,2(SP) 


MOV 


06, R3 


4 * : MOV 


R3.R0 


ADD 


icst.addr.ro 


MOV 


EL0G,PKT»12(R1). (SP) 


MOVB 


(R0).R4 


BIC 


01/7760. R4 


CMP 


R4.CSP)* 


BNE 


5$ 


BIT 


040000. (RO) 


BEQ 


5$ 


MOV 


(R0).R4 


SUAB 


R4 


BIC 


01///60.R4 


MOV 


R4.LJl.UN 


BR 


6$ 


5$: ADD 


024, R3 



; SFT. ERR. PRINTED 
t INDEX 
j INDEX,* 



5599 

5605 
5611 
5614 



5615 

5616 

5617 

5621 



INDEX,* 

*. TEMP. UNIT 

♦.OFFSET 

OFFSET.* 



5624 

5627 

5628 
5630 
5632 



J *, OFF SET 



56?? 
5b3b 



5o5C 



Kl. 



ZRQAM5 
V01, 6 

000244 
000250 
000252 
000254 
000260 
000264 
000270 
000272 
000276 
000302 
000304 
000310 
000312 
000316 
000320 
000324 
000326 
000332 
000334 
000340 
000342 
000346 
000350 
000354 
000356 
000362 
000364 
000370 
000372 
000376 
000400 
000404 
000406 
000410 
00O412 
000416 
00O420 
000424 
000426 
000430 
0004 34 
000440 
000446 
000452 
000454 
000456 
000462 
000466 
00O4 72 
0O04/4 
00O4 76 
000500 
000502 



02032 7 
C03" , 47 
OO'.iOOO 
153700 
116101 
042701 
006301 
066107 
032700 
001403 
012716 
000442 
012716 
000446 
032700 
001403 
012716 
000431 
012716 
000455 
032700 
001403 
012716 
000420 
012716 
000424 
032700 
001403 
012716 
000407 
012716 
000415 
006000 
103007 

012716 
010216 
00473 7 
OC5726 
000404 
012716 
004757 
016637 
112705 
000412 
005046 
116116 
012/46 
012746 
010600 
10441/ 
022626 
005/26 
032 705 



RD/RX EXERCISER 

RORX INTERRUPT SERVICE ROUTINES 

000102 



001162' 
0000 16G 
177400 

000000' 
000001 

000062 

000062 

000001 

000063 

000063 

000001 

000064 

000064 

000001 

000065 

000065 

000066 
000000V 



000066 

OOOOOOV 

000002 OOOOOOG 

000001 



0000 16G 
OOOOOOG 
000002 



000001 



ll-Apr-1984 11:08:35 
ll-App-1904 11:08:22 



SEQ 0419 
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DISK$USER2:[P0WERS'JZRQAD0.BL2;6 (55) 





CMP 


R3.01O2 




BLE 


4$ 


6$: 


CLR 


RO 




BISB 


APT.MODE.RO 




MOVB 


E10G.PKT*16(R1),R1 




BIC 


4177400, Rl 




ASL 


Rl 




ADD 


P.AAA(R1),PC 


8$: 


BIT 


01, RO 




BEQ 


9$ 




MOV 


062, (SP) 




BR 


1/$ 


9$: 


MOV 


062 , ( SP ) 




BR 


19$ 


10$: 


BIT 


01. RO 




BEQ 


11$ 




MOV 


063, (SP) 




BR 


1/$ 


11$: 


MOV 


063, (SP) 




BR 


19$ 


12$: 


BIT 


Ol.RO 




BEQ 


13$ 




MOV 


064 , ( SP ) 




BR 


17$ 


13$: 


MOV 


064, (SP) 




BR 


19$ 


14$: 


BIT 


01, RO 




BEQ 


15$ 




MOV 


065, (SP) 




BR 


17$ 


15$: 


MOV 


065, (SP) 




BR 


19$ 


16$: 


ROR 


RO 




BCC 


18v 




MOV 


066, (SP) 


17$: 


MOV 


R2, (SP) 




JSR 


PC, ERR. SOFT. RTNE, APT 




TST 


(SP). 




BR 


20$ 


18$: 


MOV 


066. (SP) 


19$: 


JSR 


PC.ERR.SOF T.RTNE 


20$: 


MOV 


2(SP),L $LUN 




MOVB 


01, R5 




BR 


??t 


21$: 


CLR 


(SP) 




MOVB 


ElOG.PKT»16(Rl),(SP) 




MOV 


0DBM1O9, -(SP) 




MOV 


02, (SP) 




MOV 


SP.RO 




TRAP 


W 




CMP 


(SP). (SP)* 


22$: 


TST 


(SP). 


23$: 


BIT 


• l.RS 



l OFFSET,* 



Case dispatch 



INDEX,* 



TEMP. UNIT,* 
*.SFT. ERR, PRINTED 



5643 
5640 

5643 
5645 
564 7 
5649 
5651 
5653 
5655 
5657 
5659 
5661 
5663 
5665 
5667 
5669 



566 7 
5671 

5674 
56^5 

5624 
5t,?8 



J SP,* 



j + tJ FT.tRR. PRINTED 



5**24 
56M 



Gl 



JRUAM5 
V01, 6 

000506 
000510 
000514 
000520 
000522 
O0C524 
000526 
000530 
000334 
000536 
000540 
00054 2 
000544 
000550 
000556 
0005CU 
00056? 
0005 70 
00057? 
000600 
00060? 
000606 
000612 
000614 
000616 
000620 
000624 
00062b 
000630 
000634 
000636 
000642 
000644 



001007 
01274b 
012746 
OlOfcOO 
104414 
0226^0 
010246 
004 757 
005726 
000433 
006004 
103031 
013700 
026160 
103405 
001022 
026160 
103016 
126327 
001012 
012746 
012746 
010600 
104414 
010216 

004 73 7 
022626 
005202 
020227 
003C02 
000137 

005 726 
00020 7 



RD/RY EXERCISER 

RDRX INTERRUPT SERVICE 



OOOOOOG 
000001 



Rout ■ ne 



S I ze: 
stack 



OOOOOOG 



OOOOOOG 
000010G 000014 



000006G 000012 

000001 000001 

OOOOOOG 
000001 

OOOOOOG 

000014 
027034' 



211 words, Routine Bas*: 5C0DES 
depth per invocation; 12 words 







11 -Apr -1984 11:08:35 


ROUTINES 




11 Apr-19H4 11:08:22 




Bf^ 






M'JV 


OCRLF , (SP) 




rov 


♦ I, -(SP) 




hOV 


SP.RO 




RAP 


14 




;mp 


CSP)*,(SP)* 


24*: 


MOV 


R2. (SP) 




JSR 


PC, EMS .EL 




1ST 


(SP)* 




BR 


27$ 


25$: 


ROR 


R4 




BCC 


27$ 




MOV 


ipkt.ador.ro 




CMP 


EL0G.PKT*10CR1),14(R0) 




BLO 


26$ 




BNE 


27$ 




CMP 


EL0G.PKT»6(R1),12CR0) 




BHIS 


2/$ 


26$: 


CMf^B 


1(R3),01 




BNE 


27$ 




MOV 


*CRLF, -(SP) 




MOV 


• 1. -CSP1 




MOV 


SP.RO 




TRAP 


14 




MOV 


R2.CSP) 




JSR 


PC, EMS. EL 




CMP 


(SP)*.(SP)* 


27$: 


INC 


R2 




CMP 


R2.014 




BGT 


28$ 




JMF 


1$ 


28$: 


T5T 


(SP)» 




RTS 


PC 



VAX-11 Bliss-16 V4.0 579 

DISK $USER2: [POWERS )ZRQAD0.8L2j6 



i SP,* 
i INDEX,* 



i SP,* 
i INDEX,* 



j INDEX 
j INDEX,* 



SEQ 0420 
Page 189 
C55) 



5682 



5684 

5619 

5614 
5608 

5689 



5690 
5691 

5692 

5695 

5696 

5694 
5611 

5599 



♦ 270^2 



000000 



000000 
000002 
000004 
000006 
000010 



000000 
000022 
000044 
000066 
000110 



.PSECT SPLITS 



P. AAA 
7$: 



RO 



D 



.UORD 





.WORD 


dd 


.WORD 


44 


.WORD 


hf, 


.WORD 


UO 



CASE Table for iCAN.ERRLQG*0272 

[8$ ] 

[10$] 

[12$] 

[14$] 

[16$] 



5640 



/RQAM3 
V01, 6 



5 av 
5703 

5704 
5705 

5 70* 

5 70 7 

s:o8 

5 709 
5710 
5711 
571J 
5 715 
5714 
5 715 
571* 

bn: 

5718 
57iM 
57?0 

s^n 

57<?<> 
5 7 t ?3 
5 724 

5 7<?5 
5 72' 
5 72/ 
5 728 
5 729 
5 730 
5731 
5732 
5733 
5 734 
5 735 
5 73b 
5737 
5738 
5759 
5740 
5 741 
5 742 
5 *4 3 
5744 
5 745 
5 746 
5 74 7 
5 748 
5 749 
5 750 
5 751 
5 752 
5 '5? 
5754 



2 



RO/RX EXERCISER 

RORX INTERRUPT SERVICE ROUUNfcS 

GLOBAL routine DATAGM : novalue * 



HI 

11 Apr- 1984 11:08:35 VAX-U Bliss 16 V4. 0-579 SEQ Pooe l 190 
ll-Apr-1984 11:08:22 DISK5USER2 : [P0WER5]ZRQAD0.BL2}6 (56) 



THIS ROUTINE HANDLES ALL DATAGRAM (ERROR LOG) MESSAGES RECEIVED FROM 
THF RDRX 

IMPLICIT INPUTS: 

IPKT.ADDR - ADDRESS Of MSCP PACKET CONTAINING ERROR t OG 

MESSAGE 
ICST..ADDR - ADDRESS OF THE INTERRUPTING CONTROLLER'S CST 



beg i n 

local 

inde* : signed word Initial (-1), 

SAVE.ADDR : ref block [EP..LEN, word] field ( EP FIELDS), 

SRC ADDR, 

DST^ADDR. 

TEMP.UNIT. 

SFT_ERR_PRINTED : byte initial (byte (FALSE)), 

PACKET, LEN : wordj 

FIND AN EMPTy SLOT IN THE ERROR-LOG PACKET SAVE AREA 

incr CO'NT from to EP_CNT 1 do 

if .ELOG.PKT [.COUNT, EL CONTENTS) eoi EMPTY 
then 

begin 

indev - .COUNT} 

e*it loop: 

end; 

i f . ««de* los 
then 

\n<^K * EP.CNTj 



SAVE THE PACKET CONTENTS 



SAvE^ADDR • ELOG PK T . (.Inde*. ♦ EP I FN ♦ f Mj 

SAVE. ADDR {EL CONTENTS ] ■ f ULL j 

SAVE, ADDR TEL CNTR] - .ICURj 

SRC ADDR * . IPKT ADDR » 6j 

DST ADDR • .SAVE ADDR ♦ 2; 

PACKET UN - ((,IPKT ADDR (MSf.EN) • I) •' 2) ♦ 2; 

■f .PACKET I. EN gtru EP I EN 1 
then 



! IF EMPTY SLOT FOUND 



! SAVE INDEX INTO THE SAVE AREA 



! IF NO SLOT FOUND, USE LAST SPARE SLOT 



ADDRESS 0^ THE SAVE AREA 

MARK IT FULL 

OWNERSHIP 

SETUP COPr ADDRESSES 

LENGTH OF ERRUR-LUG INCLUDING ENVELOPE 



ZRQAmj 




V01.6 




; V55 


"» 

t 


; b.*S6 


-> 


S.'b.' 




i 5 756 


3 


; 57SQ 


3 


i '_> /oO 


3 


; S.'bl 


3 


; fi 7t^ 




; 5763 


-» 


; 57t>4 




; 5765 


"} 


; 57** 


4 


; 5 76 : 




; 5/68 


I 


; 57b^ 


3 


; 57 70 


•> 


; 5 .VI 


3 


: 57 7,? 


3 


; 5773 


3 


; 5774 


3 


j 5/75 


* 


; 5 7 76 


3 


: 5777 


3 


; 5778 


4 


; 5779 


4 


; 5780 


4 


s 5781 


4 


; 5 762 


4 


; 5783 


4 


j 5 784 


4 


j 5785 


5 


; 5786 


4 


; 5787 


5 


j 5788 


5 


; 578° 


5 


; 5790 


4 


; 5791 


4 


: 5 792 


4 


i 5793 


4 


; 5 794 


4 


; 5 795 


4 


; 5796 


4 


; 5797 


4 


j 5798 


4 


; 5/99 


4 


; 5800 


4 


j 5801 


4 


; 580? 


4 


; 580 7 


4 


; 5804 


4 


j 5805 


4 


5306 


4 


} 580* 


4 



R0 • RX EXERCISER 

RORX INTERRUPT SERVlCt ROUTINES 

PACKET J.EN » c.P.LEN 1; 

incr COUNT from 1 to .PACKET. I FN do 
beoin 

. OS T .ADDR - . .SRC ADOR j 
SRC. ADDR • .SRC ADDR * «? ; 
DST. ADDR - .DST ADDR ♦ 2\ 
end} 



ll-Ap:*-19B4 11:08:35 

11 Apr -1984 11:08:22 



VAX 11 Bli9S-16 V4.0-579 

DISK $USER? it POWERS 1ZRQAD0.BL2} 6 

! ADJUST LENGTH, IF TOO LONG 



COPY A UORD 

UPDATE ADDRESS POINTERS 



SEQ 0422 
Page 191 
(56) 



\ CHECK IK THE CORRESPONDING RESPONSE HAS ALREADY BEEN RECEIVED 

'f (.SAVE. ADDR TEl _CRN_LO ) eql .LAST.PKT [.ICTLR, LAST CRN LO)) and 

(.SAVE ADDR [EL„CRN„HI) eql .LAST^PKT [.ICTLR, LAST~CRN~HI1) 
then 

begin 

if ,LAST.PK T (.ICTLR, LAST.HRD^ERR ] eql h&D NOT OCCURED 
then 

If .SAVE_ADDR [EL. FORMAT] iequ 4 
then 

begin 

SOFT ERROR ( . indcO; 

TEMP .UNIT ■ .LILfNi 



» LOG REFERS TO THE L ,".',T RESPONSE RECEIVED 
.» IF SOFT ERROR HAD OCCURED 



• UPDATE SOFT ERROR COUNT 

! SAVE UNIT NUMBER AS KNOWN TO DRS 



incr P'FSET from (0 * OF ..UN) to ((UNITS PER CNTR - 1) * UNIT. SIZE » OF .UN) by UNITIZE do 

if (.ICST^ADDR [.OFFSET ► OF. DATA, D_DISK^NUH] eql .SAVE ADOR [EL OK NUM]) and 

(.ICST.ADDR [.OFFSET ♦ OF DATA, D PRES] eql PRESENT) ' " " 

then 

begin 

L$LUN • .ICST.ADDR [.OFFSET * OF DATA, O.UNIT]j J CORRECT UNIT NUMBER FOR ERROR MESSAGE 

e* i t loop: 

endj 

CQ3fi .SAVE.ADOR (EL .FORMAT] from to 4 of 
set 



[0] 



111 ; 



if . AP T MOOE 
then 

ERR SOM.R'Nf APT ( r >0, . indeO 
else 

ERR SOFT RTNE I 50 ) » 

if . AP T MOD* 
then 

tRR.WT .RTNt .APT (51, .*n<te\> 
tRR„5UFT.fUNL UUi 



J CONTROLLER ERROR 



1 H0S1 MEMORY ACCESS fcRRUB 



ZRQAM5 




V01.6 




; 5808 


4 


; 5809 


4 


5 5810 


4 


t 5811 


4 


; 5812 


4 


; 5813 


4 


; 5814 


4 


; 5815 


4 


t 5816 


4 


; 5817 


4 


j 5818 


4 


; 5819 


4 


; 5820 


4 


; 5821 


4 


: 5822 


4 


; 5823 


4 


5824 


4 


; 5825 


4 


; 5826 


4 


; 582 7 


4 


i 5828 


4 


; 5829 


4 


; 5830 


4 


; 5831 


4 


; 5832 


3 


i 5833 


3 


; 5834 


3 


; 5835 


4 


; 583b 


4 


; 5837 


3 


; 5838 


; 


; 5839 


3 


; 5840 


3 


: 5841 


3 


; 5842 


3 


; 584 3 


c 


* 5844 


2 


; 5845 


2 


; 5846 


3 


; 584 / 


3 


j 5848 


3 


; 5849 


2 


; 5850 


3 


j 5851 


i 


; 5852 


¥ 
■J 


; 5853 


t- 


i 5854 


2 


i 5855 


1 



RD/RX EXERCISER 

RORX INTERRUPT SERVICE ROUTINES 

[2] x 



J'l. 

ll-Apr-1984 li:08.35 
ll-Apr-19tf4 11*08:22 



[3] 



[4] 



tes { 



If .APT MOOE 
then 

ERR_SOFT RTNE_APT (52, 

ERR_50FT .RTNE (52*), 

if .APT_M00E 
then 

ERR_SOFT_RTNE_APT (53, 
else 

ERR, SOFT .RTNE (53); 

If .APT MODE 
then 

ERR.SOFT^RTNE .APT (54, 
else 

ERR_SQFT_RTNE ( 54 ) j 



Index ) 



Index) 



index) 



L tlUN • . TEMP UNIT; 
SFT..ERR. PRINTED - TRUE} 
end 

else 

PRINTF (DBM109, .SAVE„AUDR [EL. FORMAT 1); 

if not ( .SFT_ERR. PRINTED) 

then 

PRINTB (CRl F)j 

EMS„EL ( . index); 
end 



else 



VAX-11 Bliss-16 V4.0 579 

DISK $USER2;[ POWERS ]ZRQAD0,BL2; 6 

\ DISK TRANSFER ERROR 



SEQ 0423 
Page 192 
(56) 



! SDI ERROR 



\ SMALL DISK ERROR 



» RESTORE UNIT NUMBER 

! SOFT ERROR PRINTOUT OCCURED 



! ERROR LOG FORMAT UNKNOWN 



} EXTRA CARRIEGE -RETURN/LINE -FEED 

» PRINT PACKET CONTENTS 

♦ CORRESPONDING RESPONSE RECEIVED 



if (.SAVE.ADDR [EL. CRN Hi) Issu .LAST PK T (.ICTlR, LAST CRN HI)) or 
((.SAVL_ADDR [EL_CRN.HI] eql .LAST.PKT (.ICUR, LAST CRN HI]) and 
(.SAVE.ADDR (EL„CRN„L01 lssu ,LAST_PKT (.ICTLR. LAST CRNLO))) 



then 



begin 

PRINTB (CRLf ); 
EMS EL ( .index)» 
end j 



\ LOG REFERS TO SOME PREVIOUS RESPONSE 
.♦ CARRIAGE -RE TURN .'L INE -FEED 
! PRINT PACKET CONTENTS 



end; 



02 7670 



.SHTTl DAIAGM RDRx INTERRUPT SERVICE RUUTlNtS 
.PSECT 5CODE5, RO 



K 



l. 



7RQAM3 




RG/RX EXERCISE 


VOL 6 




RORX INTERRUPT 


OOOOOO 


004137 


OOOOOOG 


000004 


012704 


177777 


000010 


105046 




000012 


005001 




000014 


010146 




000016 


012746 


000102 


000022 


004 73 7 


OOOOOOG 


000026 


022626 




000030 


±05760 


00000 1G 


O0CO34 


001002 




000036 


010104 




000040 


000405 




00004? 


005201 




000044 


020127 


000013 


000050 


003 761 




000052 


005704 




000054 


002002 




000056 


012704 


000014 


000062 


010446 




000064 


012746 


000102 


000070 


004737 


OOOOOOG 


000074 


OS2700 


OOOOOOG 


000100 


C10001 




000102 


111761 


00000 1 


000106 


113711 


000104' 


000112 


013700 


OOOOOOG 


000116 


012705 


000006 


000122 


060005 




0^0124 


012703 


000002 


ocnso 


060103 




000 : 52 


016016 


000006 


000136 


005216 




000140 


012746 


000002 


000144 


004737 


OOOOOOG 


000150 


062700 


000002 


000154 


02002V 


000040 


000160 


101402 




000162 


012700 


U00040 


000166 


005002 




000170 


000401 




000172 


012523 




000174 


005202 




000176 


020200 




000200 


003774 




000202 


013716 


000104- 


000206 


012746 


000006 


000212 


00473 7 


OOOOOOG 


000216 


005 726 




000220 


026160 


000006 000120 


000226 


001402 




000230 


000137 


O50532' 


000^34 


026160 


000040 QQQ122 


000*4^ 


QQ14Q2 





11 Apr 1984 11:08:35 

Il-Apr-I9tf4 lls08{22 



DATAGM: 


:JSR 


R1,*SAVE5 




MOV 


0-1. R4 




CLRB 


(SP) 




CLR 


Rl 


IS: 


MOV 


Rl.-(SP) 




MOV 


0102, (SP) 




JSR 


PC,BL*MUL 




CMP 


CSP)*.(SP)» 




TSTB 


E10G,PKT*1CR0) 




BNE 


21 




MOV 


R1.R4 




BR 


3$ 


2$: 


INC 


PI 




CMP 


R1.013 




BLF 


1$ 




TST 


R4 


St: 


BGE 


4* 




MOV 


014, R4 


4$: 


MOV 


R4.-CSP) 




MGV 


0102, -CSP') 




JSR 


PC,BL$MUL 




ADO 


oelog.pkt.ro 




MOV 


RO.Ri 




MOVB 


(PC),1 U) 




MOVB 


ICTLR.iRl) 




MOV 


IPKT.ADDR.RO 




MOV 


06, R5 




ADD 


R0,R5 




MOV 


02, R3 




ADD 


R1.R3 




MOV 


6(R0),(SP) 




INC 


(SP) 




MOV 


02, CSP) 




JSR 


PC.BLSDIV 




ADD 


02, RO 




CMP 


R0.040 




BLOS 


5S 




MOV 


040.R0 


5$: 


CLR 


R2 




BR 


7$ 


6$; 


MOV 


(R5)»,(R3)* 


7$: 


INC 


H? 




CMP 


R2.R0 




BLL 


6$ 




MOV 


ICRR.CSP) 




MOV 


06, (SP) 




JSR 


PC,BL$MU 




ts: 


( SP ) ♦ 




CMP 


6(Rl),l A5T.PKT*2(R0) 




oea 


8$ 




JMP 


30$ 


bit 


CMP 


10(Rl) f LAST,PKTt4(R0) 




Ht-Q 


9$ 



VAX-11 Bliss-16 V4. 0-579 

DISK $USER2: [POWERS 3ZRQAD0.BL2{6 



{ ♦, INDEX 

; Srr. ERR. PRINTED 

I COUNT 

j COUNT,* 



COUNT, INDEX 

COUNT 
COUNT,* 

INDEX 

*. INDEX 
INDEX,* 



* . SAVE . ADDR 
*,♦( SAVE. ADDR) 
*, SAVE. ADDR 

*, SRC. ADDR 
*. SRC. ADDR 
♦, DST. ADDR 
SAVE. ADDR, DST. ADDR 



; PACKET.LEN.* 

I ♦, PACKET.LEN 
; COUNT 

j SRC. ADDR, DST, ADDR 

; COUNT 

l COUNT, PACKET, I. EN 



SEQ 0424 
Page 193 
(56) 

5702 
5714 

5729 

5731 



5734 
5733 

5729 



5738 

5740 
5746 



5M7 
5748 
5749 



5750 
5751 

5753 

5755 
575 7 

5759 
575? 

5766 



l *(SAVE,ADDR),* 



; *C 4 JAVE.ADDR),* 



5/t^ 



I 1. 



ZUAM3 
VOL 6 

000244 
000250 
0C0254 
000256 
000260 
000264 
000270 
000272 
000274 
000300 
000304 
000310 
000312 
000316 
000322 
000324 
000330 
000332 
000334 
000340 
000342 
000344 
000346 
000352 
000356 
000360 
000364 
000370 
000372 

0003 74 
000400 
000402 
C00406 
000412 
000414 
000420 
000422 
000426 
000430 
000434 

0004 36 
000442 
000444 
000450 
0004 52 
000456 
000460 
000464 
000466 
0004 72 
0004 74 
000500 
000502 



000137 
005760 
001153 
005003 
156103 
02032 f 
101135 
010416 
004737 
013705 
012702 
010200 
063700 
016146 
111046 
042716 
022626 
001012 
032710 
001407 
011046 
000316 
042716 
012637 
000405 
062702 
020227 
003747 
005000 
153700 
0063O3 
066307 
032700 
001403 
012716 
000442 
012716 
000446 
032 700 
001403 
012716 
000431 
012716 
0004 35 
032700 
001403 
012716 
000420 
012/16 
OO04 24 
032 700 
001405 
Q12716 



RO/RX EXERCISER 

RORX INTERRUPT SERVICE 

030540' 
000116' 



000016 
000004 



000000V 
COOOOOG 
000006 

000076* 
000012 

177760 



040000 



177760 
OOOOOOG 

000024 
000102 



001162' 

000012' 
000001 

uOO ^2 
00000. 
000063 
000063 
000001 
000064 
000064 
000001 
000065 







ll-Apr-1984 11:06:35 


:OUTINES 




ll-Apr-1984 11:08:22 




JMP 


31$ 


9$: 


T5T 


LAST.PKT(RO) 




BNE 


28* 




CLR 


R3 




BISB 


16(R1),R3 




CMP 


R3.44 




BHI 


27$ 




MOV 


R4,(SP) 




JSR 


PC, SOFT. ERROR 




MOV 


L$LUN,P5 




MOV 


06, R2 


10$: 


MOV 


R2.R0 




ADD 


ICST.ADDR.RO 




MOV 


12(RL),-(SP) 




MOVB 


(RO).-CSP) 




BIC 


4177760. (SP) 




CMP 


(SP)*,CSP)* 




BNE 


11$ 




BIT 


440000, CRO) 




BEQ 


11$ 




MOV 


(RO).-CSP) 




SUAB 


(SP) 




BIC 


0177760. (SP) 




MOV 


CSP)*,L$LUN 




BR 


12$ 


11$: 


ADO 


024. R2 




CMP 


R2.4102 




BLE 


10$ 


12$: 


CLR 


RO 




BISB 


APT.MODE.RO 




ASL 


R3 




ADD 


P.AAB(R3),PC 


14$: 


BIT 


♦ 1, RO 




BEQ 


15$ 




MOV 


062, (SP) 




BR 


23$ 


15$: 


MOV 


462, (SP) 




BR 


25$ 


16$: 


BIT 


41, RO 




BEQ 


17$ 




MOV 


463, (SP) 




BR 


23$ 


irtt 


MOV 


463, (SP) 




BR 


25$ 


18$: 


BIT 


41 .HO 




BEQ 


19$ 




MOV 


464, (SP) 




BR 


25$ 


19$: 


MOV 


464, (SP) 




BR 


25$ 


20$; 


BIT 


41, RO 




B' Q 


2i$ 




MUV 


065.CSfO 



SEQ 0425 
VAX-11 Bliss-16 V4. 0-579 Page 194 

DISK$USER2:[P0WERS)ZRQADO.BL2j6 (56) 



j *(SAVE.ADDR),* 



INDEX,* 

♦ , TEMP. UNIT 

♦.OFFSET 

OFFSET,* 

*(SAVE,ADDR),* 



; ♦.OFFSET 
; OFFSET,* 



; Cose dispotch 



5773 
5776 

5 779 

5780 
5782 
5784 



5785 
5 788 



5787 
5782 



5 '96 
5792 
5796 
5798 
5800 
5802 
5804 

5808 
5810 

581. ' 
, .8l4 



M 1 



ZRQAM3 
VOL 6 

000506 
000510 
000514 
000516 
000520 
000522 
000526 
000530 
000534 
000536 
000540 
000544 
000550 
000554 
000562 
000564 
000566 
000572 
000576 
000600 
000602 
000604 
000612 
000614 
000620 
000624 
000626 
000630 
000632 
000634 
000640 
000642 
000650 
000652 
000660 
000662 
000670 
000672 
000676 
000702 
000704 
000706 
000/10 
000714 
000716 
000722 



000407 
012716 
000413 
006000 
103007 
012716 
010416 
004737 
005 726 
000404 
07.2716 
004737 
010537 
112766 
000410 
010316 
012746 
012746 
010600 
104417 
022626 
032766 
001007 
012716 
012746 
010600 
104*414 
005726 
010416 
004/37 
000426 
026160 
103410 
026160 
001016 
026160 
103012 
012716 
01? 746 
010600 
104414 
010416 

004 7?/ 

005 1? 
Ot>2 70( 
0002C7 



RO/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 



000,165 



000066 
000000V 



000066 

oooooov 

0OO00OG 
000001 000006 



OOOOOOG 
000002 



000001 000006 

OOOOOOG 
000001 



OOOOOOG 

000010 000122 

000010 00012? 

000006 000120 

OOOOOOG 
0OOO01 

OOOOOOG 
0C0010 







ll-Apr-1984 11:08:35 


0UTINE3 




ll-Apr-19B4 11:08:22 




Bn 


23$ 


21$: 


MOV 


065, (SP) 




BR 


25 1 


22$: 


ROR 


RO 




BCC 


24$ 




MOV 


066, CSP) 


23$: 


MOV 


R4, -CSP) 




JSR 


PC, ERR. SOFT .RTNE.APT 




TST 


(SP)* 




BR 


26$ 


24$: 


MOV 


066. CSP) 


25$: 


JSR 


r^CERR.SOET.RTNE 


26$: 


MOV 


R5,L$LUN 




MOVB 


01.6CSP) 




BR 


28$ 


27$: 


MOV 


R3.CSP) 




MOV 


0DBM109, -(SP) 




MOV 


02, -CSP) 




MOV 


SP,R0 




TRAP 


17 




CMP 


CSP). .CSP)* 


28$: 


BIT 


01.6CSP) 




BNE 


29$ 




MOV 


OCRLf.CSP) 




MOV 


01. (SP) 




MOV 


SP.RO 




TRAP 


14 




TST 


(SP)* 


29$: 


MOV 


R4,(SP) 




JSR 


PC. EMS. EL 




BR 


33$ 


30$: 


CMP 


10(R1),LAST.PKT»4(R0) 


31$: 


BLO 


32$ 




CMP 


10(R1).LAST.PKT»4(R0) 




BNE 


33$ 




CMP 


6(R1),LAST.PKT*2(R0) 




BHIS 


33$ 


32$: 


MOV 


OCRLK.CSP) 




MOV 


01. CSP) 




MOV 


SP.RO 




TRAP 


14 




MOV 


R4 , ( SP ) 




JSR 


PC. EMS. El. 




TST 


( r .P ) ♦ 


33$: 


ADO 


010, SP 




RTS 


PC 



SEQ 0426 
VAX-11 Bliss-16 V4, 0-579 p a oe 195 

DISK$USER2{[P0WERS]2RQAD0,BL2?6 (56) 



5818 
5820 
5822 



i INDEX,* 



TEMP. UNIT.* 
*,SPT. ERR, PRINTED 



j SP,* 

*,SFT.ERR, PRINTED 

SP,* 
; INDEX,* 

; *(SAVE.ADDR),* 

i *(SAVE.ADDR),* 

{ *(SAVE.ADDR).+ 

i 

j SP,* 

j INDEX,* 

i 

J 



5820 
5824 

5828 
5829 
57 76 
5833 



5835 
5838 

5840 

5768 
5845 

5846 

584 7 

5851 

5ar,2 

5850 
5702 



; Routine Size: 234 words, Routine Base: $C0DE$ ♦ <>/670 
: Mo>, mum stock depth per invocation: 14 words 



000012 



.PSECT $PLIT$ 



RO 



D 



ZRQAM3 
VOL 6 



COOOl? 000000 

000014 000022 

000016 000044 

000020 000066 

000022 000110 



RO/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 



P.AAB: 






13$: 


.WORD 







.WORD 


22 




.WORD 


44 




.WORD 


66 




.WORD 


110 



Nl 



ll-Apr-1984 llj06;35 
ll-Apr-1984 11s08j22 



VAX-11 Bliss 16 V4. 0-579 
DISKIUSER2: [ POWERS JZRQADO ,BL2j6 



j CASE Table 

i [14$] 

; ri6«i 

J [18$] 

t [20$] 

i C22$] 



for DATAGM+0402 



SEQ 0427 
Page 196 
(56) 

5792 



5856 1 

5857 I 

5858 1 



•r m 






*->-uc_- **;.£, ir 



«V'1#>4*. i ., . J£ £ r*V'v^ 



fV.2.V ***•'■-" ^>:>^i 



. **** 



* -*"■ 



w-'t* 



•?*■**, V " 



-t» -v AU-ti" . 



.»r r -''j^ui .-*!•*■ 



?RQAM3 




VOl, 6 




i 5859 


1 


; 5860 


1 


j 5861 


1 


j 58*2 


1 


; 5865 


1 


j 5864 


1 


; 586S 


1 


j 5866 


1 


{ 5867 


1 


; 5868 


1 


5 586* 


i 

«_ 


$ 5e^o 




; 58 VI 


■"I 


; 58 7^ 




; 58 75 




; 5874 




; 5875 


2 


i 5876 


2 


; 5877 


2 


j 5878 


2 


; 5879 


2 


; 5880 


5 


; 5881 




; 5882 


2 


; 5883 


2 


; 5884 


2 


i 5885 


2 


; 5886 


3 


; 588 7 


c 


5888 


t- 


; 5889 


2 


5690 


2 


; 5891 


L. 


i 5892 


2 


; 5893 


2 


; 5894 


2 


; 5895 


2 


; 5896 


2 


5 589? 


2 


; 5898 


2 


; 5899 


3 


; 5900 


2 


; 5901 


3 


j 590? 


3 


; 5905 


3 


; 5904 


3 


; 5905 


2 


; 5906 


? 


; 5907 


2 


; 5908 


L 


; 5909 


2 


; 5910 


2 


I »11 


2 



RD/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 

GLOBAL routine SOFT.ERROR ( indeO s novalue 



ll-Apr-1984 11:08*35 
ll-Apr-1984 11:08:22 



VAX-11 Bllss-16 V4. 0-579 

DISK IUSFR2 { [ POWERS ] ZRQADO , BL2 1 6 



SEQ 0428 
Paoe 19/ 
(57) 



THIS ROUTINE UPDATES THE SOFT ERROR COUNT IN THE TALLY TABLE FOR EACH 
ERROR LOG MESSAGE RECEIVED 



IMPLICIT INPUTS; 
ICST„ADDR 



ADDRESS OF THE INTERRUPTING CONTROLLER'S CST 



begin 



local 

FOLND: byte initial (byte (FALSE)), 

SOFT.OCCURED : byte initial (byte (FALSE)), 

UNIT: »ord, 

ERROR.COOE : byte, 

ERROR.SUB : word, 

RETRIES : word, 

TALLY. ADDR j ref block [TALLY.LEN. word! field (T FIELDS), 

ElOG.ADDR : ref block [EP_LEN, word) field (EP„FIELDS)| 

ELOG.ADOR - ELOG.PKT ♦ (.Index * EP LEN * 2)j 
ERROR„CODE - .ELOG.ADDK [EL CODE ] i 
ERROR.SIB - .ELOG.ADDR [EL .SUBCODE ] : 

if (BIT.TST CSWP.FLAGS, SWF TRY)) and 
(.ELOG.ADDR [EL FORMAT) eql 2) 

then 

RETRIES - .ELOG..ADDR [EL .RETRY] 
else 

RETRIES - lj 

if .RETRIES eql 
then 

RETRIES - I; 

incr OFFSET from (0 ♦ OF. .UN) to ((UNITS PER CNTR \) ♦ uNH_Sl/t • OF .UN) by UNIT.SIZI do 

if (.ICST.ADDR [.OFFSET ♦ 0F_DATA, D.PRES] eql PRFSENT) and 

(.ICST.ADDR [.OFFSET ♦ OF^DATA, D.DISK.NUM] eql .FLOG ADDR (EL QK NUM ] ) 
then 

begin 

FOLNO - TRUE j 

UNIT • .ICST_ADDR [.OFFSET * (JF^DATA, C.UNIT); 

ex • t loop] 

end j 

if (.ELOG.ADDR [El .SUCCESS ] ) or 

(.ELOG.ADDR [Ft CONTINUE]) 
then 

SOFT.OCCURED » TRUEj 



! ADDR OF ERROR PKT 
! ERROR COOC 
! ERROR SUBCODE 



! COUNT EACH RETRj 
J IGNORE RETRIES 
I IN CASE OF A BUG 



» DISK TO UNIT NO 



! OTSK' S UNIT NO. 



• SO T LRROR H_Atf 



Cr 



/ROAM 5 




VOl. ft 




5 591? 


2 


; 591? 


2 


j 5914 


3 


; 5915 


3 


; 5916 


3 


; 5917 


3 


; 5918 


3 


5 5919 


3 


59?0 


3 


5921 


3 


5922 


3 


i 5933 


3 


; 5934 


3 


; 5925 


3 


; 5926 


3 


; 5927 


3 


i 5926 


3 


; 5929 


3 


i 5930 


3 


; 5931 


3 


5932 


3 


j 5933 


3 


; 5934 


3 


; 5935 


3 


i 5936 


3 


j 5937 


3 


; 5938 


3 


; 5939 


3 


j 5940 


3 


; 5941 


3 


; 5942 


3 


; 594 3 


3 


; 5944 


4 


5945 


3 


; 5946 


3 


594 7 


3 


; 5948 


3 


i 5949 


3 


; 5950 


3 


I 5951 


3 


; 5952 


3 


; 5953 


3 


; 5954 


3 


5955 


3 


; 5956 


3 


; 5957 


3 


; 5958 


3 


; 5959 


3 


{ 5960 


3 


; 5961 


3 


: 5962 


3 


; 596 5 


* 


i 5964 


: 5 



RD'RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 



11 Apr 1984 11 :08* 55 
ll-Apr-1984 lls08:22 



If .FOUND 
then 

begin 

TALLY, ADDR 



TALLY ♦ (.UNIT ♦ TALLYMEN * 2)j 



If .SOFT OCCURED 
then 

selectoneu .ERROR.CODE of 
set 



VAX. H Bliss 16 V4. 0-579 SF *°Pw 9 l98 
DISK$USER2j[P0UfcRS]ZRQAD0.BL?j6 (57) 

J IF UNIT FOUND 



! ADDR OF TALLf TBI 
• FOR SOFT ERRQRRS 



rST.MFEh 

[ST.DATh 



TALLY^AODR [FRR„SFT _SEK ] - .TAUY.ADDR [ ERR. .SFT .SEK ] ♦ .RETRIESi! SOFT -MEDIA FORMAT 



• SOFT -DATA 



else 



fST.HST); 
[ST.CNTIi 

[ST .DRV]; 



tes 



If ,ERROR_SUB eql 2 
then 

TALLY_ADDR [ERR^SFT _SEK ] • . TALLY. AODR [ERR SFT SEK] f .RETRIED 
else 

TALLY, ADDR [ERR„SFT„DAT ] - .TALLY_ADDR [ ERR SFT_DAT ] - .RETRIESi 

TALLY.ADDR [ ERR.SFT^HST ] » . TALLY, ADDR [ERR, SFT . HST ] ♦ .RETRIESi! SOFT-HOST ACCESS 

C_ERR,TBL [.ICTLR, C.ERR.SFT] • C..ERR..TBL f. ICTLR, C. ERR. SFT] ♦ .RETRIESi 

! SOFT CONTROLLER 



If .ERROR SUB eql 3 
then 

TALLY, ADDR [ ERR,SF T _SEK ) - .TALLY ADDR [ERR SFT SEK) ♦ .RETRIES 
else 

TALLY..ADDR [ERR„SFT_DRV ] ■ ,TALLY_ADDR [ERR SFT DRV) ♦ .RETRIES} 



! SOFT^DRIVE 



if (.ELOG_ADDR [EL..CRN.LO] eql 0) and 

(,ELOG_ADDR [EL.CRN.HIl eql 0) 
then 

sel«ctoneu .ERROR CODE of 
set 



[ST MFE1: 
[ST^DATlt 



[ST.HST]: 
(ST.CNT1: 

iSUQRVk 



TALLY. ADDR [ERR..HRD SEK ] - . TALLY _ADDR I ERR..HR0,SEK ] ► lj 

If .ERROR, SUB eql 2 
then 

TALL>,ADDR [ERR . KRD .SEK ] - .TALLY ADDR [ERR HRD SEK] ♦ I 
else 

TALI t ADDR [ ERR HRD , DAT ] - .TAl.Ll.ADOR [ERR HRD_DAT ] . l, 

TALLY. ADDR [ERR. HRD HST] - .TALLY ADDR [ ERR HRD .HST ] * 1; 

C..ERR..TBL [.ICTLR. C.ERR..HRD] - ,C_ERR.TBL. t. ICTLR, C..ERR..HRD1 



! HARD MEDIA FORMAT 
! HARD -DATA 



If . ERROR _SU6 eql 5 
then 

TALLY .ADDR [ERRjiRD-StKl 



• HARD -MUST ACCESS 

li 
■ HARD CON T ROLLLR 

I HARQ-URXVE 



iTALLuADQR (LRR.HRO^ShK] * I 



I) 2 



JRQAM5 




V01, 6 




; 5965 


3 


; 5966 


3 


j 596/ 


3 


; 5968 


3 


; 5969 


3 


j 5970 




i 5971 




5972 


■y 


; 5975 


2 


; 5974 


••> 


j 5975 


2 


; 5976 




; 5*7 7 


2 


j 5978 


1 



RO/RX EXERCISER 

RORX INTERRUPT SERVICE ROUTINES 



11 Apr~1984 11:08:35 
ll^Apr-1984 11*08(22 



VAX-ll Bliss 16 V4.0 579 

DISK IUSER2:[ POWERS ]ZRQAD0.BL2*6 



SEQ 04 30 

Pog* 199 
(57) 



else 



tesj 



TALLY,ADOR fERR„HRD„DRV] « , TALLY..ADDR (ERR JHRD_DRV) * lj 



else 



end 



! UNIT NOT FOUND 



If .SOFT..OCCURFD 
then 

C„ERR_TBL [.ICTLR, C_ERR_SFT] - .C_FRR_TBl f.ICTLR. C ERR SF r ] ♦ 1 
else 

CERR,TBL (.ICTLR, C.HRR.HRD] ■ ,C_ERR^TBL [.ICTLR, C..ERR..HRD) ♦ 1 } 



end; 



! RTNE SOFT. ERROR 



030614 

000000 004137 OOOOOOG 



000004 
000006 
000010 
000012 
000016 
000022 
000026 
000032 
000034 

000040 
000044 
000046 
000050 
000054 
000056 
000060 
000062 
000064 
000066 
000072 
000076 
000102 
000106 
000110 
000116 
000120 
000122 
000126 
000130 
000134 
000136 
000140 



005746 
105046 
105046 
016646 
012746 
004737 
062700 
010001 
116100 
042700 
105003 
050003 
016105 
006205 
006205 
006205 
006205 
006205 
042705 
013700 
042700 
020027 
001010 
126127 
001004 
005004 
156104 
000402 
012704 
005704 
001002 
012704 



000024 
000102 
OOOOOOG 
OOOOOOG 

000020 
177740 



000020 



1 74000 
OOOOOOG 
077777 
100000 

000016 000002 

000051 
000001 

000001 



.S3TTL 
.PSECl 

SOFT . ERROR:; 
JSR 
TST 
CLRB 
CLRB 
MOV 
MOV 
JSR 
ADO 
MOV 
MOVB 
BIC 
CLRB 
BIS 
MOV 
ASR 
ASR 
ASR 
ASR 
ASR 
BIC 
MOV 
BIC 
CMP 
BNE 
CMPB 
BNE 
CLR 
BIS8 
BR 
II: MOV 

2$: TST 

BNt 
MOV 



SOFT, ERROR RDRX 
tCODE*. RO 



R1.JSAVE5 

-CSP) 

-CSP) 

*(SP) 

24(SP),-(SP) 

•102, -(SP) 

PC.BL$MUL 

OELOG.PKT.RO 

R0.R1 

20(R1).R0 

• W7740.RO 
R3 

R0.R3 

20(R1),R5 

R5 

R5 

R5 

R5 

R5 

• W4000.R5 
SWP.FLAGS.RO 
07/77/, RO 
RO. 0-100000 

n 

16(R1),02 
1$ 

R4 

51(R1),R4 

?% 

01, R4 

R4 

3* 

01, R4 



INTERRUPT SERVICE ROUTINES 



l FOUND 

i SOFT.OCCURED 

; INDEX.* 



I *.ELOG.ADDR 
j ♦(ELOG.ADDR),* 

I ERROR. CODE 

j *, ERROR. CODE 

i *(ELOG.ADDR), ERROR. SUB 

j ERROR. SUB 

j ERROR, SUB 

t ERROR. SUB 

I ERROR. SUB 

; ERROR. SUB 

I *, ERROR, SUB 



i *(F.LOG.ADDR),* 

j RETRIES 

i *(FLOG.ADDR), RETRIES 

l *. RETRIES 
; RETRIES 

j *, RETRIES 



5859 
5869 
5881 



5883 



5885 

588b 

5898 

5885 
5390 
5$9 t % 

58^*i 



F '-> 



C. 



ZRQAM5 
VOL 6 

000144 
000150 
00015? 
000156 
000162 
000164 
000170 
000172 
000176 
000200 
000i!02 
000210 
000212 
000214 
000220 
000224 
000226 
000232 
000236 
000240 
000246 
000254 
000256 
000262 
000266 
000272 
000276 
000302 
000310 
000312 
000316 
000320 
000324 
000326 
000332 
000334 
000340 
000342 
000344 
000346 
000350 
000352 
000354 
000356 
000362 
000364 
000370 
0003 72 
000376 
000400 
00040? 
000406 
000410 



RO/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 



11 -Apr- 1984 11:08:35 
ll-Apr-1964 11:08:22 



VAX -11 Bliss-16 V4. 0-579 SEQ p22« l 200 
DISK$USER2:[P0WERS]ZRQAD0.BL2j6 (57) 



012702 
010200 
063700 
032710 
001421 
016146 
111046 
042716 
022626 
001012 
112766 
011046 
000316 
042716 
012666 
000405 
062702 
020227 
003744 
112766 
032766 
001002 
000137 
016616 
012746 
004737 
062700 
032766 
001503 
120327 
001462 
120327 
001022 
012702 
060002 
020527 
001005 
005001 
151201 
060401 
110112 
00054 3 
005001 
156201 
060401 
110162 
OO0534 
120327 
001007 
005001 
156001 
060401 
110160 



000006 


3$: 


MOV 


06, R2 




4$; 


MOV 


R2,R0 


000076' 




ADD 


ICST.AQDR.RO 


040000 




BIT 


040000, (RO) 






BEQ 


5$ 


000012 




MOV 


12CR1), (SP) 






MOVB 


(RO).-(SP) 


177760 




BIC 


0177760, CSP) 






CMP 


csp)»,csp)» 






BNE 


51 


000001 000006 




MOVB 


0l,6CSP) 






MOV 


(RO), -(SP) 






SWAB 


(SP) 


177760 




BIC 


0177760, (SP) 


000010 




MOV 


(SP)*,10(SP) 






BR 


6$ 


000024 


5*: 


ADO 


024, R2 


000102 




CMP 


R2.O102 






BLE 


4* 


00000 t 000004 


6$: 


MOVB 


01,4(SP) 


000001 000006 




BIT 


01,6(SP) 






BNE 


7$ 


031502' 




JMP 


22i 


000010 


7$: 


MOV 


10(SP),(SP) 


000066 




MOV 


066, -(SP) 


OOOOOOG 




JSR 


PC.BLiMUL 


OOOOOOG 




ADO 


OTALLY.RO 


000001 000006 




BIT 


01.6CSP) 






CEQ 


14$ 


000005 




CMPB 


R3.05 






BEQ 


12$ 


000010 




CMPB 


R3.010 






BNE 


9$ 


000052 




MOV 


052, R2 






ADO 


R0.R2 


000002 




CMP 


R5,02 






BNE 


8$ 






CLR 


Rl 






BISB 


(R2),R1 






ADD 


R4.R1 






MOVB 


R1.CR2) 






BR 


^1$ 




8*: 


CLR 


Rl 


000001 




BISB 


1(R?),R1 






ADD 


R4.R1 


000001 




MOVB 


R1.KR2) 






BR 


21$ 


000011 


9$: 


CMPB 


R3.011 






BNE 


10$ 






CLR 


Rl 


000055 




BISB 


55(R0),Rl 






ADD 


R4,R1 


000055 




MOVB 


R1.55CR0) 



I *, OFFSET 
J OFFSET,* 



♦ CELOCADDR),* 



t *, FOUND 



i *,UNIT 

; ♦.OFFSET 

I OFFSET,* 

i *.S0FT.0CCURED 

\ *,E0UND 



; UNIT,* 

{ *.S0FT.0CCURED 
: ERROR, CODE,* 
{ ERROR. CODE,* 



l TALLY. ADDR.* 
} ERROR. SUB,* 



l 



1 RETRIES,* 



: RETRIES,* 



j ERROR .CODE,* 



I ♦( TAL LI , ADDR),* 

j RETRIES.* 

* ♦,*( TALLY, ADDR) 



5896 
5898 



5899 



5902 
5903 



5901 
5896 



5910 
5912 



5915 

5917 
5922 
5924 
5926 
5924 
5926 



5924 
5926 



591^ 
5930 



V?. 



ZRQAM5 
VOL 6 

000414 
000416 
000422 
000424 
000430 
000432 
000434 
000440 
000442 
000446 
000450 
000454 
000456 
000462 
000464 
000466 
0004 72 
0004 74 
000500 
000502 
000504 
000510 
000512 
000516 
000520 
000524 
000526 
000532 
000534 
000540 
000542 
000546 
000550 
000554 
000556 
000562 
000564 
000566 
000570 
000574 
000576 
000602 
000604 
000610 
000612 
000616 
000620 
000624 
000626 
000632 
000634 
000640 
000642 



000522 
120327 
001012 
013702 
006302 
005001 
156201 
060401 
110162 
000505 
120327 
001102 
020527 
001007 
005001 
156001 
060401 
110160 
0004 70 
005001 
156001 
060401 
110160 
000461 
005761 
001056 
005761 
001053 
120327 
001443 
120327 
001013 
012704 
060004 
020527 
001002 
105214 
000435 
105264 
000432 
120327 
001003 
105260 
000424 
120327 
001006 
013702 
006302 
105262 
000413 
120327 
001010 
020527 



RD/RX EXERCISER 

RDRX INTERRUPT SERVICE 



000012 
000104' 

00000 1G 
00000 1G 
000013 
000003 

000052 
000052 

000054 
000054 
000006 
000010 
000005 
000010 
000046 
000002 

000001 

000011 

000051 

000012 

000104' 

OOOOOOG 

000013 

000003 







ll-Apr-1984 11:08:35 


ROUTINES 




11 -Apr -1964 11:06:22 




BR 


21$ 


10$; 


CMPB 


R3.012 




BNE 


11$ 




MOV 


ICTLR.R2 




ASL 


R2 




CLR 


Rl 




BISB 


C.ERR.TBLfKR2),Rl 




ADD 


R4.R1 




M0V8 


R1,C,ERR.TBL*1(R2) 




BR 


21$ 


11$: 


CMPB 


R3.013 




BNE 


21$ 




CMP 


R5.03 




BNE 


13$ 


12$: 


CLR 


Rl 




BISB 


52(R0),R1 




ADD 


R4.R1 




MOVB 


R1.52CR0) 




BR 


21$ 


13$: 


CLR 


Rl 




BISB 


54(R0),R1 




ADD 


R4.R1 




MOVB 


R1.S4CR0) 




BR 


21$ 


14$: 


TST 


6CR1) 




BNE 


21$ 




TST 


10CR1) 




BNE 


21$ 




CMPB 


R3.05 




BEQ 


19$ 




CMPB 


R3.010 




BNE 


16$ 




MOV 


$46, R4 




ADD 


R0.R4 




CMP 


R5,$2 




BNE 


15$ 




INCB 


(R4) 




BR 


21$ 


15$: 


INCB 


1CR4) 




BR 


21$ 


16$: 


CMPB 


R3.G11 




BNE 


17$ 




INCB 


SKRC) 




BR 


21$ 


17$; 


CMPB 


RS,#12 




BNE 


18$ 




MOV 


ICRR.R2 




ASL 


R? 




INCB 


C.ERR. TBLCR2) 




BR 


21$ 


16$: 


CMPB 


R3.013 




BNt 


21$ 




CMP 


R5,03 



SEQ 0432 
VAX-11 Bliss-16 V4. 0-579 p a a e 201 

DISKIUSER2: [POWERS ]ZRQAD0.BL2$6 (57) 



\ ERROR. CODE,* 



5919 
5932 



j RETRIES,* 

\ ERROR. CODE,* 
j ERROR. SUB,* 

! *( TALLY. ADDR),* 

; RETRIES.* 

I *,*( TALLY. ADDR) 

{ 

J 

♦ (TALLY, ADDR),* 

RETRIES.* 

*.*( TALLY. ADDR) 

j ♦(ElOG.ADDR) 
I *CEl.OG,ADDR) 
s ERROR. CODE,* 
i ERROR. CODE,* 



i TALLY. ADDR,* 
i ERROR. SUB,* 



I ERROR. CODE •• 
l *C TALLY. ADDR) 
i ERROR. CODE,* 



I ERROR. CODE,* 
I ERROR. SUB,* 



5919 
5935 



5937 



5935 
5939 



5919 
594 3 

5944 

5949 

5051 

5953 

5951 

5953 
5951 
5955 
594o 
595" 



5^4t> 
5959 



5^4t- 



G2 



ZRQAM3 
V01 .6 

000646 
000650 
000654 
000656 
000662 
000664 
000666 
000672 
000674 
000700 
000706 
000710 
000714 
000 716 
000720 
000724 



001003 
105260 
000402 
105260 
005 726 
000415 
013700 
006300 
062700 
032766 
001403 
105260 
000401 
105210 
062706 
000207 



RD/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 

000046 
000050 



11 Apr-1984 11:08:35 
ll-Apr-1954 11:03:22 



000104' 

OOOOOOG 
000001 

000001 



000012 



000004 





BNE 


20$ 


19$: 


INCB 


46(R0) 




BR 


21$ 


20$ j 


INCB 


50(R0) 


21$: 


TST 


CSP)* 




BR 


24$ 


22$: 


MOV 


ICTLR.RO 




ASL 


RO 




ADD 


OC.ERR.TBL.RO 




BIT 


01.4CSP) 




BEQ 


23$ 




INCB 


KRO) 




BR 


24$ 


23$: 


INCB 


(RO) 


24$: 


ADD 


012.SP 




RTS 


PC 



VAX -11 Bliss-16 V4. 0-579 

DISK IUSER2: 1 POWERS ]ZRQAD0.BL2|6 

j ♦(TALI t.ADDR) 
j *( TALLY, ADDR) 



j * # SOFT.OCCURED 



SEQ 0433 
Page 202 
(57) 



5964 
5962 
5966 
5914 
5912 
5974 



5972 

5974 
59 72 
59 76 
5859 



; Routine Sire: 235 words, Routine Base: $CODE$ * 30614 
j Maximum stock depth per invocation: 13 words 



w ,> 



ZRQAM3 




V01, 6 




j 5979 


1 


; 5980 


1 


; 5981 


1 


; 596V 


1 


: 5983 


1 


; 5984 


1 


; 5985 


1 


; 5986 


2 


; 598 7 


2 


; 5988 


C- 


5989 


2 


: 5990 


2 


j 5991 


2 


; 5992 




; 5993 


2 


; 5994 


2 


; 5995 


2 


; 5996 


2 


; 599? 




; 5998 


2 


; 5999 


2 


i 6000 


3 


j 6001 


2 


; 6002 


2 


I 6003 


3 


; 6004 


"» 

t 


: 6005 


2 


; 60C6 


2 


6007 




6008 


2 


; 6009 




; 6010 


2 


; 6011 


2 


I 601? 


2 


; 6013 




; 6014 


L. 


; 6015 


2 


; 6016 


2 


; 6017 


2 


: 6018 


2 


: 6019 




; 6020 


1 


; 6021 


2 


; 6022 


2 


: 6023 


2 


6024 


2 


; 6025 


2 


; 6026 




; 602 7 


c. 


j 6028 


1- 


; 6029 


2 


; 6030 


2 


J 6031 


2 



RO/RX EXERCISER 

RORX INTERRUPT SERVICE ROUTINES 

routine ERR.HRD..RTNE (ERRNUM) ; novalue 



ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bllss-16 V4, 0-579 

DISK *USER2:[ POWERS )ZRQAD0.BL2} 6 



SEQ 04 34 
Pacje 203 
(58) 



THIS ROUTINE DECIDES WHETHER TO ISSUE AN 'ERRHRD' MACRO CALL TO DRS OR TO TAKE 
THE SAME EFFECT WITHOUT ISSUING THE CALL 



begin 

local 

CUR.PRIORITY 

bui It in 
PC; 



word: 



GETPRI (CUR. PRIORITY)} 
SETPRI (PRI04): 

if ( .ERRNUM lequ 34) or 

( .ERRNUM gtru 38) or 

( .ERRNUM eql 36) or 

C .ERRNUM eql 37) 
then 

if B1T_TST (SWPJ-'LAGS, 5WF_HRD) 
then 

case .ERRNUM from 31 to 45 of 

set 



[31] 

r 32] 

r 33) 

[34] 
135) 
[36) 
[37) 
[38) 
[39] 
[40] 
[41] 
[42] 



ERRHRD (51, EGH_30. EMS. 30) j 
ERRHRD (32, EGH ..30, EMS_30)j 

J 



ERRHRD (36, EGH. 30, EMS. 30); 

ERRHRD (37, EGH 30, EMS..30)} 

« 

ERRHRD (39, EGH 30, EMS 30)} 

ERRHRD (40, EGH _ 30, EMS. 30)} 

ERRHRD (41. EGH. 30, EMS.50)| 

ERRHRD (42, EGH_30, 0)| 



! DON'T ALLOW S0FT_ERR0R MESSAGES TO COME IN NOW 
! FOR NON-BAD BLOCK TYPE ERRORS 



J IF ERRORS TO BE TREATED NORMALLY 



INVALID COMMAND 
COMMAND ABORTED 



MEDIA FORMAT ERROR 

WRITE PROTECTED 

COMPARE ERROR 

DATA ERROR 

HOST BUFFER ACCESS ERROR 

CONTROl LER ERROR 

DRIVE. t-RROR 

HOST WRITE COMPARE ERROR 



12 



ZRQAM3 
V0U6 



6032 
6035 
6034 
6035 
6036 
603 7 
6038 
6039 
6040 
6041 
6042 
6043 
6044 
6045 
6046 
604/ 
6048 
6049 
6050 
6051 
605? 
6053 
6054 
6055 
6056 
6057 
6058 
6059 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6068 
6069 
6070 
60/1 
60/2 
60/3 
6074 
60/5 
6076 



3 
3 

3 

3 

3 
4 
4 
4 
3 
2 
2 
2 
3 
2 
2 

3 

~» 

t~ 

2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
2 
2 
2 
2 
1 



RD/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 



11 -Apr 1984 11:08:55 
ll-Apr-1984 11:08:22 



VAX-11 B1I99-16 V4. 0-579 

DISK *USER2:[ POWERS ]ZRQAD0.BL2{ 6 



SEQ 0435 
Page 204 
(58) 



else 



[43] 

f44] 

[45] 
tes 



ERRHRD (43, EGH„30, EMS_30)j 
ERRHRD C44, EGH.30, EMS .30)} 
ERRHRD (45, EGH_30, EMS_30) } 



beQin 

• **** I ncrement error count 

PRINTB (HRD_MSG, .ERRNUM, .LJLUN, .PC)| 

if .ERRNUM neq 42 
then 

begin 

PRINTB (HRD SUB)} 

EMS_ERR ()»~ 

end: 
end j 

if (.ERRNUM eql 35) or 

(.ERRNUM eql 38) 
then 

if BIT..TST (SWP..FLAGS, SWF.BUO 
then 

selectoneu .ERRNUM of 
set 



else 



[351: 

[381: 
tes 



ERRHRD (35. EGH_30. EM5.30)} 
ERRHRD (38, EGH_30, EMS„30)} 



begin 

• **** increment error count 

PRINTB (HHD.MSG, .ERRNUM, ,L$LUN, .PC)} 

PRIN6 (HRD.SUB)} 

EMS_ERR (){ 

end} 



SETPRI (.CUR.PRXQRXTY), 
end} 



! MESSAGE FROM INTERNAL. DIAGNOSTICS 
! DUPLICATE UNIT NUMBER 
! INVALID END CODE 



! INCREMENT TOTAL ERROR COUNT 

! PRINT ERROR MESSAGE JUST LIKE DRS 



! NEXT LINE FOR NCM-HOST COMPARE ERRORS 
! PRINT REST OF THE INFORMATION 



} FOR BAD -BLOCK TYPE ERRORS 



! IF ERRORS TO BE TREATED NORMALLY 



• MEDIA FORMAT ERROR 
! DATA ERROR 



! INCREMENT TOTAL ERROR COUNT 
I PRINT ERROR LINE JUST LIKE DRS 
! PRINT NEXT LINE TOO 
! PRINT REST OF THE INFORMATION 



! PRIORITY BACK TO NORMAL 



000000 004137 OOOOOOG 

000004 104440 

000006 010002 

OOOOIO 0X2700 000200 



.SBTTL 


ERR. HRD. R 


ERR.HRD.RTNF: 




JSR 


R1.$SAVE2 


TRAP 


40 


MOV 


P0.R2 


MOV 


ft2QQ,RQ 



ERR.HRD.RFNE RDRX XNTLRRUPT SERVICL RUUTINES 



*iCUR*PRXQRXTY 



59/^ 
5*)S 



JP. 



7RQAM3 
VOL 6 

000014 
000016 
000022 

oooo^o 

vu0030 
000054 
000036 
000042 
000044 
000050 
000052 
000060 
000062 
000064 
000070 
000072 
000076 
000100 
000102 
000104 
000106 
000110 
000112 
000114 
000116 
000120 
000122 
000124 
000126 
000130 
000132 
000134 
000136 
000140 
000142 
000144 
000146 
000150 
000152 
000154 
000156 
000160 
000162 
000164 
000166 
000170 
000172 
000174 
000176 
000200 
000202 
000204 
000206 



104441 

016601 

020127 

ivim 

020127 

101006 

020127 

001403 

020127 

001131 

032737 

001475 

010100 

162700 

006300 

066007 

104456 

000037 

000000G 

OOOOOOG 

000512 

10<456 

000040 

OOOOOOG 

OOOOOOG 

000505 

104456 

000044 

OOOOOOG 

OOOOOOG 

000500 

104456 

000045 

OOOOOOG 

OOOOOOG 

0004 73 

104456 

00004 7 

OOOOOOG 

OOOOOOG 

000466 

104456 

000050 

OOOOOOG 

OOOOOOG 

000461 

104456 

000051 

OOOOOOG 

OOOOOOG 

000454 

10*456 

000052 



RD/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 



000010 
000042 



11 -Apr 1984 11:08:35 
ll-Apr-1984 11:08:22 



VAX-11 Bliss-16 V4. 0-579 SEQ Paae 6 205 
DISKiUSER2:[P0WERS]ZRQAD0.BL2}6 (58) 



000046 
000044 



000045 



010000 OOOOOOG 



000037 



1*! 



000024 ' 



**! 



4$: 



5$: 



6$: 



7$: 



8$: 



9$: 



10$: 



TRAP 


41 


MOV 


10(SP),R1 


CMP 


R1.042 


BLOS 


1$ 


CMP 


R1.046 


BHI 


1$ 


CMP 


R1.044 


BEQ 


11 


CMP 


R1.045 


BNE 


16$ 


BIT 


010000. SWP. FLAGS 


BEQ 


14$ 


MOV 


Rl # R0 


SUB 


037, RO 


ASL 


RO 


ADO 


P,AAC(RO),PC 


TRAP 


56 


.WORD 


37 


.WORD 


EGH.30 


.WORD 


EMS. 30 


BR 


16$ 


TRAP 


56 


.WORD 


40 


.WORD 


EGH.30 


.WORD 


EMS. 30 


BR 


16$ 


TRAP 


56 


.WORD 


44 


.WORD 


EGH.30 


.WORD 


EMS. 30 


BR 


16$ 


TRAP 


56 


.WORD 


45 


.WORD 


EGH.30 


.WORD 


EMS. 30 


BR 


16$ 


TRAP 


56 


.WORD 


47 


.WORD 


EGH.30 


.WORD 


EMS, 30 


BR 


16$ 


TRAP 


56 


.WORD 


50 


.WORD 


EGH.30 


.WORD 


EMS, 30 


BR 


16$ 


TRAP 


56 


.WORD 


51 


.WORD 


EGH.30 


.WORD 


EMS. 30 


BR 


16$ 


TRAP 


56 


.WORD 


52 



j ERRNUM,* 



: Cose dispatch 



5997 

5998 
5999 
6000 
6003 
6006 

6009 



6006 
6011 



6006 
6019 



6006 
6021 



6006 
6025 



6006 
6027 



6029 



r^OOti 

t>05l 



K? 



ZRQAM3 




RO/RX EXERCISER 


V01. 6 




RURX INTERRUPT 


000210 


OOOOOOG 




000212 


000000 




000214 


00044 7 




000216 


104456 




000220 


000053 




000222 


OOOOOOG 




000224 


OOOOOOG 




000226 


000442 




0GO230 


104456 




000232 


000054 




000234 


OOOOOOG 




000236 


OOOOOOG 




000240 


000435 




000242 


104456 




000244 


000055 




000246 


OOOOOOG 




000250 


OOOOOOG 




000252 


000430 




000254 


010746 




000256 


013746 


OOOOOOG 


000262 


010146 




000264 


012746 


OOOOOOG 


000270 


012746 


000004 


000274 


010600 




000276 


104414 




000300 


020127 


000052 


000304 


001411 




000306 


012716 


OOOOOOG 


000312 


012746 


000001 


000316 


010600 




000320 


104414 




000322 


004737 


OOOOOOG 


000326 


005726 




000330 


062706 


000012 


000334 


020127 


00004 3 


000340 


001403 




000342 


020127 


000046 


000346 


001050 




000350 


03273/ 


040000 OOOOOOG 


000356 


001420 




000360 


020127 


000043 


000364 


001005 




000366 


104456 




000370 


00004 3 




000372 


OOOOOOG 




000374 


OOOOOOG 




0003 76 


000434 




000400 


020127 


000Q46 


000404 


001031 




000406 


104456 




000410 


000046 




00041? 


OOOOOOG 




000414 


OOOOOOG 





SERVICE ROUTINES 



11$: 



4.2*2 



13$: 



14$ j 



15$: 

16$: 



17$: 



15$; 



ll-Apr-1984 
ll-Apr-1984 

.WORD EGH.30 

.WORD 

BR 16$ 

TRAP 56 

.WORD 53 

.WORD EGH.30 

.WORD EMS, 30 

BR 16$ 

TRAP 56 

.WORD 54 

.WORD EGH.30 

.WORD EMS. 30 

BR 16$ 

TRAP 56 

.WORD 55 

.WORD EGH.30 

.WORD EMS. 30 

BR 16$ 

MOV PC.-CSP) 

MOV L$LUN,-(SP) 

MOV Rl.-CSP) 

MOV OHRD.MSG.-CSP) 

MOV 04, -(SP) 

MOV SP.RO 

TRAP 14 

CMP R 1,052 

BEQ 15$ 

MOV OHRD.SUB.CSP) 

MOV 01. (SP) 

MOV SP.RO 

TRAP 14 

JSR PC, EMS. ERR 

TST (SP^ 

AOD 012, SP 

CMP R1.043 

BEQ 17$ 

CMP R 1.046 

BNE 20$ 

BIT 040000. SWP. FLAGS 

BEQ 19$ 

CMP Rl.043 

BNE 18$ 

TRAP 56 

.WORD 4 3 

.WORD EGH.30 

.WORD EMS. 30 

BR 20$ 

CMP R1.046 

BNE 20$ 

TRAP 56 

.WORD 46 

.WORD Et,H.30 

.WORD EMS. 30 



11:08:35 
ll:08t22 



SLQ 043/ 
VAX-11 Bl 199-16 V4. 0-579 Paae 206 

DISK$USER2;[P0WERS]ZRQA00,BL2j6 (58) 



6006 
6033 



i PC* 



I SP,* 

i 
i 
i SP,* 



6006 
6035 



6006 
6037 



6003 
6042 



6044 
6047 

6048 

6046 
6040 
6052 

6053 

6056 
6062 



*O r i^» 
b0b4 



c: 



ZRQAM3 
V01, 6 

000416 
000420 
000422 
000426 
0004 30 
000434 
000440 
000442 
000444 
000450 
000454 
000456 
000460 
000464 
0004 70 
0004 72 
0004 74 



000424 
010746 
013746 
010146 
012746 
012746 
010600 
104414 
012/16 
012746 
010600 
104414 
004737 
062706 
010200 
104441 
000207 



RO/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 



OOOOOOG 

OOOOOOG 
000004 



OOOOOOG 
000001 



OOOOOOG 
000014 



19$; 



20$: 



ll-Apr-1984 ll:08t35 
ll-Apr-1984 11:08:22 



BR 


20$ 


NOV 


PC, -CSP) 


MOV 


L$LUN, CSP) 


MOV 


HI, -CSP) 


MOV 


4HRD.MSG.-CSP 


MOV 


#4, -CSP) 


MOV 


SP.RO 


TRAP 


14 


MOV 


OHRD.SUB,CSP) 


MOV 


#i,-(SP) 


MOV 


SP,RO 


TRAP 


14 


JSR 


PC, EMS. ERR 


ADD 


014, SP 


MOV 


R2,R0 


TRAP 


41 


RTS 


PC 



; Routine S J *e : 159 words, Routine Base: $CODE$ ♦ 31542 
; Maximum stack depth per invocation: 11 words 



VAX 11 Bliss-16 V4. 0-579 

DISK $USER2 j [ POWERS ] ZRQADO , BL2 j 6 



5 PC,* 



SEQ 04 38 

Page 20 7 

(58) 

6056 
6069 



i SP,* 



l SP,* 



} CUR.PRIORITY,* 



6070 



60/1 
606 7 
6074 

5979 



000024 



000024 
000026 
000030 
000032 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000052 
O0OOS4 
000056 
000060 



PSECT SPLIT*, RO 



D 



000000 
000012 
000236 
00023b 
000236 
000024 
000036 
000236 
000050 
000062 
000074 
000106 
000120 
000132 
000144 



P.AAC: 






2$: 


.WORD 







.WORD 


12 




.WORD 


236 




.WORD 


236 




.WORD 


236 




.WORD 


24 




.WORD 


36 




.WORD 


236 




.WORD 


50 




.WORD 


62 




.WORD 


74 




.WORD 


106 




.WORD 


120 




.WORD 


132 




.WORD 


144 



CASE Table for ERR.HRD.RTNE *00?2 

[31] 

C4$] 

[16$) 

(16$) 

[16$] 

[5$] 

[6$] 

[16$] 

[71] 

[8$] 

[9$] 

[10$] 

run 

[12$) 
[13$] 



6006 



m;> 



/RQAM5 




V01, 6 




5 6077 


1 


; 60 78 


1 


j 60/9 


1 


j 6080 


1 


! 6081 


1 


5 6082 


1 


; 6083 


1 


j 6084 


2 


; 6085 


2 


j 6086 


c 


: 6087 


2 


l 6088 


? 


; 6089 


? 


; 6090 


2 


; 6091 


2 


! 609? 


2 


; 6093 


2 


; 6094 


2 


; 6095 


2 


; 6096 


2 


; 6097 


2 


; 6098 


2 


; 6099 




i 6100 


2 


; 6101 


2 


; 6102 


2 


; 6103 


2 


; 6104 


C- 


; 5105 


2 


; 6106 


3 


; 6107 


3 


; 6108 


3 


; 6109 


2 


: 6110 


2 


; 6111 


1 



RD/RX EXERCISER 

RORX INTERRUPT SERVICE ROUTINES 

routine ERR„SOFT_RTNE (ERRNUM) ; novalue 



11 Apr -1984 11;08;35 
ll-Apr-1904 11j08}22 



VAX-11 Bliss-16 V4. 0-579 

DISK $USER2: [POWERS ]ZRQAD0.BL2;6 



SEQ 0439 
Page 208 

(59) 



THIS ROUTINE DECIDES WHETHER TO ISSUE AN 'ERRSOFT' MACRO CALL TO DRS OR TO FAKE 
THE SAME EFFECT WITHOUT I3SUING THE CALL 

beg i n 



bui It in 
PC; 

if 8IT..TST (SWP ..FLAGS, SWF^SFT) 
then 

case .ERRNUM From 50 to 54 of 
set 



else 



150] 

C51] 

[52] 

[53] 

[54] 
tes 



ERRSOFT (50, 0, 0)j 

ERRSOFT (51, 0, 0)j 

ERRSOFT (52, 0, 0)j 

ERRSOFT (53. 0, 0); 

ERRSOFT (54, 0, 0); 



begin 

} **** increment error count 

PRINTB (SFT.M5G, .ERRNUM, ,L$LUN, ,PC)| 

cr\6i 



! IF SOFT ERRORS TO BE TREATED LIKE OTHER ERRORS 



CONTROLLER ERROR 

HOST MEMORY ACCESS ERROR 

DISK TRANSFER ERROR 

SDI ERROR 

SMALL DISK ERROR 



! INCREMENT TOTAL ERROR COUNT 
! PRINT ERROR LINE JUST LIKE DRS 



end; 



032240 

000000 03273 7 020000 OOOOOOG 



000006 


001440 




000010 


0?.6600 


000002 


000014 


162700 


000062 


000020 


006300 




000022 


066007 


000062 


000026 


104457 




000030 


000062 




000032 


000000 




000034 


000000 




000036 


00020 7 




000040 


104457 







.SBTTl. 


ERR. SOFT.RTNE RD 




•PSECT 


*CODE*, RO 


ERR 


SOFT.RTNE: 






BIT 


OPOOoO, SUP, FLAGS 




BEQ 


7* 




MOV 


2CSP),R0 




SUB 


062, RO 




ASL 


RO 




ADD 


P.AAD(RO),PC 


2$: 


TRAP 


57 




.UORD 


62 




.WORD 







.WORD 







PTS 


PC 


3*5 


TRAP 


57 



j ERRNUM,* 

i Case dispatch 



608^ 
b095 



*0>)2 

o09 : 



N2 



ZRQAM3 
VOL 6 

00004? 
000044 
000046 
000050 
000052 
000054 
000056 
000060 
00006,? 
000064 
000066 
000070 
00007? 
000074 
000076 
000100 
000102 
000104 
000106 
000110 
0001 1...- 
000116 
000122 
000126 
000132 
000134 
000136 
000142 



oooo6r 

000000 
000000 
000207 
104457 
000064 
000000 
000000 
000207 
104457 
000065 
000000 
000000 
000207 
104457 
000066 
000000 
000000 
000207 
010746 
013746 
016646 
012746 
012746 
010600 
104414 
062/06 
000207 



RD/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 



OOOOOOG 
000006 
OOOOOOG 
000004 



000012 



4$; 



5$! 



6$: 



7$: 





11 -Apr -1984 11:08; 35 




ll-Apr-19H4 11:C8;22 


.WORD 


63 


.WORD 





,WCRD 





RTS 


PC 


TRAP 


57 


.WORD 


64 


.WORD 





.WORD 





RTS 


PC 


TRAP 


57 


.WORD 


65 


.WORD 





.WORD 





RTS 


PC 


TRAP 


57 


.WORD 


66 


.WORD 





.WORD 





RTS 


PC 


MOV 


PC.-CSP) 


MOV 


L$LUN,-CSP) 


MOV 


6(SP),-(SPT 


MOV 


•SFT.MfiG, -CSP) 


MOV 


#4, -CSP) 


MOV 


SP.RO 


TRAP 


14 


ADD 


012, SP 


RTS 


PC 



VAX U Bliss- 16 V4. 0-579 SEQ Page°209 
DISK$USER2:[P0WERS]ZRQAD0.BL2|6 (59) 



6092 
6099 



; PC* 

j ERRNUM,* 

; SP,* 



6092 
6101 



6092 
6103 



6069 
6108 



blOG 
6077 



; Routine Size: 50 words. Routine Base: $C0DE$ * 32240 
; Makimum stack depth per Invocation; 7 words 



000062 



000062 
000064 
000066 
000070 
000072 



000000 
000012 
000024 
000036 
000050 



.PSECT $PLIT$, RO , D 



P.AAD; 






1*; 


.WORD 







.WORD 


12 




.WORD 


24 




.WORD 


36 




♦ WORD 


50 



CASE 
[2J3 
[3«] 

f4$] 
[5J] 

ton 



Table for feRR, SOFT, RTNE -0022 



6092 



I'** Itx* ^i:>' *£»?*■& sv^ a 



■" wc^;^ 



.** 



.' ,Vi W>fc*v 



'•'--aifc* 



V 



** •» tV -V*^,. 5 -' Jpirp*t *\' JJhSi-*^t%. t. *»* ** rf ■**•"•* '*■ 



fK i?v 



..< 



•***' 



j-.^mL'' 






7RQAM5 
VOL 6 



6112 
6113 
6114 
6115 

6116 
6117 
6118 
M19 
6150 
6121. 
6122 
6153 
6124 
6155 
6126 
6157 
6156 
6129 
6130 
6131 
6132 
6133 
6134 
6135 
6136 
6137 
6138 
6139 
6140 
6141 
6142 
6143 
6144 
6145 
6146 
614? 
6148 
6149 
6150 
6151 
6152 
6153 
6154 
6155 
6156 
6157 
6158 
6159 
6160 
6161 
6162 
61M 
6164 



d 



RO/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 

routine ERR_HRD„RTNE^APT (ERRNUM) ; novalue ■ 



il-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



SEQ 0441 
VAX-U Bliss 16 V4. 0-579 Page 210 

DISKIUSER2: [POWERS )ZRQAD0.BL2|6 (60) 



THIS ROUTINE DECIDES WHETHER TO ISSUE AN 'ERRHRD' MACRO CALL TO ORS OR TO FAKE 
THE SAHE EFFECT WITHOUT ISSUING THE CALL 



begin 



local 

CUR_PRIORITYt 

bu i 1 1 ■ n 
PC i 

GF.TPRI (CUR PRIORITY )| 
SETPRI (PRI04)t 



! DON'T ALLOW SOFT_ERROR MESSAGES TO COME IN NOW 



If ,APT_MODE 
then 

begin 

.MAIL_BOX_TESTNUM • ,RP ADDR (LBN I Oh 

.MA1L_B0X_SUBTST • .RP.ADOR (DISlOj 

endj 



if ( .ERRNU1 leou 34) or 
( .ERRNUM Qtr u 38) or 
( .ERRNUM eql 36) or 

C .ERRNUM eql 37) 



! CHANGE TEST NU16ER TO SHOW LBN UNOER APT ONLY 

! CHANGE SUB-TEST NUMBER TO SHOW DISK NUMBER UNDER APT QNLT 



• FOR NON-BAD BLOCK TYPE ERRORS 



then 



If BIT. VST (SWP„FLAGS. SWF HRD) 
then 

cose ,ERRNL*1 from 31 to 45 of 
set 



IF ERRORS TO BE TREATED NORMALLY 



[31] 

[321 
[33] 
[ 54) 
135) 



ERRDf (51, EGH 30, KMS 30 ) j 
ERRDF (3J, EGH.30» EMS.30)j 

I 
i 
I 



INVALID COMMAND 
COMMAND ABORTED 



MEDIA FQRMAI ERROR 



ZRQAMJ 




VOL is 




i 6165 


> 


i 61t>6 


2 


; 6167 




; 61t>8 




; 6169 




; 6170 


-1 
i- 


; 6171 




; 6172 


~> 


; 6173 


2 


j 6174 


c 


; 617? 


2 


; 6176 


c 


; 6177 


c. 


6178 


2 


6179 


2 


; 6180 


2 


; 6181 


2 


; 6182 


2 


i 6183 


2 


; 6184 


2 


; 6185 


2 


; 6186 


t- 


; 6187 


2 


i 6188 


2 


; 6189 


3 


; 6190 


3 


J 6191 


X 


J 6192 


3 


; 6193 


3 


; 6194 


3 


; 6195 


3 


; 6196 


3 


; 6197 


4 


; 6198 


4 


: 6194 


4 


; 6200 


3 


; 6201 


2 


5 6202 


2 


: 6203 


2 


: 6204 


3 


; 6205 


3 


; 6206 


2 


; 6207 


2 


; 6208 


3 


; 6209 


2 


; 6210 


2 


J 6211 


2 


; 6212 


p 


; 6215 


c. 


6214 


1 

L 


J 6215 


2 


; 6216 


2 


; 621/ 


2 



RO/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 



C3 



11 -Apr -1984 11:08»35 
11 Apr -1984 11:08:22 



VAX-11 Blias-16 V4. 0-579 

DISK *USER2;[ POWERS ]ZRQAD0.BL2j 6 



SEQ 0442 
Pa^e 211 
(60) 



(56) 

(371 

[381 

[39] 

[401 

[411 

[421 

[431 

[44] 

[453 
tes 



ERRDF (36, EGH 30, EMS 30 ), 

ERRDF (37, EGH_30, EMS_30)i 
J 

ERRDF (39, EGH.30, EMS_30)j 

ERRDF (40, EGM..30, EMS„30)j 

ERRDF (41, EGH 30, EMS 30) j 

ERRDF (42, EGH.30, 0)i 

ERRDF (43, EGH_30, EMS.. 30) i 

ERRDF (44, EGH .30, EMS_30)| 

ERRDF (45, EGH. 30, EMS..30); 



else 



b«g>n 

j **♦* increment error count 

PRINTB (DF^MSG, .ERRNUM, ,L*LUN, ,PC)| 



if .ERRNUM neq 42 
then 



beoin 

PRINTB (HRD_SUB)| 
EMS_ERR ()| 
end i 



end i 

tr ( .CRRNUM «ql 35) or 
( .ERRNW eql 38) 



then 



If BIT_TST (SWP .FLAGS, SWF BLK) 
then 

Selectoneu .EKRNUM of 
*et 

(351; l.RRD* (35, EGH 30, fr MS .30 ) i 

[38h ERRDF (38, LGH.,30, EM5.50)j 
t«9 



WRITE PROTECTED 

COMPARE ERROR 

DATA ERROR 

HOST BUFFER ACCESS ERROR 

CONTROLLER ERROR 

DRIVE ERROR 

HOST WRITE COMPARE ERROR 

MESSAGE FROM INTERNAL DIAGNOSTICS 

DUPLICATE UNIT NUMBER 

INVALID £N0 CODE 



! INCREMENT TOTAL ERROR COUNT 

• PRINT ERROR MESSAGE JUST LIKE DRS 



! NEXT LINE FOR NON-HOST COMPARE ERRORS 
! PRINT REST OF THE INFORMATION 



» FOR BAD-BLOCK TYPE ERRORS 



■ IF ERRORS TO BE TREATED NORMALLY 



I MEDIA FORMAT ERROR 
J DATA ERROR 



D3 



7RQAM3 




voi.b 




i 6218 




; 6219 


2 


; 6220 


2 


{ b221 


5 


; 6222 


3 


; 6223 


3 


; b224 


3 


j 6225 


3 


; 6226 


2 


; 6227 


■> 


<- 


{ 6228 


2 


; 6229 




j 6230 


•> 


; 6251 




; 6232 


1 



RO'RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 



11 Apr 1984 11:08:35 

ll-Apr-1984 11:08:22 



VAX 11 Bliss-16 V4, 0-579 

DISK $USER2:f POWERS )/RQAD0.BL2}6 



SEQ 0443 
Page 212 
(60) 



else 



begin 

J *♦*♦ Increment error count 

PRINTB CDF MSG, .ERRNUM, .L$LUN, 

PRINTB (HRD..SUB)| 

EMS..ERR ( )i 

endj 



,PC)| 



SETPRI ( .CUP.PRIORITY), 



end} 



INCREMENT TOTAL ERROR COUNT 
PRINT ERROR LINE JUST LIKE ORS 
PRINT NEXT LINE TOO 
PRINT REST OF THE INFORMATION 



! PRIORITY BACK TO NORMAL 



032404 

OOOOOO 004137 OOOOOOG 



000004 


104440 




000006 


010002 




O0OO10 


012700 


000200 


000014 


104441 




000016 


032737 


000001 001162 


000024 


001412 




000026 


013700 


OOOOOOG 


00O032 


016077 


000050 001164 


000040 


013700 


OOOOOOG 


000044 


016077 


000010 001166 


000052 


016601 


000010 


000056 


020127 


000042 


000062 


101411 




000064 


020127 


000046 


000070 


101006 




000072 


020127 


000044 


000076 


001403 




000100 


020127 


000045 


000104 


001131 




000106 


032737 


010000 OOOOOO 


000114 


001475 




0001 16 


010100 




000120 


162700 


00003 7 


000124 


006300 




000126 


066007 


000074' 


000132 


104455 




000134 


00003 7 




000136 


OOOOOOG 




000140 


OOOOOOG 




000142 


000512 




000144 


104455 





.SBTTL 
.PSECT 

E^R.HRD.RTNE.AP 

JSR 

TRAP 

MOV 

MOV 

[RAP 

BIT 

BrIQ 

MOV 

MOV 

MOV 

MOV 
1*: MOV 

CMP 

BLOS 

CMP 

BHI 

CMP 

BEQ 

CMP 

BNE 
2$: BIT 

BEQ 

MOV 

sue 

ASL 
ADO 
45 ; TRAP 

,UORD 
. WORD 
.WORD 
BR 
5$; TRAP 



ERR.HRD.RTNE.APT RDRX INTERRUPT SERVICE ROUTINES 
iCODFl, RO 



R1.ISAV72 

40 

R0,R2 
0200, RO 
41 

• l.APT.tiODE 

II 

RP.ADOR.RO 

50CR0).OMAIl ..BOX.TESTNUM 

RP.ADDR,R0 

10(RO),8MAIL.BOX,SU8TST 

10(SP).R1 

R1.042 

2$ 

R 1,046 

2* 

Rl,044 

21 

R 1,045 

171 

010000, SWP, FLAGS 

151 

Rl.RO 

(H/.RO 

RO 

P.AAECRO),PC 

55 

37 

ECH.30 

EMS ,30 

in 

55 



j *,CUR»PRIORITY 



i FRRNUM,* 



j Cose dispatch 



6112 

6130 

6131 
6134 
6138 
613^ 

6143 

6144 
614^ 

6146 
'd^O 
t>l53 

t>l56 



*15 5 



F 3 



ZRQAM3 


RO/RX E 


V01, 6 


RDRX IN 


000146 


000040 


000150 


OOOOOOG 


000152 


OOOOOOG 


000154 


000505 


000156 


104455 


000160 


000044 


000162 


OOOOOOG 


000164 


OOOOOOG 


000166 


000500 


000170 


104455 


000172 


000045 


000174 


OOOOOOG 


000176 


OOOOOOG 


000200 


0004 73 


000202 


104455 


000204 


000047 


000206 


OOOOOOG 


000210 


OOOOOOG 


000212 


000466 


000214 


104455 


000216 


000050 


000220 


OOOOOOG 


000222 


OOOOOOG 


000224 


000461 


000226 


104455 


000230 


00O051 


000232 


OOOOOOG 


000234 


OOOOOOG 


000236 


000454 


000240 


104455 


000242 


000052 


000244 


OOOOOOG 


000246 


000000 


000250 


00044 7 


000252 


104455 


000254 


000053 


000256 


OOOOOOG 


000260 


OOOOOOG 


000262 


000442 


000264 


104455 


000266 


000054 


0002 70 


OOOOOOG 


0002 72 


OOOOOOG 


0002 74 


000435 


000276 


104455 


000300 


000055 


000302 


OOOOOOG 


000304 


OOOOOOG 


000306 


0004 30 


000310 


010746 


000312 


013746 OOOOOOG 


000316 


010146 


000320 


012746 OOOOOOG 



RDRX INTERRUPT SERVICE ROUTINES 



11 -Apr 1984 lis 08 j 35 
ll-Apr-1984 UjOBj22 



VAX-11 BI199-I6 V4. 0-579 

DISK $USER2:[ POWERS ]ZRQADO.BL2 8 6 



6*; 



7$: 



e$: 



9$; 



10$: 



11$: 



12*: 



13$: 



14$: 



15$: 



.WORD 


40 


.WORD 


EGH.30 


.WORD 


EMS. 30 


BR 


17$ 


TRMP 


55 


.WORD 


44 


.WORD 


EGH.30 


.WORD 


EMS. 30 


BR 


17$ 


TRAP 


55 


.WORD 


45 


.WORD 


EGH.30 


.WORD 


EMS. 30 


BR 


17$ 


TRAP 


55 


.WORD 


47 


.WORD 


EGH.30 


.WORD 


EMS. 30 


BR 


17$ 


TRAP 


55 


.WORO 


50 


.WORD 


EGH.30 


.WORD 


EMS. 30 


BR 


17$ 


TRAP 


55 


.WORD 


51 


.WORD 


EGH.30 


.WORD 


EMS. 30 


BR 


17* 


TRAP 


55 


.WORD 


52 


.WORD 


EGH.30 


.WORD 





BR 


17$ 


TRAP 


55 


.WORD 


53 


.WORD 


EGH.30 


.WORD 


EMS. 30 


BR 


17$ 


TRAP 


55 


.WORD 


54 


.WORD 


EGH.30 


.WORD 


EMS. 30 


BR 


17$ 


TRAP 


55 


.WORD 


55 


.WORD 


EGH.30 


.WORD 


EMS. 30 


BR 


17$ 


MOV 


PC, -(SP) 


MOV 


LILUN, -CSP) 


MOV 


Rl.-CSP) 


MOV 


ODF.MSG, -(SP) 



SEQ 0444 
Page 213 

(60) 



6153 
6166 



6153 
6168 



I PC* 



6153 
6172 



6153 
6174 



6153 
6176 



6153 
61/8 



6153 
6160 



6153 
6102 



6153 

6184 



M50 

6191 



F3 



ZRQAM3 
V01.6 

000324 
000330 
000332 
000334 
000340 
000342 
000346 
000352 
000354 
000356 
000362 
000364 
000370 
000374 
000376 
000402 
000404 
000412 
000414 
00O420 
000422 
000424 
000426 
000430 
000432 
000434 
000440 
000442 
000444 
0004^6 
000450 
000452 
000454 
000' * S 
000 ,2 
000464 
000470 
000474 
0004 76 
000500 
000504 
000510 
000512 
000514 
000520 
000524 
000526 
000 r ,30 



012746 

010600 

104414 

020127 

001411 

012716 

012746 

010600 

104414 

004737 

005726 

062 706 

020127 

001403 

020127 

001050 

032737 

001420 

020127 

001005 

104455 

00004 3 

OOOOOOG 

OOOOOOG 

000434 

020127 

001031 

1C1455 

000046 

OOOOOOG 

OOOOOOG 

000424 

010746 

013746 

010146 

012746 

012746 

010600 

104414 

012716 

012746 

010600 

101414 

004737 

062 706 

010200 

104441 

000207 



RO/RX EXERCTSER 

RDRX INTERRUPT SERVICE ROUTINES 

000004 



000052 

OOOOOOG 
000001 



OOOOOOG 

000012 
000043 

000046 

040000 OOOOOOG 

000043 



ll-Apr~1984 11:08:35 
11 -Apr -1984 11:08:22 



VAX-11 Bl 133-16 V4. 0-570 SEQ Page 5 214 
DISI<$USER2:[P0WERS1ZRQAD0.BL2j6 (60) 



000046 



OOOOOOG 

OOOOOOG 
000004 



OOOOOOG 
000001 



OOOOOOG 
000014 





MOV 


04,-CSP) 




MOV 


SP.RO 




TRAP 


14 




CMP 


R1.452 




BEQ 


16$ 




MOV 


OHRD,SUB,(SP) 




MOV 


01, (SP) 




MOV 


SP.RO 




TRAP 


14 




JSR 


PC, EMS, ERR 




tst 


CSP)* 


16$: 


ADD 


012, SP 


17$: 


CMP 


R1.043 




BEQ 


18$ 




CMP 


R1.M6 




BNE 


21$ 


18$: 


BIT 


040000, SWP. FLAGS 




BEQ 


20$ 




CMP 


R1.M3 




BNE 


19$ 




TRAP 


55 




.WORD 


43 




.WORD 


EGH.30 




.WORD 


EMS. 30 




BR 


21$ 


19$: 


CMP 


R1.446 




BNE 


21$ 




TRAP 


55 




.WORO 


46 




.WORD 


EGH.30 




.WORD 


EMS, 30 




BR 


21$ 


20$: 


MOV 


PC, -CSP) 




MOV 


L$LUN, (SP) 




MOV 


Rl.-CSP) 




MOV 


*0F.MSG,-(SP) 




MOV 


04, (SP) 




MOV 


SP,R0 




TRAP 


14 




MOV 


OHRD.SUB.CSP) 




MOV 


♦1, (SP) 




MOV 


SP.RO 




TRAP 


14 




JSR 


PC. EMS, ERR 




ADD 


014, SP 


21$: 


MOV 


R2.R0 




TRAP 


41 




RTS 


PC 



J SP,* 



I SP,* 



; PC,* 



: SP.* 



£ SP,* 

J 

{ CUR. PRIORITY,* 



6194 
6198 



6199 

6197 
61A<> 



6204 
6208 
6214 



€211 

6216 



6208 
6223 



6224 



62; 5 

*22l 
6229 

t>112 



Routine Size: 173 words. Routine Base: $CODE$ 
Maximum stack depth per invocation: 11 words 



32404 



G3 



ZRQAM3 
V0U6 

000074 



RO/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 



ll-Apr-1984 
ll-Apr-1984 



11:08:35 VAX-11 Bltss-16 V4. 0-579 

11 : 08 j 22 DISKIUSER2 : TPOWERS ]ZRQADO . BL.2 j 6 



.PSECT $PLIT$ 



RO 



D 



000074 


000000 


0000 76 


000012 


000100 


000236 


000102 


000236 


000104 


000236 


000106 


000024 


000110 


000036 


00011? 


000236 


000114 


000050 


000116 


000062 


000120 


000074 


000122 


000106 


000124 


000120 


000126 


000132 


000130 


000144 


; 6235 1 


; 6234 l 



P.AAEj 






3$: 


.WORD 







.WORD 


12 




.WORD 


236 




.WORD 


236 




.WORD 


236 




.WORD 


24 




.WORD 


36 




.WORD 


236 




.WORD 


50 




.WORD 


62 




.WORD 


74 




.WORD 


106 




.WORD 


120 




.WORD 


132 




.WORD 


144 



SEQ 0446 
Page 215 
C60) 



CASE 
[41] 
C5M 
[17$ 

r 17$ 

[17$ 
[6$] 

[7$] 
[17$ 
[8$] 
C9$] 
[10$ 
[11$ 
[12$ 
[13$ 
[14$ 



Table for ERR.HRD.RTNE.AP*0126 6153 



H3 



2RQAM3 




VOl. 6 




; 6235 


1 


6236 


1 


; 623 / 


1 


; 6238 


1 


; 6239 


1 


j 6240 


1 


; 6241 


1 


j 6242 




; 624 3 


2 


; 6244 


c 


; 6245 


2 


l 6246 


2 


; 624 7 


2 


5 6248 




; 624^ 


2 


6250 


2 


; 6251 


2 


: 6252 




; 6253 


2 


; 6254 


3 


j 6255 


3 


; 6256 


3 


6257 


2 


; 6258 


2 


5 6259 


3 


; 6260 


2 


i 6261 


2 


6262 


2 


i 6263 


2 


; 6264 


2 


j 6265 


2 


; 6266 


2 


; 6267 


2 


6266 


2 


: 6269 


? 


; 62 70 


2 


; 6271 




: 62 7? 


2 


; 6273 


i. 


; 62 ?4 


2 


; 6275 


2 


; 6276 


3 


; 62 ? f 


3 


: 62/8 


7 


; 62/9 


2 


; b280 


2 


} 6281 


I 



RD/RX EXERCISER 

RORX INTERRUPT SERVICE ROUTINES 



U-Apr-1984 ll!08i35 
ll-Apr-1984 11j08}22 



VAX-11 BlIss-16 V4, 0-579 ^Page'sie 
DISK$USER2:[P0WERS)2RQAD0.BL2j6 (61) 



routine ERR_SOFT__RTNE_APT (ERRNUM, Index) j novoluc - 



THIS ROUTINE DECIDES WHETHER TO ISSUE AN 'ERRSOFT' MACRO CALL TO DPS OR TO FAKE 
THE SAME EFFECT WITHOUT ISSUING THE CALL 



begin 

local 

ELOG^ADDR 

bui It in 

PCs 



re? block [EP„LEN f word] field (EP„F1ELDS){ 



ELOG_ADDR - ELOG^PKT ♦ (.index * EP_LEN * 2)j 

if .APT .MODE 
then 

begin 

.MAIL_B0X„TESTNUM • .ELOG ADDR [EL BLOCK]} 

.MAIL_B0X_3UBTST - ,ELOG„ADDR [EL J}K_NUM] i 

end} 

if BIT..TST (SWP_FLAGS ( SWF„SFT) 
then 

case .ERRNUM from 50 to 54 of 
set 



else 



[50] 


ERRDF 


(50. 


0. 


0) 5 


[51] 


ERRDF 


(51. 


0, 


0)} 


[52] 


ERRDF 


C52, 


o. 


0)s 


[531 


ERRDF 


(53. 


0. 


0)j 


[54] 
tes 


ERRDF 


(54. 


o. 


0)} 



begin 

j **** increment error count 

PRINTB COF..MSG, .ERRNUM, .LU.UN, ,PC)| 

endj 



ADDRESS OF THE SAVED ERROR -LOG INFORMATION 



J CHANGE TEST NUMQER TO SHOW LBN UNDER APT ONL r 

! CHANGE SUB -TEST NUMBER TO SHOW DISK NUMBER IN APT ONLY 



! IF SOFT ERRORS TO BE TREATED LIKE OTHER ERRORS 



! ( ONTROLl.ER ERROR 

! HOST MEMORY ACCESS ERROR 

* DISK TRANSFER ERROR 

! SDI FRROR 

» SMALL DISK ERROR 



! INCRFMENT TOTAL ERROR COUNT 
! PRINT ERROR LINE JUST LIKE DRS 



end} 



53136 

000000 016646 000002 



.SBTTt ERR. SOFT, RTNE. APT RDRX INTERRUPT SERVICE ROUTINES 
.PSFCT ICODE*, RO 



ERR. SOFT. RTNE. APTj 



ZRQAM3 
VOL 6 



000004 
000010 
000014 

000020 

000026 
000030 
000036 
000044 
00005? 
000054 

oooof :> 

000Co4 
000066 
00007? 
000074 
000076 
000100 
00010? 
0OC104 
000106 
000110 
000112 
000114 
000116 
000120 
00012? 
000124 
000126 
000130 
000132 
000134 
000136 
000140 
000142 
000144 
000146 
000150 
00015? 
000154 
000156 
000162 
000166 
000172 
000176 
000200 
000202 
000206 
000210 



012746 
004 737 
062700 
032737 
001406 
016077 
016077 
032737 

()f\ * A * r\ 

016600 
162700 
006300 
066007 
104455 
000062 
000000 
000000 
000441 
104455 
000063 
000000 
000000 
0004 34 
104455 
000064 
OOOOOO 
000000 
000427 
104455 
000065 
OOOOOO 
OOOOOO 
000422 
104455 
000066 
OOOOOO 
OOOOOO 
000415 
010716 
013746 
016646 
012746 
012746 
010600 
104414 
062706 
022626 
000207 



RD/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 



000102 

OOOOOOG 

OOOOOOG 

000001 001162' 

000056 001164' 
000012 001166' 
020000 OOOOOOG 



1$: 



000010 
000062 

000132' 



OOOOOOG 
00OO12 
OOOOOOG 
000004 



000010 



3$: 



4*: 



5$: 



6$: 



7*i 



8$j 



9*: 



13 

ll-Apr-1984 11:08:35 
ll-Apr-1984 11:08:22 



MOV 


2(SP),-(SP) 




MOV 


0102, -(SP) 




JSR 


PCBLIMUL 




ADO 


OELOG.PKT.RO 




BIT 


01, APT. MODE 




BEQ 


1* 




MOV 


56CRO),QMAIL.BOX, 


, TESTNUM 


MOV 


12CRO),BMAIL.B0X, 


SUBTST 


BIT 


020000, SWP. FLAGS 




BEQ 


8$ 




MOV 


10(SP),R0 




sue 


062, RO 




ASL 


RO 




ADD 


P.AAF(RO),PC 




TRAP 


55 




.WORD 


62 




.WORD 







.WORD 







BR 


9$ 




TRAP 


55 




.WORD 


63 




.UORD 







.WORD 







BR 


91 




TRAP 


55 




.WORD 


64 




.WORD 







.WORD 







BR 


9$ 




TRAP 


55 




.WORD 


65 




.WORD 







.WORD 







BR 


9$ 




TRAP 


55 




.WORD 


66 




.WORD 







.WORD 







BR 


9$ 




MOV 


PC,(SP) 




MOV 


LILUN, -(SP) 




MOV 


12CSP), -C5P) 




MOV 


ODF.MSG, -(SP) 




MOV 


04, (SP) 




MOV 


SP.RO 




TRAP 


14 




ADD 


010, 5P 




CMP 


CSP)*.(SP)* 




RTS 


PC 





VAX- 11 Bl 199-16 V4. 0-579 5EQ Paae 8 ;'l / 
DISK*USER2:[P0WERS]ZRQAD0,BL2*6 (61 ) 



j INDEX,* 



i *(EL0G.ADDR),* 

j *(EL0G,ADDR),* 

I 

j ERRNUM.* 



; Cose dispatch 



: PC.* 

t ERRNUM,* 

I SP t * 

i 
i 



6250 



6252 

6255 

6256 
6259 

6262 



6265 



6262 
6267 



6262 

6269 



626? 
6? 71 



c*26? 

62 7 3 



6259 

62 78 



*? ■"•• 
**24? 
6235 



; Routine Size: 69 words, Routine Qose : $CO0fc'J 

i Maximum stack depth per Invocation; & words 



53136 



3 



2RQAM5 
V01, 6 



000132 



00013,? 
000 13A 
000136 
000140 
000142 



RO/RX EXERCISER 

RORX INTERRUPT SERVICE ROUTINES 



000000 
00001? 
000024 
000056 
000050 



11-Apr 1984 
11 Apr- 1984 



11:08:35 VAX -11 Bliss-16 V4, 0-579 
11:08:22 DISKJUSER2; [POWERS ]ZRQAD0.BL2; 6 



,P5ECT SPLIT* 



RO 



D 



P.AAFj 






2$: 


.WORD 







.WORD 


12 




.WORD 


24 




.WORD 


36 




,WORD 


50 



SEQ 0449 
Page 218 
(61) 



CASE 
[31] 
[4M 
[51] 
[6*] 
[71] 



Table for ERR. SOFT, RTNE .A+0066 6262 



6282 
628? 
6284 
6285 
6286 



end 
eludom 



OTS external references 

.GLOBL $SAVE5, JSAVE4, ISAVE3, $5AVE? 
.GLOBL BL5SHF*, BL$DIV, BLSMOD, BL$MUL 



PSECT SUMMARY 



Psect Name 
iGGGi 

*CODE* 
SPLIT* 



Words 


Attributes 








324 


RO , I , 


LCL, 


REL, 


CON 


7028 


RO . I . 


LCL, 


REL, 


CON 


50 


RO , D , 


LCL, 


REL, 


CON 



Library Statistics 



File 
DISK*UStR2:[ POWERS ]ZRQA00.L16| 3 



Total 
404 



- \>yirb."ls * - ■ 

Loaded Percent 



335 



82 



Pages 
Mapped 

21 



Process ing 

T I me 

00:00.1 



COMMAND QUAl IK It RS 
BLISS/PUP11 ZRQAD0.BL2/LISWRQAD0.LS2/0BJEC1 -/RQADO.0B2/S0URCF -PAGE j 53 



I<3 



ZRQAM4 



628 7 
6288 
6289 
6290 

6291 
6292 
6293 
6294 
6295 
6296 
6297 
6298 
6299 
6300 
6301 
7792 
7793 
7 794 
7 795 
7 796 
7797 
7 798 
7 799 
7800 
7801 
7802 
7803 
7804 
7805 
7806 
7807 
7808 
7809 
7810 
7811 
7812 
7813 
7614 
7815 
7816 
7817 













1 
1 
1 
1 
1 
1 
1 
1 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



RD/RX EXERCISER 

RDRX INTERRUPT SERVICE ROUTINES 

module ZRQAM4 C 

#title *RD/RX EXERCISER 1 

ident • ' V01, 6* . 

address Jnv}_mode (absolute), 

environment (noeis) 
) . 

begin 

tfsbttl 'LASTAD AND SETUP' 

library ' ZRQAD0.L16' . 

require 'BLSMAC.REQ' j 

LASTAO 

BGNSETUP C4) 

3GNPTAB 



U-Apri964 11:08:35 
ll-Apr-1984 11:08:22 



VAX 11 Bl 199-I6 V4, 0-579 
DISKtUSER2:lP0WERSJ/RQAD0.BL2;6 



SEQ 0450 
Page 219 
(62) 



! DIAGNOSTIC SUPERVISOR LIBRARY 



\m 



ENDPTAB 
BGNPTAB 

ENDPTAB 
BGNPTAB 



INIT_IP,ADDR. INIT INTR_VECT, INI T ..BR..LEVFL , *o' 100060' . 0, 0, RD52 MAX LBN, Mil 
J IP, VECTOR, BR, DISK ADDR, 5TART BLOCK, END BLOCK 



INIT..IP.ADDR. IN1T_.INTR.VECT, INIT BR_LEVF.L. *o' 100001' . 0, 0, RX50 MAX LBN, Mil 
! IP, VECTOR, BR, DISK ADDR, START BLOCK, tND BLOCK 



INIT_IP_ADDR, INIT .INTR.VECT, INIT _BR„LEVFL , *o* 100002' , 0, 0, RX50 MAX LBN. M2^ 
! IP, VECTOR, BR, DISK ADDR, START BLOCK, END BLOCK 
ENDPTAB 
BGNPTAB 

INIT.IP.ADDR, INIT_INTR_VECT. INT T BR .LEVEL , *o' 100003' , 0, 0, RX50 MAX LBN, Mil 

•HERE'S ONE FOR THE 4TH DRIVE " " • //> 

ENDPTAB I -7 n 



ENDSETUP 



. TITIF /RJAM1 RD/RX 
.IDENT /V01, 6^ 
.ENABL AMA 



EXERCISER 



onoooo 

000000 000124' 

000002 OOOOOOC 

000004 000034' 

Q00006 000010 



.PSfc'CT tXMi, RO 

BLU AS; : .WORO UfREF 

.WORD <<TSFREE <Bl. JLAS *4 > */2* 

P. AAA: .WORD l.$LAST*30 

.WORD 10 



PI it count wo.*ri 






/RQAM4 
V01. 6 

OOOOIO 
OOOOlc' 
000014 
000016 
000020 
000022 
000024 
000026 
000030 
000032 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000052 
000054 
000056 
000060 
000062 
000064 
000066 
000070 
000072 
000074 
00007o 
000100 
000102 
000104 
000106 
000110 
000112 
C00114 
000116 
000120 
00012? 
000X24 



RD/RX EXERCISER 
LASTAD AND SETUP 



11 -Apr -1934 11:08:35 
U-Apr~19tf4 Ui08:22 



VAX-11 Bliss 16 V4. 0-579 

DISK $USER2;[ POWERS ]ZRQAD0.BL2j6 



SEQ 04 51 
Pog« 220 
(62) 



172150 
000154 
C 00004 
100060 
000000 

oooooo 

150477 

OOOOOO 

000060' 

000010 

172150 

000154 

000004 

100001 

OOOOOO 

OOOOOO 

001437 

OOOOOO 

000104' 

000010 

172150 

000154 

000004 

100002 

OOOOOO 

OOOOOO 

001437 

OOOOOO 

OOOOOO 

000010 

172150 

000154 

000004 

100003 

OOOOOO 

OOOOOO 

001437 

OOOOOO 

OOOOOO 



000004 
000004 

000004 
000010 
000030 
000034 
000054 
000060 
000100 
000104 



P . AAB : 


.WORD 


-5630 




.WORD 


154 




. WORD 


4 




.WORD 


-77720 




.WORD 







.WORD 







.WORD 


-27301 




.WORD 





P.AAC: 


.WORD 


LtLASTf54 




. WORO 


10 


P.AAD: 


.WORD 


-5630 




.WORD 


154 




.WORD 


4 




.WORD 


77777 




.WORO 







.WORD 







.WORD 


1437 




.WORD 





P . AAE : 


.WORD 


L$LASTflOO 




.WORD 


10 


P . AAF s 


.WOHO 


-5630 




.WORD 


154 




.WORD 


4 




.WORD 


-77776 




.WORD 







.WORD 







.WORD 


1437 




.WORD 





p . aal; : 


.WORD 







. WORO 


10 


P.AAH: 


.WORD 


-56 30 




.WORD 


154 




.WORD 


4 




.WORD 


-77775 




.WORD 







.WORD 







.WORD 


14*7 




.WORD 





T$FREEj 


:.WORD 





I.ILA5T- 


.» 


Bl.*t.AS»4 


T$PTHV- 


■ 


4 


iLAS5' 




P. AAA 


$REM5' 




P.AAH 


JIAS4* 




P . AAC 


♦REM4- 




P.AAD 


JLAS3* 




P . AAE 


*REM3* 




P , AAF 


MLASl* 




P.AAG 


*REM2* 




P.AAH 



\ Pi It count word 



l Pi it count word 



j Pi It count word 



ZRQAM4 
VOL 6 



OOOOOO 000207 



RD/RX EXERCISER 
LASTAD AND SETUP 



.SDTTL 

$END.l.INK: : 
RTS 



M3 

11 -Apr- 1964 11j08j35 
11 -Apr -1984 11:08:22 

IEND.LINK LASTAD AND SETUP 

PC 



Routine Size: 1 word, Routine Base: $XYZ$ ♦ 0126 
Maximum stack depth per invocation; words 



VAX 11 Bliss-16 V4, 0-579 

DISK *USER2 : f POWERS ]ZRQADO . BL2 ; 6 



SEQ 0452 
Page 221 
(62) 



7791 



7618 1 

7819 1 

7820 



end 



eludom 



PSECT SUMMARY 



Psect Name 
$XYZ$ 



Words 
44 



Attributes 
RO . I 



LCL, REL, CON 



Library Statistics 



rile 
DISK $USER2:[ POWERS 1ZRQAD0.L16| 3 



Total 
404 



Symbols - ■ •■ 

Loaded Percent 



Pages 
Mapped 

21 



Processing 

T ime 

00:00,2 



COMMAND QUALIFIERS 

BL ISS/PDP 1 1 ZRQADO . BL2/LIST -ZRQADO . LS2/0B JECT -ZRQADO , 0B2/S0URCE -PAGE : 55 

S«.z«: 7029 code ♦ 417 data words 

Run Time: 03:40.4 

Elapsed Time: 05:47,2 

Lines/CPU Min: 2129 

LeKemes/CP'J-Min: 20099 

Memory Used: 4 77 pages 

Compilation Complete 



ZRQAH3 


RD/R., 


...Bl 


ZRQAH3 


RD/R, 


. ,.C1 


ZRQAH3 


RD/R, 


.,,01 


ZRQAM3 


RO/R. 


...El 


2HOW13 


RO/i , 


...Fl 


ZRQAH3 


RO/R, 


..Gl 


ZRQAM3 


RO/R. 


...HI 


ZRQAM3 


RO/R.. 


...11 


ZRQAM3 


RO/R., 


,.J1 


ZRSAM3 


RO/R. 


. ..Kl 


ZWaAH3 


RO/R 


...LI 


ZRQAM3 


RD/R. , 


. ..Ml 


ZRQAH3 


RD/K. 


...Nl 


ZRGAM3 


RO/R. 


. ..B2 


ZRSAH3 


RO/R.. 


. ..C2 


ZRQAM3 


RO/R.. 


..,02 


ZRQAM3 


RO/R. 


...E2 


ZRQAH3 


RO/R. 


>.*F2 


ZRQAH3 


RO/P. 


..G2 


ZRQAH3 


RO/R 


...H2 


ZRQAN3 


RO/R. 


...12 


ZRQAH3 


RO/R. 


..J2 


ZWW13 


RO/R. 


. ,.K2 


ZRQAH3 


RO/R. 


...L2 


ZRQAH3 


RO/R., 


...M2 


ZRQAM3 


RO/R. 


...N2 


ZR0AH3 


RO/R. 


...83 


ZRQAH3 


ku'R. 


. ,.C3 


ZRQAK3 


RO/R., 


...03 


ZRQAM3 


RO/R., 


. ..E3 


ZRQAH3 


RO/R., 


. ..F3 


Zroamj 


RO/R. 


. ,,G3 


ZRQ*t3 


RO/R. 


, ..H3 


ZRQAT13 


RO/R. 


...13 


ZRQAH3 


RO/R. 


. . .J3 


ZRQAM4 


RO/R. 


. ..K3 


ZRQAH4 


RO/R.. 


. ,.L3 


ZRQAM4 


RO/R,, 


i * «M3 



